TFPCustomCanvas

type TFPCustomCanvas = class(TPersistent)

protected

  FDefaultFont: TFPCustomFont;

  FFont: TFPCustomFont;

  FDefaultBrush: TFPCustomBrush;

  FBrush: TFPCustomBrush;

  FDefaultPen: TFPCustomPen;

  FPen: TFPCustomPen;

  FPenPos: TPoint;

  FClipRegion: TFPCustomRegion;

  function DoCreateDefaultFont; virtual; abstract;

  function DoCreateDefaultPen; virtual; abstract;

  function DoCreateDefaultBrush; virtual; abstract;

  procedure SetFont(); virtual;

  procedure SetBrush(); virtual;

  procedure SetPen(); virtual;

  function DoAllowFont(); virtual;

  function DoAllowPen(); virtual;

  function DoAllowBrush(); virtual;

  procedure SetColor(); virtual; abstract;

  function GetColor(); virtual; abstract;

  procedure SetHeight(); virtual; abstract;

  function GetHeight; virtual; abstract;

  procedure SetWidth(); virtual; abstract;

  function GetWidth; virtual; abstract;

  function GetClipRect; virtual;

  procedure SetClipRect(); virtual;

  function GetClipping; virtual;

  procedure SetClipping(); virtual;

  procedure SetPenPos(); virtual;

  procedure DoLockCanvas; virtual;

  procedure DoUnlockCanvas; virtual;

  procedure DoTextOut();

  procedure DoGetTextSize();

  function DoGetTextHeight();

  function DoGetTextWidth();

  procedure DoRectangle(); virtual; abstract;

  procedure DoRectangleFill(); virtual; abstract;

  procedure DoRectangleAndFill(); virtual;

  procedure DoEllipseFill(); virtual; abstract;

  procedure DoEllipse(); virtual; abstract;

  procedure DoEllipseAndFill(); virtual;

  procedure DoPolygonFill(); virtual; abstract;

  procedure DoPolygon(); virtual; abstract;

  procedure DoPolygonAndFill(); virtual;

  procedure DoPolyline(); virtual; abstract;

  procedure DoFloodFill(); virtual; abstract;

  procedure DoMoveTo(); virtual;

  procedure DoLineTo(); virtual;

  procedure DoLine(); virtual; abstract;

  procedure DoCopyRect(); virtual; abstract;

  procedure DoDraw(); virtual; abstract;

  procedure DoRadialPie(); virtual;

  procedure DoPolyBezier(); virtual;

  procedure CheckHelper(); virtual;

  procedure AddHelper();

public

  constructor create;

  destructor destroy; override;

  procedure LockCanvas;

  procedure UnlockCanvas;

  function Locked;

  function CreateFont;

  function CreatePen;

  function CreateBrush;

  procedure TextOut();

  procedure GetTextSize();

  function GetTextHeight();

  function GetTextWidth();

  function TextExtent();

  function TextHeight();

  function TextWidth();

  procedure Arc();

  procedure Ellipse();

  procedure EllipseC();

  procedure Polygon(); virtual;

  procedure Polyline(); virtual;

  procedure RadialPie(); virtual;

  procedure PolyBezier();

  procedure Rectangle();

  procedure FillRect();

  procedure FloodFill(); virtual;

  procedure Clear;

  procedure MoveTo();

  procedure LineTo();

  procedure Line();

  procedure CopyRect(); virtual;

  procedure Draw(); virtual;

  procedure StretchDraw(); virtual;

  procedure Erase; virtual;

  procedure DrawPixel();

  property LockCount: Integer; [r]

  property Font: TFPCustomFont; [rw]

  property Pen: TFPCustomPen; [rw]

  property Brush: TFPCustomBrush; [rw]

  property Interpolation: TFPCustomInterpolation; [rw]

  property Colors []: TFPColor; [rw]

  property ClipRect: TRect; [rw]

  property ClipRegion: TFPCustomRegion; [rw]

  property Clipping: Boolean; [rw]

  property PenPos: TPoint; [rw]

  property Height: Integer; [rw]

  property Width: Integer; [rw]

  property ManageResources: Boolean; [rw]

  property DrawingMode: TFPDrawingMode; [rw]

  property OnCombineColors: TFPCanvasCombineColors; [rw]

end;

TFPCustomCanvas

TObject