lo implemente y funciona con unos arreglos:
- Code: Select all Expand view RUN
ACTIVATE POPUP oMenu AT aPos[1] + 30 , aPos[2] -10 OF oBtn:oWnd:oWnd
pero aun tengo mis dudas ya que si ves esta imagenes veras las diferencias.
[/img]
[img][/img]
[/img]ahorita tengo esto en el codigo:
- Code: Select all Expand view RUN
DEFINE BUTTON oBtn[2] OF oBar ;
RESOURCE "PRINTER" ;
ACTION MenuPop(oBtn[2]);
FONT oWndPrinc:oFont ;
MESSAGE " Reportes del Sistema" ;
NOBORDER ;
GROUP
que corresponde a la primera figura, pero lo pongo asi.
- Code: Select all Expand view RUN
DEFINE BUTTON oBtn[2] OF oBar ;
RESOURCE "PRINTER" ;
MENU MenuPop(oBtn[2]) ;
ACTION MenuPop(oBtn[2]);
FONT oWndPrinc:oFont ;
MESSAGE " Reportes del Sistema" ;
NOBORDER ;
GROUP
que deberia de ser asi, para que quede como la 2a. figura, me sale este error.
- Code: Select all Expand view RUN
Application
===========
Path and name: C:\PruebaMenus\Menus.Exe (32 bits)
Size: 786,944 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 19/01/2006, 10:24:12
Error description: Error BASE/1004 Class: 'NIL' has no exported method: HWND
Args:
Stack Calls
===========
Called from: => HWND(0)
Called from: => MENUPOP(102)
Called from: menus.prg => MAIN(57)
Haciendo lo que me mencionaste en el post anterior, porque sera Antonio.
Saludos
Marco A. Delgado.
