window y menu
Posted: Thu Mar 11, 2021 8:44 am
Hola.
No logro que aparezca el menu, de hecho si hago lo siguiente me da error al compilar.
No logro que aparezca el menu, de hecho si hago lo siguiente me da error al compilar.
Code: Select all
METHOD Menu()
Menu ::oMenu Popup 2007
MenuItem "Style Set" File "..\bitmaps\styleset161.BMP"
MenuItem "Colors"
MenuItem "Font"
EndMenu
RETURN ( NIL )
//------------------------------------------------------------------------------
METHOD pantalla()
LOCAL this := Self
DEFINE WINDOW ::oWnd TITLE ".: Sistema administrativo :."
DEFINE RIBBONBAR ::oRb WINDOW ::oWnd prompt "Carpetas" HEIGHT 100 topmargin 40
ADD GROUP ::oGrp[ 01 ] RIBBON ::oRb TO OPTION 1 prompt "Nueva carpeta" WIDTH 130
ACTIVATE WINDOW ::oWnd MAXIMIZED
::oWnd:setmenu( ::omenu() ) <------------------------- aca me da error. no encuentra ::oWnd, ya probe con this:oWnd
::oRb:END()
RETURN ( NIL )