FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Folder Colors
Posts: 284
Joined: Mon Oct 24, 2005 08:04 PM
Folder Colors
Posted: Tue Nov 13, 2007 05:31 PM

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

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Folder Colors
Posted: Tue Nov 13, 2007 05:49 PM
Randal,

In class TFolder, search for these lines and comment them out:
            // if Empty( oDlg:oBrush:hBitmap )
            //    oDlg:bEraseBkGnd = { | hDC | DrawPBack( oDlg:hWnd, hDC ), 1 }
            // endif
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 3022
Joined: Fri Oct 07, 2005 01:45 PM
Folder background
Posted: Tue Nov 13, 2007 08:14 PM

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

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit
Posts: 284
Joined: Mon Oct 24, 2005 08:04 PM
Folder Colors
Posted: Tue Nov 13, 2007 08:57 PM
Antonio,

Thanks, that worked great.

Randal


Antonio Linares wrote:Randal,

In class TFolder, search for these lines and comment them out:
            // if Empty( oDlg:oBrush:hBitmap )
            //    oDlg:bEraseBkGnd = { | hDC | DrawPBack( oDlg:hWnd, hDC ), 1 }
            // endif
Posts: 284
Joined: Mon Oct 24, 2005 08:04 PM
Re: Folder background
Posted: Tue Nov 13, 2007 08:57 PM
TimStone wrote: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
Posts: 3022
Joined: Fri Oct 07, 2005 01:45 PM
BMP background
Posted: Tue Nov 13, 2007 09:10 PM

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.

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit

Continue the discussion