Class TExplorerPopup (unit ExplBtn)

Inherits from

TCustomPanel

TExplorerPopup declaration

Constructors


constructor Create(AOwner: TComponent);

TExplorerPopup implementation


Functions

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

Properties

property Caption :


property HideInactive : Boolean


property Redockable : Boolean


property Undockable : Boolean


property Undocked : Boolean


property UndockThreshold : Integer


Events

event OnClose : TNotifyEvent


event OnOpen : TNotifyEvent


event OnUndock : TNotifyEvent


Variables

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;



Constructors


constructor Create(AOwner: TComponent);

TExplorerPopup implementation


Functions


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


Properties


property Caption :


property HideInactive : Boolean


property Redockable : Boolean


property Undockable : Boolean


property Undocked : Boolean


property UndockThreshold : Integer


Events


event OnClose : TNotifyEvent


event OnOpen : TNotifyEvent


event OnUndock : TNotifyEvent


Variables


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;