Ola amigos
Fiz uma pequena modificação na classe TBTNBMP adicionando a clausula CANCEL, ate ai tudo bem, mais gostaria de mudar a cor do texto quando fica desabilitado, este fica com a cor muito apagada, e tambem o BITMAP ficasse cinza.
[EM ESPANHOU usando TRADUKKA]
Hola amigos
Hice un pequeño cambio en la clase TBTNBMP añadir la cláusula de CANCELAR, por lo que ahora todo va bien, la mayoría como para cambiar el color del texto cuando está desactivado, este es el color muy tenue, y también la estancia BITMAP gris.
em FIVEWIN.CH
- Code: Select all Expand view
#xcommand REDEFINE BTNBMP [<oBtn>] ;
[ ID <nId> ] ;
[ <bar: OF, BUTTONBAR > <oBar> ] ;
[ <resource: NAME, RESNAME, RESOURCE> <cResName1> ;
[,<cResName2>[,<cResName3>[,<cResName4>] ] ] ];
[ <file: FILE, FILENAME, DISK> <cBmpFile1> ;
[,<cBmpFile2>[,<cBmpFile3>[,<cBmpFile4>] ] ] ] ;
[ <action:ACTION,EXEC,ON CLICK> <uAction,...> ] ;
[ MESSAGE <cMsg> ] ;
[ <adjust: ADJUST > ] ;
[ WHEN <uWhen> ] ;
[ <lUpdate: UPDATE> ] ;
[ TOOLTIP <cToolTip> ] ;
[ PROMPT <cPrompt> ] ;
[ FONT <oFont> ] ;
[ <lNoBorder: NOBORDER> ] ;
[ <layout: CENTER, TOP, LEFT, BOTTOM, RIGHT> ] ;
[ <l2007: 2007> ] ;
[ <lTrans: TRANSPARENT> ] ;
[ <lNoRound: NOROUND> ];
[ <lCancel: CANCEL> ]; //JACKSON
=> ;
[ <oBtn> := ] TBtnBmp():ReDefine( <nId>, <cResName1>, <cResName2>,;
<cBmpFile1>, <cBmpFile2>, <cMsg>, [{|Self|<uAction>}],;
<oBar>, <.adjust.>, <{uWhen}>, <.lUpdate.>, <cToolTip>,;
<cPrompt>, <oFont>, [<cResName3>], [<cBmpFile3>], [!<.lNoBorder.>],;
[ Upper(<(layout)>) ], <.l2007.>,[<cResName4>], [<cBmpFile4>], <.lTrans.>, !<.lNoRound.>, <.lCancel.> ) //JACKSON <.lCancel.>
EM BTNBMP.PRG em com RESOURCE
- Code: Select all Expand view
METHOD ReDefine( nId, cResName1, cResName2, cBmpFile1, cBmpFile2, cMsg,;
bAction, oBar, lAdjust, bWhen, lUpdate, cToolTip,;
cPrompt, oFont, cResName3, cBmpFile3, lBorder, cLayout, ;
l2007, cResName4, cBmpFile4, lTransparent, lRound, lCancel ) CLASS TBtnBmp //jackson "lCancel"
DEFAULT cMsg := "", lAdjust := .f., lUpdate := .f., lBorder := .t.,;
cLayout := "TOP", l2007 := .f., oBar := GetWndDefault(), lRound := .T.,;
lCancel := .F.
::lCancel := lCancel // jackson
Obrigado pela atenção
