topic-22262

Posts: 140

Joined: Tue Oct 11, 2005 02:36 AM

Pequenas Correcoes na TBTNBMP
Posted: Sun Aug 28, 2011 02:58 AM

[EM PORTUGUES BRASIL]
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 (fw): Select all Collapse

#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 (fw): Select all Collapse

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

Jackson Douglas C. Brito

Boa Vista - RR - Brasil

FWH 12.09 Last Build

xHarbour Free

UESTUDIO

SQLRDD

FiveTech Support Forums

Continue the discussion