TPSPen

type TPSPen = class(TPSObject)

protected

  procedure SetColor();

  procedure Setwidth();

public

  constructor Create;

  destructor Destroy; override;

  procedure Assign();

  property Color: TColor; [rw]

  property Pattern: TPSPattern; [rw]

  property Width: Real; [rw]

  function AsString;

end;

TPSPen

TPSObject

TObject