TBasePolyPresenter

type TBasePolyPresenter = class(TEarthPresenter)

public

  constructor Create(); override;

  destructor Destroy; override;

  class function FindMatch();

  procedure Assign(); override;

  class function PrintableClassName; override;

  procedure RenderObject(); override;

  procedure LoadEnvironment(); override;

  function SaveEnvironment; override;

  procedure WriteProperties(); override;

  procedure ReadProperties(); override;

  property PolyPen: TEarthPen; [rw]

  property PolyBrush: TEarthBrush; [rw]

end;

TBasePolyPresenter

TEarthPresenter

TEarthENVPersistent

TEarthRoot

TObject