TLayerCollection

type TLayerCollection = class(TPersistent)

protected

  procedure BeginUpdate;

  procedure Changed;

  procedure Changing;

  procedure EndUpdate;

  function FindLayerAtPos();

  function GetItem();

  function GetOwner; override;

  procedure GDIUpdate;

  procedure DoUpdateLayer();

  procedure DoUpdateArea();

  procedure Notify();

  procedure SetItem();

  function MouseDown();

  function MouseMove();

  function MouseUp();

  property OnChanging: TNotifyEvent; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnListNotify: TLayerListNotifyEvent; [rw]

  property OnGDIUpdate: TNotifyEvent; [rw]

  property OnLayerUpdated: TLayerUpdateEvent; [rw]

  property OnAreaUpdated: TAreaUpdateEvent; [rw]

  property OnGetViewportScale: TGetScaleEvent; [rw]

  property OnGetViewportShift: TGetShiftEvent; [rw]

public

  constructor Create(); virtual;

  destructor Destroy; override;

  function Add();

  procedure Assign(); override;

  procedure Clear;

  procedure Delete();

  function Insert();

  function LocalToViewport();

  function ViewportToLocal();

  procedure GetViewportScale(); virtual;

  procedure GetViewportShift(); virtual;

  property Count: Integer; [r]

  property Owner: TPersistent; [r]

  property Items []: TCustomLayer; default; [rw]

  property MouseListener: TCustomLayer; [rw]

  property MouseEvents: Boolean; [rw]

end;

TLayerCollection

TObject