TPostScriptCanvas

type TPostScriptCanvas = class(TObject)

public

  MPostScript: TPostScript;

  constructor Create();

  destructor Destroy; override;

  procedure Clear;

  property PostScript: TStringList; [rw]

  property FontFace: string; [rw]

  property FontSize: Integer; [rw]

  property LineSpacing: Integer; [rw]

  procedure MoveTo();

  procedure LineTo();

  procedure Line();

  procedure Rectangle();

  procedure Polyline();

  procedure Ellipse();

  procedure RadialPie();

  procedure Writeln();

  procedure TextOut();

  property Height: Integer; [rw]

  property Color: TColor; [rw]

  property Pen: TPSPen; [rw]

  property Brush: TPSPen; [rw]

end;

TPostScriptCanvas

TObject