FWH 8.11 bKeyDown fails

Horizon · Post by **Horizon** » Wed Dec 03, 2008 5:24 pm

Antonio,

Have you checked it?

Post by **Antonio Linares** » Wed Dec 03, 2008 10:02 pm

Hakan,

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

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

fraxzi · Post by **fraxzi** » 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.

fraxzi · Post by **fraxzi** » Thu Dec 04, 2008 2:19 am

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

http://forums.fivetechsoft.com/viewtopi ... 1105#71105

Regards,

Horizon · Post by **Horizon** » 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
         if IsAppThemed() .and. ! ::lTransparent
            if Empty( oDlg:oBrush:hBitmap )
               oDlg:bEraseBkGnd = { | hDC | DrawPBack( oDlg:hWnd, hDC ), 1 }
            endif
         endif

Post by **Antonio Linares** » 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.

Post by **Antonio Linares** » Thu Dec 04, 2008 10:07 am

Hakan,

We have implemented your charset suggestion, this way:

Code: Select all

   #ifdef _DEFAULT_CHARSET_ 
      DEFAULT nCharSet := _DEFAULT_CHARSET_
   #endif

as we use uppercase for defines. Thanks

Post by **Antonio Linares** » Thu Dec 04, 2008 10:09 am

Hakan,

Or are you using a public variable for it ?

Horizon · Post by **Horizon** » 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?

Horizon · Post by **Horizon** » Fri Dec 12, 2008 10:16 pm

Hi Antonio,

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

Thanks,