FiveTech Support Forums

Hola,

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

Gracias anticipadas,

jllinas wrote:¿ 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

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,

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 ?

Antonio,

I made allready this modify LAST YEAR

I can send you this features

jllinas wrote: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