No difference in tabs of lisbox

[driessen]

Hello,

I have this screen using listbox. In the listbox I have several tabs. The are working just fine. Only the colors are bothering me.
Since the tabs are all white, you hardley can see the differene between them

This is how my screen looks like:



Can anyone tell me how to change the color of everything that is white on this screen, except the listbox itself?

Thanks a lot in advance for any help.

[cnavarro]

Dear Driessen
You use TFolderEx ?

[karinha]

Try in menu principal:

Code: Select all | Expand

   oSkinB = TSkinButton():New()

   oSkinB:nClrBorder0_N := RGB( 249, 194, 179 )
   oSkinB:nClrBorder1_N := RGB( 181, 61, 29 )

   oSkinB:aClrNormal    := { { .50, nRGB( 210, 235, 216 ), nRGB( 199,182,231 ) } }
                                              //  118, 96, 138 / 135, 121, 78

   SkinButtons( oSkinB )

Or show how you are doing it, because the LISTBOX has nothing to do with the Buttons.

Regards, saludos

[karinha]

Code: Select all | Expand

    DEFINE DIALOG oDlg RESOURCE "FOLDER"           ;
           TITLE "Gerenciamento dos Devedores - "+ ;
                 "Cadastro - Inclusão " +          ;
                 "/ Alteração"                     ;
           COLORS CLR_BLACK, nRGB( 193, 205, 205 ) ;
           ICON oIco

    ODLG:LHELPICON := .F.

    REDEFINE FOLDER oFld ID 101 OF oDlg                          ;
             PROMPT "&Dados Comerciais ", "&Complemento ",       ;
                    "&Inadimplencia "                            ;
             DIALOGS "FLD_GENERAL", "FLD_GENERAL_2",             ;
                     "FLD_GENERAL_3"                             ;
             BITMAPS "MFONE", "EXPLORER2", "COMP16"              ;
             TABCOLOR   CLR_HBLUE                                ;
             FOCUSCOLOR CLR_HRED                                 ;
             COLORS nRGB( 127, 127, 127 ), nRGB( 143, 188, 143 ) ;
             ADJUST

    oFld:oFont := FntArial

    oFld:SetOption( 1 )

    oFld:Show()

    oFld:aEnable[ 1 ] := .T.
    oFld:Refresh()

Regards, saludos.