TPostScript

type TPostScript = class(TComponent)

protected

  procedure WritePS();

  procedure WriteDocumentHeader; virtual;

  procedure WriteStandardFont; virtual;

  procedure WritePage; virtual;

  procedure FreePatterns;

  procedure CheckStream;

public

  constructor Create();

  destructor Destroy; override;

  procedure AddPattern();

  function FindPattern();

  function DelPattern();

  function NewPattern();

  property Canvas: TPostScriptCanvas; [r]

  property Height: Integer; [rw]

  property Width: Integer; [rw]

  property PageNumber: Integer; [r]

  property Title: string; [rw]

  property LineSpacing: Integer; [rw]

  procedure BeginDoc;

  procedure NewPage;

  procedure EndDoc;

  property Stream: TStream; [rw]

  property Creator: string; [rw]

end;

TPostScript

TObject