TPostScriptCanvas

type TPostScriptCanvas = class(TFPCustomCanvas)

protected

  procedure WritePS();

  procedure DrawRectangle();

  procedure DrawEllipse();

public

  constructor Create();

  destructor Destroy; override;

  function DoCreateDefaultFont; override;

  function DoCreateDefaultPen; override;

  function DoCreateDefaultBrush; override;

  property LineSpacing: Integer; [rw]

  procedure DoMoveTo(); override;

  procedure DoLineTo(); override;

  procedure DoLine(); override;

  procedure DoRectangle(); override;

  procedure DoRectangleFill(); override;

  procedure DoPolyline(); override;

  procedure DoEllipse(); override;

  procedure DoEllipseFill(); override;

  procedure DoPie();

  procedure Writeln();

  procedure TextOut();

  property Stream: TStream; [r]

end;

TPostScriptCanvas

TFPCustomCanvas

TObject