TCustomCanvas

type TCustomCanvas = class

protected

  FCurrentTexture: TCustomBaseTexture;

  FCurrentTextureMapping: TQuad;

  FCurrentPremultipliedAlpha: Boolean;

  function NeedsInitialization; virtual;

  function InitCanvas; virtual;

  procedure DoneCanvas; virtual;

  function BeginDraw; virtual;

  procedure EndDraw; virtual;

  function DeviceRestore; virtual;

  procedure DeviceRelease; virtual;

  function GetClipRect; virtual; abstract;

  procedure SetClipRect(); virtual; abstract;

  procedure UpdateAttributes; virtual;

  procedure NextDrawCall; virtual;

public

  constructor Create();

  destructor Destroy; override;

  function Initialize;

  procedure Finalize;

  function BeginScene;

  procedure EndScene;

  procedure PutPixel();

  procedure Line();

  procedure LineArray(); virtual;

  procedure WuLine();

  procedure Ellipse();

  procedure Circle();

  procedure WireQuad();

  procedure WireHexagon();

  procedure DrawIndexedTriangles(); virtual; abstract;

  procedure FillTri();

  procedure FillQuad();

  procedure FillRect();

  procedure FrameRect();

  procedure HorizLine();

  procedure VertLine();

  procedure FillHexagon();

  procedure FillArc();

  procedure FillEllipse();

  procedure FillCircle();

  procedure FillRibbon();

  procedure QuadHole();

  procedure DrawTexturedTriangles(); virtual; abstract;

  procedure UseTexture();

  procedure UseTexturePx();

  procedure UseImage();

  procedure UseImagePx();

  procedure UseImageRegion();

  procedure TexQuad();

  procedure Flush; virtual; abstract;

  procedure Reset; virtual;

  function SetPalette(); virtual;

  procedure ResetPalette; virtual;

  function SetEffect(); virtual;

  property Parent: TCustomCanvasParent; [r]

  property Device: TCustomDevice; [r]

  property Initialized: Boolean; [r]

  property CacheStall: Integer; [r]

  property ClipRect: TIntRect; [rw]

  property Attributes: TCanvasAttributes; [rw]

end;

TCustomCanvas

TObject