TCustomLayer

type TCustomLayer = class(TNotifiablePersistent)

protected

  FLayerStates: TLayerStates;

strict protected

  FLayerOptions: Cardinal;

protected

  procedure AddNotification();

  procedure RemoveNotification();

  procedure Notification();

  procedure AddFreeNotification();

  procedure RemoveFreeNotification();

  procedure FreeNotification(); virtual;

  procedure Changing;

  procedure Click; virtual;

  procedure DblClick; virtual;

  function DoHitTest(); virtual;

  procedure DoPaint();

  function GetOwner; override;

  procedure KeyDown(); virtual;

  procedure KeyUp(); virtual;

  procedure MouseDown(); virtual;

  procedure MouseMove(); virtual;

  procedure MouseUp(); virtual;

  procedure MouseEnter; virtual;

  procedure MouseLeave; virtual;

  procedure Paint(); virtual;

  procedure PaintGDI(); virtual;

  procedure SetIndex(); virtual;

  procedure SetCursor(); virtual;

  procedure SetLayerCollection(); virtual;

  procedure SetLayerOptions(); virtual;

  procedure DoChanged; override; overload;

  procedure AreaUpdated();

  procedure UpdateRect();

  procedure Update();

  procedure Changed(); overload;

  property Invalid: Boolean; [rw]

  property ForceUpdate: Boolean; [rw]

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure BeforeDestruction; override;

  function HitTest();

  procedure BringToFront;

  procedure SendToBack;

  procedure SetAsMouseListener;

  function LayerToControl();

  function ControlToLayer();

  function LayerToContent();

  function ContentToLayer();

  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 OnKeyDown: TKeyEvent; [rw]

  property OnKeyUp: TKeyEvent; [rw]

  property OnMouseDown: TMouseEvent; [rw]

  property OnMouseMove: TMouseMoveEvent; [rw]

  property OnMouseUp: TMouseEvent; [rw]

end;

TCustomLayer

TNotifiablePersistent

TPlainInterfacedPersistent

TObject,IInterface