Folder Colors

[Randal]

All,

Is there anyway to change the folder colors and use xp themes? I've been using xp themes with FWH Apr 2006 and my folders had the same background color as the dialogs. I just upgraded to latest FWH and now my folders have a white background. On one window where we have 2 folders and a lot of controls it's just too white! I saw another thread about this topic and tried the suggestion:

oFld:SetColor(Rgb(0,0,0),Rgb(200,200,255))
oFld:aDialogs[1]:SetColor(Rgb(0,0,0),Rgb(200,200,255))
oFld:aDialogs[2]:SetColor(Rgb(0,0,0),Rgb(200,200,255))

but this has no effect. Am I doing something wrong or is there another way?

Thanks,
Randal

[Antonio Linares]

Randal,

In class TFolder, search for these lines and comment them out:

Code: Select all  Expand view

            // if Empty( oDlg:oBrush:hBitmap )
            //    oDlg:bEraseBkGnd = { | hDC | DrawPBack( oDlg:hWnd, hDC ), 1 }
            // endif   


[TimStone]

You could also use a BMP background for a nice result.

[Randal]

Antonio,

Thanks, that worked great.

Randal

Randal,

In class TFolder, search for these lines and comment them out:

Code: Select all  Expand view

            // if Empty( oDlg:oBrush:hBitmap )
            //    oDlg:bEraseBkGnd = { | hDC | DrawPBack( oDlg:hWnd, hDC ), 1 }
            // endif   


[Randal]

You could also use a BMP background for a nice result.

Tim,

Thanks for the suggestion. Do you have an example of that?

Thanks,
Randal

[TimStone]

Sure.

DEFINE BRUSH oBrush RESOURCE "SKY"
DEFINE DIALOG oDlg RESOURCE "RES001" BRUSH oBrush TRANSPARENT OF oWnd FONT oWnd:oFont

RES001 is the dialog resource stored in your .rc file
SKY is the BMP resource also stored in your .rc file

You can use a pattern bitmap, that tiles or you can use a picture converted to a BMP that would fit into the background. I use both. It may not be just like Office 2007, but it does give good contrast.