Themes.pas og opdatering ved nyt theme
Dette spørgsmål omhandler themes.pas i Delphi 7 (Personal).Når jeg bruger themes-uniten til at tegne med, så tjekker jeg naturligvis først om der kan tegnes med Windows XP-themes.
Dertil bruger jeg normalt ThemeServices.ThemesEnabled.
Problem:
Hvis jeg kører med mit normale theme når jeg starter mit program, og mens programmet kører skifter til "Layouttypen Windows klassisk" (intet theme), og dernæst tilbage igen, så er ThemeServices.ThemesEnabled = false. Det virker som om den ikke opdateres efter at themes har været slået fra, for når jeg kalder det manuelt, på samme måde som ThemeServices.ThemesEnabled, nemlig følgende måde...
uses
UxTheme, ComCtrls;
if UseThemes and ThemeServices.ThemesAvailable and (GetComCtlVersion >= ComCtlVersionIE6) then
... så tegner den intet når jeg prøver samme nummer med at slå themes fra og til. Er det virkeligt nødvendigt at lave sin egen themes.pas, eller skal man selv jonglere med UxTheme?
Eller er der nogen af jer der har en nem løsning?
