FiveTech Software tech support forums

Posted: **Wed Dec 03, 2008 5:24 pm**

Antonio,

Have you checked it?

Posted: **Wed Dec 03, 2008 10:02 pm**

Hakan,

yes, I have seen it. This fix seems to be ok in Class TFolder line 453:

Code: Select all Expand view: if IsAppThemed() .and. ! ::lTransparent if Empty( oDlg:oBrush:hBitmap ) oDlg:bEraseBkGnd = { | hDC | DrawPBack( oDlg:hWnd, hDC ), 1 } endif endif

Posted: **Thu Dec 04, 2008 1:32 am**

Hi!

I noticed the first image with groupbox's font is different from folder's...

My problem is with 8.11 (or even the 2.4) the groupbox inherited the folder's font....

any of groupbox or folder or control class modified?

My regards,

Horizon wrote:Hi Antonio,

As I said these lines are not mine. I use SetColor method in dialog. Without these lines transparent does not works.

I have captured one of my form with changes and without changes below.

with changes:

without (means i deleted changed Tfolder.prg from my make list. use standart library.)

The code is the same.

Posted: **Thu Dec 04, 2008 2:19 am**

This could be related... Please look...

http://forums.fivetechsoft.com/viewtopic.php?p=71105#71105

Regards,

Posted: **Thu Dec 04, 2008 5:35 am**

Hi Antonio,

After this correction, There is no need to set color to dialog. It is OK for me.

Did yo consider the my second issue. (The font nCharSer problem)?

Thanks,

Antonio Linares wrote:Hakan,

yes, I have seen it. This fix seems to be ok in line 453:
Code: Select all Expand view
if IsAppThemed() .and. ! ::lTransparent if Empty( oDlg:oBrush:hBitmap ) oDlg:bEraseBkGnd = { | hDC | DrawPBack( oDlg:hWnd, hDC ), 1 } endif endif

Posted: **Thu Dec 04, 2008 8:30 am**

Frances,

Yes, I see what you mean.

But we have not found a solution for it yet :-(

Class TControl Method Colors() is the last place where the font can be set, before painting, and it is ignored.

Posted: **Thu Dec 04, 2008 10:07 am**

Hakan,

We have implemented your charset suggestion, this way:

Code: Select all Expand view: #ifdef _DEFAULT_CHARSET_ DEFAULT nCharSet := _DEFAULT_CHARSET_ #endif

as we use uppercase for defines. Thanks

Posted: **Thu Dec 04, 2008 10:09 am**

Hakan,

Or are you using a public variable for it ?

Posted: **Thu Dec 04, 2008 11:24 am**

Hi Antonio,

I have not used yet.

I think I can define top of my application like that

#define _DEFAULT_CHARSET_ 1

Can I use it like that?

Posted: **Fri Dec 12, 2008 10:16 pm**

Hi Antonio,

Have you added these changes 8.11. Can I download again 8.11?

Thanks,

FiveTech Software tech support forums

FWH 8.11 bKeyDown fails