Popup menu en tButtonBmp

[jllinas]

Hola,

¿ Existe alguna manera de utilizar popup menú en la clase tButtonBmp ?

Gracias anticipadas,

[mmercado]

¿ Existe alguna manera de utilizar popup menú en la clase tButtonBmp ?

Hola Julio:

Revisa el programa TestBtnm.prg en \FWH\SAMPLES

Un abrazo.

Manuel Mercado

[jllinas]

Maestro,

Gracias por estas líneas. Ya había visto el ejemplo que mencionas, pero ocurre que en ese caso utilizan la clase tBtnBmp, y mi interrogante es con la clase tButtonBmp, que es puro y duro a 32 bits.

Agradezco tu interés sobretodo...

Abrazos,

[Antonio Linares]

Julio,

Aún no está implementado pero no creo que sea dificil de hacer.

Habria que modificar LButtonDown para detectar la zona en la que se hace click y abrir el popup.

Te animas a intentarlo ?

[Silvio]

Antonio,

I made allready this modify LAST YEAR

I can send you this features

[FranciscoA]

Hola,

¿ Existe alguna manera de utilizar popup menú en la clase tButtonBmp ?

Gracias anticipadas,

jllinas, Antonio:

Aqui les dejo como hago para crearle un Menu Popup a TbuttonBmp, sin modificar la classe.
Espero les sea de utilidad. FWH 7.12

oBot11 := TButtonBmp():New( 10, 45, "ButtonBmp con PoPup", oWnd:oWndClient, {|| PopButtonBmp(oBot11) }, 200,34,,, .F., .F., .F.,, .F.,,, .F., ".\Clientes.bmp", Upper("TEXTRIGHT"), )


//--------------------
Function PopButtonBmp(oBot)
local oMenu, nRow:=oBot:nHeight

MENU oMenu POPUP 2007
MENUITEM "&Estados de Cuentas" ACTION msginfo("hola")
SEPARATOR
MENUITEM "Re&ordenar ficheros" ACTION msginfo("hola, de nuevo")
ENDMENU
ACTIVATE POPUP oMenu WINDOW oBot AT nRow, 0

return nil