Antonio,
Have you checked it?
Regards,
Hakan ONEMLI
Harbour & MSVC 2022 & FWH 23.06
Hakan ONEMLI
Harbour & MSVC 2022 & FWH 23.06
Antonio,
Have you checked it?
if IsAppThemed() .and. ! ::lTransparent
if Empty( oDlg:oBrush:hBitmap )
oDlg:bEraseBkGnd = { | hDC | DrawPBack( oDlg:hWnd, hDC ), 1 }
endif
endifHorizon 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.
Antonio Linares wrote:Hakan,
yes, I have seen it. This fix seems to be ok in line 453:
if IsAppThemed() .and. ! ::lTransparent if Empty( oDlg:oBrush:hBitmap ) oDlg:bEraseBkGnd = { | hDC | DrawPBack( oDlg:hWnd, hDC ), 1 } endif endif
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.
#ifdef _DEFAULT_CHARSET_
DEFAULT nCharSet := _DEFAULT_CHARSET_
#endifHakan,
Or are you using a public variable for it ?
Hi Antonio,
I have not used yet.
I think I can define top of my application like that
Can I use it like that?
Hi Antonio,
Have you added these changes 8.11. Can I download again 8.11?
Thanks,