| Class TMenuToolBar (unit MenuToolBar) |
TToolBar
| Constructors |
constructor Create(Owner: TComponent);| Functions |
destructor Destroy;
procedure CloseBtnClick(Sender: TObject);
procedure CreateMenuButtons;
procedure HideMDIElements;
procedure MinimizeBtnClick(Sender: TObject);
procedure RestoreBtnClick(Sender: TObject);
procedure ShowMDIElements;
procedure TBAddButtons(var Message: TMessage);
procedure TBInsertButton(var Message: TMessage);
procedure WMSize(var Message: TWMSize);
procedure WndClientHook(var Message: TMessage);
procedure WndHook(var Message: TMessage);
procedure WndProc(var Message: TMessage);
procedure SetDefaultMenuFont;| Properties |
property Font : | Events |
| Variables |
CloseBtn : TSpeedButton;
Form : TForm;
Hooks : TList;
IconButton : TIconButton;
MinimizeBtn : TSpeedButton;
OldClientProc : Pointer;
OldWndProc : Pointer;
Panel : TPanel;
RestoreBtn : TSpeedButton;
WndClientHookProc : Pointer;
WndHookProc : Pointer;| Constructors |
constructor Create(Owner: TComponent);Public declarations
| Functions |
destructor Destroy;
procedure CloseBtnClick(Sender: TObject);
procedure CreateMenuButtons;
procedure HideMDIElements;
procedure MinimizeBtnClick(Sender: TObject);
procedure RestoreBtnClick(Sender: TObject);
procedure ShowMDIElements;
procedure TBAddButtons(var Message: TMessage);
procedure TBInsertButton(var Message: TMessage);
procedure WMSize(var Message: TWMSize);
procedure WndClientHook(var Message: TMessage);
procedure WndHook(var Message: TMessage);
procedure WndProc(var Message: TMessage);Protected declarations
procedure SetDefaultMenuFont;| Properties |
property Font : Published declarations
| Events |
| Variables |
CloseBtn : TSpeedButton;
Form : TForm;
Hooks : TList;
IconButton : TIconButton;
MinimizeBtn : TSpeedButton;
OldClientProc : Pointer;
OldWndProc : Pointer;
Panel : TPanel;Private declarations
RestoreBtn : TSpeedButton;
WndClientHookProc : Pointer;
WndHookProc : Pointer;