| Class TCustomSystemMenus97 (unit Menus97) |
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure NewTFormWndProc(Var Message: TMessage);
procedure AddItemsToSytemMenu(MenuItems: TMenuItem; MenuHandle: THandle);
procedure CalcBannerRect;
function FindItemByCommand(Command: Word): TMenuItem;
function HasBanner(Item: TMenuItem): boolean;
procedure ModifyMenuTree(MenuItems : TMenuItem; Restore: Boolean);| Properties |
property scClose : TSystemMenu97Options
property scMaximize : TSystemMenu97Options
property scMinimize : TSystemMenu97Options
property scMove : TSystemMenu97Options
property scNextWindow : TSystemMenu97Options
property scPrevWindow : TSystemMenu97Options
property scRestore : TSystemMenu97Options
property scScreenSave : TSystemMenu97Options
property scSize : TSystemMenu97Options
property scTaskList : TSystemMenu97Options| Events |
| Variables |
FInsertBefore : Integer;
FOwnerHandle : THandle;
FScItem : array[0..9] of TSystemMenu97Options;
FSysMenuHandle : THandle;| Constructors |
constructor Create(AOwner: TComponent);TSystemMenu
| Functions |
destructor Destroy;
procedure NewTFormWndProc(Var Message: TMessage);
procedure AddItemsToSytemMenu(MenuItems: TMenuItem; MenuHandle: THandle);
procedure CalcBannerRect;
function FindItemByCommand(Command: Word): TMenuItem;
function HasBanner(Item: TMenuItem): boolean;
procedure ModifyMenuTree(MenuItems : TMenuItem; Restore: Boolean);| Properties |
property scClose : TSystemMenu97Options
property scMaximize : TSystemMenu97Options
property scMinimize : TSystemMenu97Options
property scMove : TSystemMenu97Options
property scNextWindow : TSystemMenu97Options
property scPrevWindow : TSystemMenu97Options
property scRestore : TSystemMenu97Options
property scScreenSave : TSystemMenu97Options
property scSize : TSystemMenu97Options
property scTaskList : TSystemMenu97Options| Events |
| Variables |
FInsertBefore : Integer;
FOwnerHandle : THandle;
FScItem : array[0..9] of TSystemMenu97Options;
FSysMenuHandle : THandle;