TD2Canvas

type TD2Canvas = class(TPersistent)

protected

  FWidth: Integer;

  FHeight: Integer;

  FMatrix: TD2Matrix;

  FFill: TD2Brush;

  FStroke: TD2Brush;

  FStrokeThickness: Single;

  FStrokeCap: TD2StrokeCap;

  FStrokeJoin: TD2StrokeJoin;

  FStrokeDash: TD2StrokeDash;

  FDash: array of Single;

  FDashOffset: Single;

  FFont: TD2Font;

  FBitmap: TD2Bitmap;

  FResized: Boolean;

  FSaveData: TD2SaveDataArray;

  FBuffered: Boolean;

  FBufferBits: Pointer;

  FHandle: THandle;

  FParent: THandle;

  FScene: Id2Scene;

  procedure FontChanged(); virtual;

  procedure SetStrokeDash();

  procedure AssignTo(); override;

public

  constructor Create(); virtual;

  constructor CreateFromBitmap(); virtual;

  destructor Destroy; override;

  function BeginScene; virtual;

  procedure EndScene; virtual;

  procedure FlushBuffer(); virtual; abstract;

  procedure FlushBufferRect(); virtual; abstract;

  procedure FreeBuffer; virtual; abstract;

  procedure ResizeBuffer(); virtual; abstract;

  procedure Clear(); virtual; abstract;

  procedure ClearRect(); virtual; abstract;

  class function GetBitmapScanline(); virtual;

  procedure SaveToStream();

  procedure SaveToBits();

  procedure SetMatrix(); virtual;

  procedure MultyMatrix(); virtual;

  function SaveCanvas; virtual; abstract;

  procedure RestoreCanvas(); virtual; abstract;

  procedure SetClipRects(); virtual; abstract;

  procedure IntersectClipRect(); virtual; abstract;

  procedure ExcludeClipRect(); virtual; abstract;

  procedure ResetClipRect; virtual; abstract;

  procedure DrawLine(); virtual; abstract;

  procedure FillRect(); virtual; abstract;

  procedure DrawRect(); virtual; abstract;

  procedure FillEllipse(); virtual; abstract;

  procedure DrawEllipse(); virtual; abstract;

  procedure FillArc();

  procedure DrawArc();

  function PtInPath(); virtual; abstract;

  procedure FillPath(); virtual; abstract;

  procedure DrawPath(); virtual; abstract;

  procedure DrawBitmap(); virtual; abstract;

  procedure DrawThumbnail(); virtual; abstract;

  procedure DrawRectSides();

  procedure FillPolygon(); virtual;

  procedure DrawPolygon(); virtual;

  function LoadFontFromStream(); virtual;

  procedure FillText(); virtual; abstract;

  procedure MeasureText(); virtual; abstract;

  function TextToPath(); virtual; abstract;

  function TextWidth();

  function TextHeight();

  procedure SetCustomDash();

  property Stroke: TD2Brush; [r]

  property StrokeThickness: Single; [rw]

  property StrokeCap: TD2StrokeCap; [rw]

  property StrokeDash: TD2StrokeDash; [rw]

  property StrokeJoin: TD2StrokeJoin; [rw]

  property Fill: TD2Brush; [r]

  property Font: TD2Font; [r]

  property Matrix: TD2Matrix; [r]

  property Width: Integer; [r]

  property Height: Integer; [r]

  property Scene: Id2Scene; [rw]

  property Handle: THandle; [rw]

  property Parent: THandle; [rw]

  property Buffered: Boolean; [r]

  property BufferBits: Pointer; [r]

end;

TD2Canvas

TObject