TRLMetaPen

type TRLMetaPen = class

protected

  function GetColor;

  procedure SetColor();

  function GetWidth;

  procedure SetWidth();

  function GetMode;

  procedure SetMode();

  function GetStyle;

  procedure SetStyle();

public

  constructor Create();

  procedure SaveToStream();

  procedure LoadFromStream();

  procedure Assign();

  procedure Inflate();

  property Color: TRLMetaColor; [rw]

  property Mode: TRLMetaPenMode; [rw]

  property Style: TRLMetaPenStyle; [rw]

  property Width: Integer; [rw]

end;

TRLMetaPen

TObject