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

Board index FiveWin para Harbour/xHarbour ¿Es posible poner un menú Popup con un Rebar?

Leonel

Posts: 11

Joined: Wed Jun 20, 2007 09:22 PM

¿Es posible poner un menú Popup con un Rebar?
Posted: Tue Jun 26, 2007 05:47 PM

Amigos, necesito poner un menú con Rebar, y me arroja error, si alguien sabe como agregarlo, se lo agradeceré.

Alvaro Urdaneta

Posts: 69

Joined: Wed Mar 29, 2006 10:54 PM

Re: ¿Es posible poner un menú Popup con un Rebar?
Posted: Tue Jun 26, 2007 09: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 25.09, xharbour1.3.1, bcc77, Brw45

Leonel

Posts: 11

Joined: Wed Jun 20, 2007 09:22 PM

¿Es posible poner un menú Popup con un Rebar?
Posted: Tue Jun 26, 2007 09:48 PM

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

FiveTech Support Forums

Continue the discussion