TAggLCLCanvas

type TAggLCLCanvas = class(TAggFPCanvas)

protected

  function DoCreateDefaultBrush; override;

  function DoCreateDefaultFont; override;

  function DoCreateDefaultPen; override;

  function DoCreateDefaultImage; override;

  procedure DoLockCanvas; override;

  procedure DoUnlockCanvas; override;

public

  constructor Create;

  destructor Destroy; override;

  procedure ClearSettings; override;

  property Pen: TAggLCLPen; [r]

  property Brush: TAggLCLBrush; [r]

  property Font: TAggLCLFont; [r]

  property Image: TAggLCLImage; [r]

  property OnChange: TNotifyEvent; [rw]

  property OnChanging: TNotifyEvent; [rw]

  procedure Lock; virtual;

  function TryLock;

  procedure Unlock; virtual;

  procedure Changing; virtual;

  procedure Changed; virtual;

  procedure Arc();

  procedure Chord();

  function LCLAngleToAggAngle();

  procedure FillRect();

  procedure Frame();

  procedure GradientFill();

  procedure RadialPie(); virtual;

  procedure Pie(); virtual;

  procedure PolyBezier();

  procedure Polygon();

  procedure PolyLine();

  procedure RoundRect();

  procedure TextRect();

  function TextExtent(); virtual;

  function TextHeight(); virtual;

  function TextWidth(); virtual;

  procedure AggTextOut(); override;

end;

TAggLCLCanvas

TAggFPCanvas

TObject