TCanvasDrawer

type TCanvasDrawer = class(TBasicDrawer,IChartDrawer,IChartTCanvasDrawer)

strict protected

  FCanvas: TCanvas;

  FBuffer: TBitmap;

  function SimpleTextExtent(); override;

  procedure SimpleTextOut(); override;

public

  procedure AddToFontOrientation();

  procedure ClippingStart();

  procedure ClippingStop;

  constructor Create();

  destructor Destroy; override;

  procedure Ellipse();

  procedure FillRect();

  function GetBrushColor;

  function GetCanvas; virtual;

  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;

  procedure Polygon(); override;

  procedure Polyline();

  procedure PrepareSimplePen();

  procedure PutImage(); override;

  procedure PutPixel(); override;

  procedure RadialPie();

  procedure Rectangle();

  procedure ResetFont;

  procedure SetAntialiasingMode();

  procedure SetBrushColor();

  procedure SetBrushParams();

  procedure SetPenColor();

  procedure SetPenParams();

  procedure SetPenWidth();

  procedure SetTransparency();

end;

TCanvasDrawer

TBasicDrawer,IChartDrawer,IChartTCanvasDrawer

TObject,ISimpleTextOut