TFPCustomCanvas

type TFPCustomCanvas = class(TPersistent)

protected

  FDefaultFont: TFPCustomFont;

  FFont: TFPCustomFont;

  FDefaultBrush: TFPCustomBrush;

  FBrush: TFPCustomBrush;

  FDefaultPen: TFPCustomPen;

  FPen: TFPCustomPen;

  FPenPos: TPoint;

  FClipRegion: TFPCustomRegion;

  procedure BeginPenShape;

  procedure EndPenShape;

  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;

  function GetDeviceClipRect; virtual;

  procedure SetClipRect(); virtual;

  function GetClipping; virtual;

  procedure SetClipping(); virtual;

  procedure SetPenPos(); virtual;

  procedure SetClipRegion();

  procedure DoLockCanvas; virtual;

  procedure DoUnlockCanvas; virtual;

  procedure DoTextOut();

  procedure DoGetTextSize();

  function DoGetTextHeight();

  function DoGetTextWidth();

  function GetNativeTextOrigin; virtual;

  function GetNativeTextMeasure; virtual;

  function DoGetTextMetrics(); virtual;

  function DoGetTextAdvance(); virtual;

  procedure DoChord(); virtual;

  procedure DoRoundRect(); virtual;

  procedure DoFloodFillStyle(); virtual;

  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;

  procedure DoDraw(); virtual;

  procedure DoStretchDraw(); virtual;

  procedure DoRadialPie(); virtual;

  procedure DoPolyBezier(); virtual;

  procedure CheckHelper(); virtual;

  procedure AddHelper();

  function TransformPoint();

  function TransformRect();

  function TransformPoints();

  function HasRotation;

  function UserRect();

  function DeviceRect();

  property DeviceClipRect: TRect; [r]

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();

  procedure Polyline();

  procedure RadialPie(); virtual;

  procedure PolyBezier();

  procedure Rectangle();

  procedure FillRect();

  procedure FloodFill();

  procedure Clear;

  procedure MoveTo();

  procedure LineTo();

  procedure Line();

  procedure CopyRect();

  procedure Draw(); virtual;

  procedure StretchDraw();

  procedure ArcTo(); virtual;

  procedure AngleArc();

  procedure Chord();

  procedure Pie(); virtual;

  procedure RoundRect();

  procedure Frame();

  procedure FrameRect();

  procedure Frame3D(); virtual;

  procedure DrawFocusRect(); virtual;

  procedure TextRect();

  function TextFitInfo(); virtual;

  procedure Erase; virtual;

  procedure DrawPixel();

  procedure DrawPenPixel();

  procedure GradientFill(); virtual;

  property TransformMatrix: TFPCanvasMatrix; [rw]

  procedure Translate();

  procedure Scale();

  procedure Rotate();

  procedure ResetTransform;

  function HasTransform;

  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 RectangleMode: TRectangleMode; [rw]

  property EllipseMode: TEllipseMode; [rw]

  property OnCombineColors: TFPCanvasCombineColors; [rw]

  property HashWidth: Word; [rw]

  property HatchOrigin: THatchOrigin; [rw]

  property RelativeBrushImage: Boolean; [rw]

  property PolygonNonZeroWindingRule: Boolean; [rw]

  function GetTextMetrics();

  property TextOrigin: TFPTextOrigin; [rw]

  property TextMeasure: TFPTextMeasure; [rw]

  property TextStyle: TFPTextStyle; [rw]

end;

TFPCustomCanvas

TObject