TFPVectorialDrawer (experimental)

type TFPVectorialDrawer = class(TBasicDrawer,IChartDrawer)

strict protected

  procedure SetBrush();

  procedure SetFont();

  procedure SetPen();

  function SimpleTextExtent(); override;

  procedure SimpleTextOut(); override;

public

  constructor Create();

  procedure AddToFontOrientation();

  procedure ClippingStart();

  procedure ClippingStop;

  procedure DrawingBegin(); override;

  procedure Ellipse();

  procedure FillRect();

  function GetBrushColor;

  function GetFontAngle; override;

  function GetFontColor; override;

  function GetFontName; override;

  function GetFontSize; override;

  function GetFontStyle; override;

  function GetPenColor;

  procedure Line();

  procedure LineTo(); override;

  procedure MoveTo(); override; overload;

  procedure Polygon(); override;

  procedure Polyline();

  procedure PrepareSimplePen();

  procedure PutPixel(); override;

  procedure RadialPie();

  procedure Rectangle();

  procedure ResetFont;

  procedure SetBrushColor();

  procedure SetBrushParams();

  procedure SetPenColor();

  procedure SetPenParams();

  procedure SetPenWidth();

end;

TFPVectorialDrawer

TBasicDrawer,IChartDrawer

TObject,ISimpleTextOut