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

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

Postby Leonel » Tue Jun 26, 2007 5:47 pm

Amigos, necesito poner un menú con Rebar, y me arroja error, si alguien sabe como agregarlo, se lo agradeceré.
Leonel
 
Posts: 11
Joined: Wed Jun 20, 2007 9:22 pm

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

Postby Alvaro Urdaneta » Tue Jun 26, 2007 9:31 pm

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
Alvaro Urdaneta
 
Posts: 67
Joined: Wed Mar 29, 2006 10:54 pm
Location: Venezuela

Postby Leonel » Tue Jun 26, 2007 9:48 pm

Alvaro, gracias, me di cuenta que sólo tenía que activar el menú.
Leonel
 
Posts: 11
Joined: Wed Jun 20, 2007 9:22 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 92 guests

cron