Class TCustomMainMenus97 (unit Menus97)

Inherits from

TCustomMenus97

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;



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;