Unit AdvMenus

*********************************************************************} { HSoftware Components Collection } { } { Copyright (C) 1996 by Artem A. Berman } { E-mail: art@aber.kherson.ua } {***********************************************************************} { This components can be freely used and distributed in commercial and } { private environments, provied this notice is not modified in any way. } { ----------------------------------------------------------------------} { Version 1.0. Date last modified: 05/03/96 } { ----------------------------------------------------------------------

Classes

TLinkPopUpMenu -
TSystemMenu -
TSystemMenuItem -

Functions

MenuItemToSystemMenuItem -
Register - inherited Popup(X, Y);
SystemMenuItemToMenuItem -

Types

Constants

Variables


Functions


function MenuItemToSystemMenuItem(AItem: TMenuItem): TSystemMenuItem;


procedure Register;

inherited Popup(X, Y);

function SystemMenuItemToMenuItem(AItem: TSystemMenuItem): TMenuItem;


Types


Constants


Variables