[XPManifest] Ist XP-Theme verfügbar?

[calculon]

Hi Leute,

ich probiere gerade aus, ob ich mit den Alpha Controls (Lite) nicht eine Anwendung etwas aufbrettern kann. Das sieht soweit auch ganz gut aus. An der FH hab' ich jetzt mein Programm erst testen wollen und musste feststellen, dass dort obwohl WinXP-Pro installiert ist, das XP-Theming wohl ausgestellt ist, da der XP-Look nicht funktioniert (trotz XPManifest). Wenn dies der Fall ist, sehen die AlphaControls unsäglich beschissen aus. Deshalb würde ich beim Programmstart gerne checken, ob die XP-Themes verfügbar sind. Wenn ja, sollen die AlphaControls auch aktiviert werden, wenn nein dann nicht. Ich hatte erst den Ansatz das Betriebssystem zu checken, aber wie beschrieben ist das keine verlässliche Information. Gibt es die Möglichkeit irgendwie über API-Funktionen zu checken, ob XPTheme.IsAvailable, oder so?

CrossPost

Gruß

Calculon
--

[mirage228]

ThemeServices.ThemesEnabled (Themes aktiviert) bzw. ThemeServices.ThemesAvailable (Themes verfügbar)

Edit: Unit Themes, ab Delphi 7

mfG
mirage228

[calculon]

Erstmal vielen Dank für die Info :thumb:

Also ich hab' jetzt meinem Projekt beugefügt:

Delphi-Quellcode:

if themeservices.ThemesAvailable then

Da ich das nicht testen kann (FH erst Montag wieder) und die Hilfe u. Google auch nicht weiterhelfen konnten, frag' ich jetzt mal. Ist mit ThemesAvailable das XP-Theming gemeint? Was passiert unter Vista?

Gruß

Calculon
--

[mirage228]

Zitat:

Zitat von calculon

Also ich hab' jetzt meinem Projekt beugefügt:

Delphi-Quellcode:

if themeservices.ThemesAvailable then

Da ich das nicht testen kann (FH erst Montag wieder) und die Hilfe u. Google auch nicht weiterhelfen konnten, frag' ich jetzt mal. Ist mit ThemesAvailable das XP-Theming gemeint? Was passiert unter Vista?

ThemesAvailable gibt nur an, ob Themes generell verfügbar sind. Konkret versucht die Unit Themes die Datei "uxtheme.dll" und einige dessen Methoden zu laden. Ist dies erfolgreich, ist ThemesAvailable = true. ThemesAvailable ist erst ab Windows XP oder höher true.
Das was du suchst dürfte aber eher ThemesEnabled sein. Diese Eigenschaft zeigt an, ob generell die neuartigen Themes (z.B. die XP-Themes) auch aktiviert (und nicht nur "verfügbar") sind...
Unter Vista müsste die Funktion genauso funktionieren wie unter XP, ich kann dir dazu aber keine konkrete Aussage machen, da ich noch kein Vista zum Testen dieser Methoden hier hatte bzw. habe...

mfG
mirage228

[calculon]

Zitat:

Zitat von mirage228

Unter Vista müsste die Funktion genauso funktionieren wie unter XP, ich kann dir dazu aber keine konkrete Aussage machen, da ich noch kein Vista zum Testen dieser Methoden hier hatte bzw. habe...

Da werd' ich bestimmt irgendwann mal die Möglichkeit haben das zu testen.

Zitat:

Zitat von mirage228

Das was du suchst dürfte aber eher ThemesEnabled sein. Diese Eigenschaft zeigt an, ob generell die neuartigen Themes (z.B. die XP-Themes) auch aktiviert (und nicht nur "verfügbar") sind...

Okay, comprendo...

Nochmals danke ! :stupid:

Gruß

Calculon
--