TCustomGuiBaseMouseControl

type TCustomGuiBaseMouseControl = class(TCustomGuiBaseControl)

protected

  FRedrawTimer: TTimer;

  FTimerMustRedraw: Boolean;

  FReleaseMouseBtnOnLeave: Boolean;

  FOnMouseLeave: TNotifyEvent;

  FOnMouseEnter: TNotifyEvent;

  FOnDragMouseMove: TGuiOnDragMouseMove;

  procedure MouseEnter; dynamic;

  procedure MouseLeave; dynamic;

  procedure CreateMouseClass(); dynamic;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MouseMove(); override;

  procedure DragMouseMoveLeft(); dynamic;

  procedure DragMouseMoveMiddle(); dynamic;

  procedure DragMouseMoveRight(); dynamic;

  procedure CMMouseEnter(); message;

  procedure CMMouseLeave(); message;

  procedure SetRedrawInterval(); virtual;

  function GetRedrawInterval; virtual;

public

  MouseState: TGuiMouseState;

  constructor Create();

  destructor Destroy; override;

  procedure UpdateGuiTimer(); virtual;

  property RedrawInterval: Integer; [rw]

  property ReleaseMouseBtnOnLeave: Boolean; [rw]

  property OnMouseEnter: TNotifyEvent; [rw]

  property OnMouseLeave: TNotifyEvent; [rw]

  property OnDragMouseMove: TGuiOnDragMouseMove; [rw]

end;

TCustomGuiBaseMouseControl

TCustomGuiBaseControl

TBufferedGraphicControl

TObject