TPostScriptCanvas

type TPostScriptCanvas = class(TFPCustomCanvas)

protected

  procedure WritePS();

  procedure WritePen;

  procedure DrawRectangle();

  procedure DrawEllipse();

  procedure SetColor(); override;

  function GetColor(); override;

  procedure DoGetTextSize(); override;

  function DoGetTextHeight(); override;

  function DoGetTextWidth(); override;

  function DoGetTextMetrics(); override;

  function GetNativeTextOrigin; override;

  procedure DoCopyRect(); override;

  procedure DoDraw(); override;

  procedure DoStretchDraw(); override;

  procedure DoRadialPie(); override;

  procedure DoFloodFill(); override;

  procedure DoFloodFillStyle(); override;

  procedure DoChord(); override;

  procedure DoRoundRect(); override;

public

  constructor Create();

  destructor Destroy; override;

  function DoCreateDefaultFont; override;

  function DoCreateDefaultPen; override;

  function DoCreateDefaultBrush; override;

  property LineSpacing: Integer; [rw]

  property Shadow: Boolean; [rw]

  procedure ClearShadow;

  procedure DoMoveTo(); override;

  procedure DoLineTo(); override;

  procedure DoLine(); override;

  procedure DoRectangle(); override;

  procedure DoRectangleFill(); override;

  procedure DoPolyline(); override;

  procedure DoPolygon(); override;

  procedure DoPolygonFill(); override;

  procedure DoTextOut(); override;

  procedure GradientFill(); override;

  procedure DoPolyBezier(); override;

  procedure DoEllipse(); override;

  procedure DoEllipseFill(); override;

  procedure DoPie();

  procedure Arc(); override; overload;

  procedure Writeln();

  property Stream: TStream; [r]

end;

TPostScriptCanvas

TFPCustomCanvas

TObject