Class TExplorerPopup (unit ExplBtn) |
Inherits from
TCustomPanel
TExplorerPopup declaration
constructor Create(AOwner: TComponent);
- TExplorerPopup implementation
procedure Close;
Adjust with the screen limits
procedure CloseIfDocked;
procedure Open(btn: TControl);
procedure DockedFormClose(Sender: TObject; var Action: TCloseAction);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
Again set the client width to force it
* (when the width is small, sometimes Delphi
* increases it (caption length ?))
procedure Loaded;
procedure Paint;
procedure SetUndockable(value: Boolean);
procedure ShiftControlsUpDown(offset: Integer);
Adjusts the vertical position of the components of the popup
procedure WMLButtonDown(var msg: TWMLButtonDown);
procedure WMLButtonUp(var msg: TWMLButtonUp);
procedure WMMouseMove(var msg: TWMMouseMove);
Manage the undocking of the popup
property Caption :
property HideInactive : Boolean
property Redockable : Boolean
property Undockable : Boolean
property Undocked : Boolean
property UndockThreshold : Integer
event OnClose : TNotifyEvent
event OnOpen : TNotifyEvent
event OnUndock : TNotifyEvent
clicked : Boolean;
FHideInactive : Boolean;
FOnClose : TNotifyEvent;
FOnOpen : TNotifyEvent;
FOnUndock : TNotifyEvent;
FRedockable : Boolean;
FUndockable : Boolean;
FUndocked : Boolean;
FUndockThreshold : Integer;
mousex : Integer;
mousey : Integer;
oldParent : TWinControl;
terminated : Boolean;
titleFocused : Boolean;
constructor Create(AOwner: TComponent);
TExplorerPopup implementation
procedure Close;
Adjust with the screen limits
procedure CloseIfDocked;
procedure Open(btn: TControl);
procedure DockedFormClose(Sender: TObject; var Action: TCloseAction);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
Again set the client width to force it
* (when the width is small, sometimes Delphi
* increases it (caption length ?))
procedure Loaded;
procedure Paint;
procedure SetUndockable(value: Boolean);
procedure ShiftControlsUpDown(offset: Integer);
Adjusts the vertical position of the components of the popup
procedure WMLButtonDown(var msg: TWMLButtonDown);
procedure WMLButtonUp(var msg: TWMLButtonUp);
procedure WMMouseMove(var msg: TWMMouseMove);
Manage the undocking of the popup
property Caption :
property HideInactive : Boolean
property Redockable : Boolean
property Undockable : Boolean
property Undocked : Boolean
property UndockThreshold : Integer
event OnClose : TNotifyEvent
event OnOpen : TNotifyEvent
event OnUndock : TNotifyEvent
clicked : Boolean;
FHideInactive : Boolean;
FOnClose : TNotifyEvent;
FOnOpen : TNotifyEvent;
FOnUndock : TNotifyEvent;
FRedockable : Boolean;
FUndockable : Boolean;
FUndocked : Boolean;
FUndockThreshold : Integer;
mousex : Integer;
mousey : Integer;
oldParent : TWinControl;
terminated : Boolean;
titleFocused : Boolean;