TO32CustomControl

type TO32CustomControl = class(TCustomControl)

protected

  FAfterEnter: TNotifyEvent;

  FAfterExit: TNotifyEvent;

  FOnMouseWheel: TMouseWheelEvent;

  FLabelInfo: TOvcLabelInfo;

  FInternal: Boolean;

  function GetAttachedLabel;

  procedure LabelAttach();

  procedure LabelChange();

  procedure PositionLabel;

  procedure OMAssignLabel(); message;

  procedure OMPositionLabel(); message;

  procedure OMRecordLabelPosition(); message;

  procedure OMAfterEnter(); message;

  procedure OMAfterExit(); message;

  procedure CMVisibleChanged(); message;

  procedure WMKillFocus(); message;

  procedure WMMouseWheel(); message;

  procedure WMSetFocus(); message;

  DefaultLabelPosition: TOvcLabelPosition;

  procedure DoOnMouseWheel(); dynamic;

  procedure CreateWnd; override;

  procedure Notification(); override;

  property AfterEnter: TNotifyEvent; [rw]

  property AfterExit: TNotifyEvent; [rw]

  property OnMouseWheel: TMouseWheelEvent; [rw]

  property LabelInfo: TOvcLabelInfo; [rw]

public

  property Internal: Boolean; [rw]

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetBounds(); override;

  property AttachedLabel: TOvcAttachedLabel; [r]

end;

TO32CustomControl

TObject