¿Es posible poner un menú Popup con un Rebar?

Post Reply
Leonel
Posts: 11
Joined: Wed Jun 20, 2007 9:22 pm

¿Es posible poner un menú Popup con un Rebar?

Post by Leonel »

Amigos, necesito poner un menú con Rebar, y me arroja error, si alguien sabe como agregarlo, se lo agradeceré.
Alvaro Urdaneta
Posts: 67
Joined: Wed Mar 29, 2006 10:54 pm
Location: Venezuela

Re: ¿Es posible poner un menú Popup con un Rebar?

Post by Alvaro Urdaneta »

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
Saludos

Alvaro Urdaneta

Fwh 10.8, xharbour1.2.1, bcc582, Brw45
Leonel
Posts: 11
Joined: Wed Jun 20, 2007 9:22 pm

Post by Leonel »

Alvaro, gracias, me di cuenta que sólo tenía que activar el menú.
Post Reply