Unit 'GIS_Presenters' Package
[Overview][Types][Classes][Index] [#pl_gaiagis]

TCustomDrawBrushPresenter

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

Declaration

Source position: GIS_Presenters.pas line 106

type TCustomDrawBrushPresenter = class(TCustomDrawPresenter)

protected

  FileVersion: Integer;

  

  FShapePen: TEarthPen;

  

  FShapeBrush: TEarthBrush;

  

public

  constructor Create(); override;

  

  destructor Destroy; override;

  

  procedure Assign(); override;

  

  procedure LoadEnvironment(); override;

  

  function SaveEnvironment; override;

  

  procedure WriteProperties(); override;

  

  procedure ReadProperties(); override;

  

  procedure RenderObject(); override;

  

  property ShapePen: TEarthPen; [rw]

  

  property ShapeBrush: TEarthBrush; [rw]

  

end;

Inheritance

TCustomDrawBrushPresenter

  

|

TCustomDrawPresenter

  

|

TEarthPresenter

  

|

TEarthENVPersistent

  

|

TEarthRoot

  

|

TObject



CT Web help

CodeTyphon Studio