[64] White back of read-only edits in packed files props

[MVV]

Great thanks, it works perfect!
Looks right in both classic and Aero themes.

[ghisler(Author)]

Thanks! Unfortunately there is a problem with XP themes (e.g. from deviantart) used on Vista/7. The problem is the following:

I use this code to get the right color with themes:

Code: Select all

    xptheme:=OpenThemeData(handle,'Tab');
    if is_vista then
      err:=GetThemeColor(xptheme,TABP_AEROWIZARDBODY, TIS_NORMAL, TMT_FILLCOLORHINT,themecolor)
    else
      err:=GetThemeColor(xptheme,TABP_BODY, TIS_NORMAL, TMT_FILLCOLORHINT,themecolor);
    CloseThemeData(xptheme);

The problem is that TABP_AEROWIZARDBODY only exists in themes created for Vista/7, not for XP. The function returns WHITE in this case, and err is 0. Therefore I have no idea that the color is wrong. Asking the theme for the TABP_BODY color does return the right color!

So does anyone know how to find out programmatically whether a theme supports a certain feature or not?

[Sob]

It's definitely fixed for Classic theme. Aero also has correct white.

But with other themes I didn't have much success. E.g. with "dEEP 7 3.0" theme (you have it from testing cut off captions in menubar) the tab body background is light gray, but edits are white. But it may be the XP themes problem you describe.

So does anyone know how to find out programmatically whether a theme supports a certain feature or not?

Not tested, but IsThemePartDefined() sounds promising.

[ghisler(Author)]

Thanks, I will try that!

[ghisler(Author)]

This should be fixed in beta 4, please test! In the end I had to use GetPixel, because IsThemePartDefined() always returned true on Windows 7, also for these old XP themes.

[MVV]

In the end I had to use GetPixel, because IsThemePartDefined() always returned true on Windows 7, also for these old XP themes.

Nice idea.

It works fine in both Aero and classic themes under W7, I have no other themes (I don't use themes at all) to test.

[Sob]

I do have few other themes for testing and I can confirm the fix for all of them.

[ghisler(Author)]

Great, thanks for your tests!