Class TCustomSystemMenus97 (unit Menus97)

Inherits from

TCustomPopupMenus97

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;



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;