TfpgCanvasBase

type TfpgCanvasBase = class(TObject)

protected

  FBufferedDraw: Boolean;

  FBeginDrawCount: Integer;

  FWindow: TfpgWindowBase;

  FColor: TfpgColor;

  FTextColor: TfpgColor;

  FLineWidth: Integer;

  FLineStyle: TfpgLineStyle;

  FFont: TfpgFontBase;

  FPersistentResources: Boolean;

  procedure DoSetFontRes(); virtual; abstract;

  procedure DoSetTextColor(); virtual; abstract;

  procedure DoSetColor(); virtual; abstract;

  procedure DoSetLineStyle(); virtual; abstract;

  procedure DoGetWinRect(); virtual; abstract;

  procedure DoFillRectangle(); virtual; abstract;

  procedure DoXORFillRectangle(); virtual; abstract;

  procedure DoFillTriangle(); virtual; abstract;

  procedure DoDrawRectangle(); virtual; abstract;

  procedure DoDrawLine(); virtual; abstract;

  procedure DoDrawImagePart(); virtual; abstract;

  procedure DoDrawString(); virtual; abstract;

  procedure DoSetClipRect(); virtual; abstract;

  function DoGetClipRect; virtual; abstract;

  procedure DoAddClipRect(); virtual; abstract;

  procedure DoClearClipRect; virtual; abstract;

  procedure DoBeginDraw(); virtual; abstract;

  procedure DoPutBufferToScreen(); virtual; abstract;

  procedure DoEndDraw; virtual; abstract;

  function GetPixel(); virtual; abstract;

  procedure SetPixel(); virtual; abstract;

  procedure DoDrawArc(); virtual; abstract;

  procedure DoFillArc(); virtual; abstract;

  procedure DoDrawPolygon(); virtual; abstract;

public

  constructor Create; virtual;

  destructor Destroy; override;

  procedure DrawRectangle();

Draws a rectangle.

  procedure DrawLine();

Draws a line

  procedure DrawLineClipped();

Draws a line inside a clip rectangle

  procedure ClipLine();

Clips the line based on AClipRect boundaries.

  procedure DrawImage();

  procedure DrawImagePart();

  procedure DrawArc();

  procedure DrawPolygon();

  procedure StretchDraw();

  procedure CopyRect();

  procedure DrawString();

  procedure FillRectangle();

  procedure FillTriangle();

  procedure FillArc();

  procedure GradientFill();

Paints a rectangle with a gradient

  procedure XORFillRectangle();

  procedure SetClipRect();

  function GetClipRect;

  procedure AddClipRect();

  procedure ClearClipRect;

  procedure Clear();

  procedure GetWinRect();

  procedure SetColor();

  procedure SetTextColor();

  procedure SetLineStyle();

  procedure SetFont();

  procedure BeginDraw();

  procedure EndDraw();

  procedure FreeResources;

  property Color: TfpgColor; [rw]

  property TextColor: TfpgColor; [rw]

  property Font: TfpgFontBase; [rw]

  property Pixels: TfpgColor; [rw]

  property InterpolationFilter: TfpgCustomInterpolation; [rw]

  property FastDoubleBuffer: Boolean; [rw]

  property LineStyle: TfpgLineStyle; [r]

  property LineWidth: Integer; [r]

end;

TfpgCanvasBase

Abstract class used to represent a Canvas for painting

TObject