home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR19
/
OBJ20D.ZIP
/
MENUS.CH
< prev
next >
Wrap
Text File
|
1993-05-15
|
550b
|
21 lines
#ifndef _MENUS_CH
#define _MENUS_CH
#xcommand DEFINE MENU <oMenu> ;
=> ;
<oMenu> := TMenu():New()
#xcommand DEFINE PAD [<oPad>] ;
[ OF <oMenu> ] ;
[ PROMPT <cPrompt> ] ;
[ AT <nRow>, <nCol> ] ;
[ ACTION <uAction> ] ;
[ MESSAGE <cMsg> ] ;
=> ;
<oMenu>:AddItem( [ <oPad> := ] TMenuItem():New( <nRow>, <nCol>,;
<cPrompt>, <cMsg>, <{uAction}> ) )
#xcommand ACTIVATE MENU <oMenu> => <oMenu>:Exec()
#endif