FWH 8.11 bKeyDown fails

[Horizon]

Antonio,

Have you checked it?

[Antonio Linares]

Hakan,

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

Code: Select all  Expand view  RUN

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


[fraxzi]

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,

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]

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


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


Regards,

[Horizon]

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,

Hakan,

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

Code: Select all  Expand view  RUN

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


[Antonio Linares]

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.

[Antonio Linares]

Hakan,

We have implemented your charset suggestion, this way:

Code: Select all  Expand view  RUN

   #ifdef _DEFAULT_CHARSET_
      DEFAULT nCharSet := _DEFAULT_CHARSET_
   #endif


as we use uppercase for defines. Thanks

[Antonio Linares]

Hakan,

Or are you using a public variable for it ?

[Horizon]

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]

Hi Antonio,

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

Thanks,