Tooltip con BTNBMP por codigo.

[Andrés González]

He visto que solo puedo generar un tooltip desde recursos con la clase BTNBMP, es posible tambien generarlo desde codigo? En los includes no esta implementado solo cuando se emplean recursos.

[Biel EA6DD]

Usando comando parece que no puede hacerse, pero puedes hacerlo despues de crear el boton.

Code: Select all  Expand view

oBtn:cToolTip  := "ToolTip"
 

[Andrés González]

Efectivamente BIEL funciona, pero pregunto yo, esto no puede estar implementado en el include como una clausula más ?

[Biel EA6DD]

Hombre poder se puede, pero habria que cambiar el metodo new de la clase tBtnBmp, porque ahora no recibe este parametro, y el fichero FiveWin.ch, modificando el comando.

[Carlos Mora]

Andrés,

¿que versión de FW estás usando? En el Fivewin.ch de la versión 7.07, en el comando del TBTNBMP y en el redefine aparece TOOLTIP como opción. ¿O es otra cosa y yo me confundí?

Code: Select all  Expand view

#xcommand DEFINE BUTTON [ <oBtn> ] ;
             [ <bar: OF, BUTTONBAR > <oBar> ] ;
             [ <resource: NAME, RESNAME, RESOURCE> <cResName1> ;
                [,<cResName2>[,<cResName3>] ] ] ;
             [ <file: FILE, FILENAME, DISK> <cBmpFile1> ;
                [,<cBmpFile2>[,<cBmpFile3>] ] ] ;
             [ <action:ACTION,EXEC> <uAction,...> ] ;
             [ <group: GROUP > ] ;
             [ MESSAGE <cMsg> ] ;
             [ <adjust: ADJUST > ] ;
             [ WHEN <WhenFunc> ] ;
             [ TOOLTIP <cToolTip> ] ;
             [ <lPressed: PRESSED> ] ;
             [ ON DROP <bDrop> ] ;
             [ AT <nPos> ] ;
             [ PROMPT <cPrompt> ] ;
             [ FONT <oFont> ] ;
             [ <lNoBorder: NOBORDER, FLAT> ] ;
             [ MENU <oPopup> ] ;
             [ <layout: CENTER, TOP, LEFT, BOTTOM, RIGHT> ] ;
      => ;
         [ <oBtn> := ] TBtnBmp():NewBar( <cResName1>, <cResName2>,;
            <cBmpFile1>, <cBmpFile2>, <cMsg>, [{|This|<uAction>}],;
            <.group.>, <oBar>, <.adjust.>, <{WhenFunc}>,;
            <cToolTip>, <.lPressed.>, [\{||<bDrop>\}], [#<uAction>], <nPos>,;
            <cPrompt>, <oFont>, [<cResName3>], [<cBmpFile3>], [!<.lNoBorder.>],;
            [<oPopup>], [ Upper(<(layout)>) ] )

 

Por cierto, te respondí el correo pero no obtuve respuesta.

[Biel EA6DD]

Hola Carlos,
si desde recurso si se puede, Andrés queria hacerlo con el comando @ <nRow>, <nCol> BTNBMP [<oBtn>] ...

[Andrés González]

Si Carlos estoy suscrito a varias listas y posiblemente se me paso ahora lo reviso y te contesto lo que dice Biel con los recursos esta pero no esta directamente desde codigo.

Biel te mande lo del WMI revisalo puesto que es muy interesante, por cierto no localizo el ejemplo de ADSI y me interesa mucho.