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.
oBtn:cToolTip := "ToolTip"Efectivamente BIEL funciona, pero pregunto yo, esto no puede estar implementado en el include como una clausula más ?
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.
#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)>) ] )Hola Carlos,
si desde recurso si se puede, Andrés queria hacerlo con el comando @ <nRow>, <nCol> BTNBMP [<oBtn>] ...
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.