window y menu

goosfancito · Post by **goosfancito** » 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.

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 )