TCustomLayer

type TCustomLayer = class(TNotifiablePersistent)

protected

  procedure AddNotification();

  procedure Changing;

  procedure Click;

  procedure DblClick;

  function DoHitTest(); virtual;

  procedure DoPaint();

  function GetOwner; override;

  procedure MouseDown(); virtual;

  procedure MouseMove(); virtual;

  procedure MouseUp(); virtual;

  procedure Notification(); virtual;

  procedure Paint(); virtual;

  procedure PaintGDI(); virtual;

  procedure RemoveNotification();

  procedure SetIndex(); virtual;

  procedure SetCursor(); virtual;

  procedure SetLayerCollection(); virtual;

  procedure SetLayerOptions(); virtual;

  property Invalid: Boolean; [rw]

  property ForceUpdate: Boolean; [rw]

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure BeforeDestruction; override;

  procedure BringToFront;

  procedure Changed();

  procedure Update();

  function HitTest();

  procedure SendToBack;

  procedure SetAsMouseListener;

  property Cursor: TCursor; [rw]

  property Index: Integer; [rw]

  property LayerCollection: TLayerCollection; [rw]

  property LayerOptions: Cardinal; [rw]

  property LayerStates: TLayerStates; [r]

  property MouseEvents: Boolean; [rw]

  property Tag: NativeInt; [rw]

  property Visible: Boolean; [rw]

  property OnDestroy: TNotifyEvent; [rw]

  property OnHitTest: THitTestEvent; [rw]

  property OnPaint: TPaintLayerEvent; [rw]

  property OnClick: TNotifyEvent; [rw]

  property OnDblClick: TNotifyEvent; [rw]

  property OnMouseDown: TMouseEvent; [rw]

  property OnMouseMove: TMouseMoveEvent; [rw]

  property OnMouseUp: TMouseEvent; [rw]

end;

TCustomLayer

TNotifiablePersistent

TPlainInterfacedPersistent

TObject,IInterface