TAggPasDrawer

type TAggPasDrawer = class(TBasicDrawer,IChartDrawer)

strict protected

  FCanvas: TAggLCLCanvas;

  function SimpleTextExtent(); override;

  procedure SimpleTextOut(); override;

public

  constructor Create();

  procedure AddToFontOrientation();

  procedure ClippingStart();

  procedure ClippingStop;

  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;

  procedure Polygon(); override;

  procedure Polyline();

  procedure PrepareSimplePen();

  procedure PutImage(); override;

  procedure RadialPie();

  procedure Rectangle();

  procedure ResetFont;

  procedure SetBrushColor();

  procedure SetBrushParams();

  procedure SetPenColor();

  procedure SetPenParams();

  procedure SetPenWidth();

  property FontDir: string; [rw]

end;

TAggPasDrawer

TBasicDrawer,IChartDrawer

TObject,ISimpleTextOut