¿Es posible poner un menú Popup con un Rebar?
¿Es posible poner un menú Popup con un Rebar?
Amigos, necesito poner un menú con Rebar, y me arroja error, si alguien sabe como agregarlo, se lo agradeceré.
-
- Posts: 67
- Joined: Wed Mar 29, 2006 10:54 pm
- Location: Venezuela
Re: ¿Es posible poner un menú Popup con un Rebar?
Leonel,
Yo lo hago asi:
FUNCTION MiFuncion()
LOCAL oMenu, nRow, nCol, aPos := GetCursorPos()
nRow := aPos[1]
nCol := aPos[2]
MENU oMenu POPUP
MENUITEM OemToAnsi( "Opcion 1" ) ACTION Funcion1()
MENUITEM OemToAnsi( "Opcion 2" ) ACTION Funcion2()
ENDMENU
ACTIVATE MENU oMenu AT nRow, nCol OF oMainWnd
oMainWnd:Refresh()
RETURN NIL
Yo lo hago asi:
FUNCTION MiFuncion()
LOCAL oMenu, nRow, nCol, aPos := GetCursorPos()
nRow := aPos[1]
nCol := aPos[2]
MENU oMenu POPUP
MENUITEM OemToAnsi( "Opcion 1" ) ACTION Funcion1()
MENUITEM OemToAnsi( "Opcion 2" ) ACTION Funcion2()
ENDMENU
ACTIVATE MENU oMenu AT nRow, nCol OF oMainWnd
oMainWnd:Refresh()
RETURN NIL
Saludos
Alvaro Urdaneta
Fwh 10.8, xharbour1.2.1, bcc582, Brw45
Alvaro Urdaneta
Fwh 10.8, xharbour1.2.1, bcc582, Brw45