TOGLCanvas

type TOGLCanvas = class(TCanvas)

protected

  procedure DoMoveTo(); override;

  procedure DoLineTo(); override;

  procedure DoLine(); override;

  procedure DrawAsTexture();

  procedure SetPixel(); override;

  function GetPixel(); override;

public

  procedure CalcPieAngles();

  procedure Draw(); override;

  procedure FillRect();

  procedure Rectangle();

  procedure Ellipse();

  procedure Polyline();

  procedure Polygon();

  procedure StretchDraw(); override;

  procedure DrawFocusRect(); override;

  procedure FrameRect();

  procedure Frame3D();

  procedure Circle();

  procedure Line();

  procedure Pie(); override;

  function TextExtent(); override;

  function TextWidth(); override;

  function TextHeight(); override;

  procedure TextOut(); override;

end;

TOGLCanvas

TObject