| Class TCustomMainMenus97 (unit Menus97) |
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure NewTFormWndProc(Var Message: TMessage);
function CalcMenuBarHeight: Integer;
procedure DrawMenuBarItem(Item: TMenuItem; Var Rect: TRect; State: TOwnerDrawState);
procedure FontChange(Sender: TObject);
function GetMainMenu: TMainMenu;
procedure SetHideMenuBar(Value: Boolean);
procedure SetMainMenu(Value: TMainMenu);
procedure SetToolBar(Value: TCustomMenuBar97);| Properties |
property HideMenuBar : Boolean
property MainMenu : TMainMenu
property ToolBar : TCustomMenuBar97| Events |
| Variables |
FHideMenuBar : Boolean;
FHitPos : Integer;
FHitTest : Boolean;
FMenuOpen : Boolean;
FPushedButton : Boolean;
FToolBar : TCustomMenuBar97;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure NewTFormWndProc(Var Message: TMessage);
function CalcMenuBarHeight: Integer;
procedure DrawMenuBarItem(Item: TMenuItem; Var Rect: TRect; State: TOwnerDrawState);
procedure FontChange(Sender: TObject);
function GetMainMenu: TMainMenu;
procedure SetHideMenuBar(Value: Boolean);
procedure SetMainMenu(Value: TMainMenu);
procedure SetToolBar(Value: TCustomMenuBar97);else we call the old DefaultProc.
| Properties |
property HideMenuBar : Boolean
property MainMenu : TMainMenu
property ToolBar : TCustomMenuBar97| Events |
| Variables |
FHideMenuBar : Boolean;
FHitPos : Integer;
FHitTest : Boolean;
FMenuOpen : Boolean;
FPushedButton : Boolean;
FToolBar : TCustomMenuBar97;