abfragen, ob XPman eingebunden ist

[MacGuyver]

Moin Leute

Ich konnte dazu leider nichts passendes finden. Wie frage ich ab, ob die Unit "XPman" eingebunden ist?
In manchen Fällen muss man dann etwas anderes machen. Beispiel: Ein Label mit anderer Hintergrundfarbe. Mit Manifest möchte ich ein Panel dahinter packen, ParentBackGround = False und mit der gewünschten Farbe. Ohne XPman brauche ich das nicht.

[Bernhard Geyer]

XPMan ist doch schon längst wieder hinfällig.
Du musst abfragen ob die Anwendung/das Control gethemed ist.
Vermutlich am einfachsten mit der Entsprechenden WinAPI-Methode: https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

[Uwe Raabe]

Vielleicht hilft dir ThemeServices.ThemesEnabled aus der Unit Themes.pas hier weiter.

[MacGuyver]

Danke für die Antworten.

IsAppThemed gibt mir immer True zurück, auch wenn XPman nicht eingebunden ist. Uwes Lösung funktioniert.

[mkinzler]

XPMan wurde nur bei älteren Delphiversionen benötigt.

[himitsu]

Man könnte notfalls auch die Version der "CommonControls" prüfen, bzw. ob bestimmte Features vorhanden/aktiv sind.

PS: XP-Manifest ist nicht gleich XP-Manifest.
Es gibt mehrere Teile innerhalb der Manifest-Ressource und nur ein winziger Teil kümmtert sich im die Anzeige. (hier ob die alten oder die neuen CommonControls verwendet werden sollen, was sich nicht nur auf die Anzeige, sondern vorallem auch verfügbare Funktionalitäten und die verwendete API bezieht)

Zitat:

XPMan wurde nur bei älteren Delphiversionen benötigt.

Und die zugehörige TXPManifest-Komponente war auch voll der Fail. (war nur dafür da die Unit "automatisch" einzubinden, aber entfernen tat sie diese Unit nie nicht wieder)

Zitat von MacGuyver:

IsAppThemed gibt mir immer True zurück, auch wenn XPman nicht eingebunden ist.

Wo/Wann hast du diese Funktion aufgerufen?

Die Remarks in IsAppThemed hast du gesehn?
Die Application kann die Funktionalitäten haben, aber sie müssen nicht aktiv sein.
Also mindestens IsAppThemed and IsThemeActive .

Delphi-Quellcode:

{function TThemeServices.GetThemesEnabled: Boolean;
begin
  Result := FThemesAvailable and FUseThemes and FNewComCtrls;
end;}

function TThemeServices.GetThemesEnabled: Boolean;
begin
  Result := (GetModuleHandle('uxtheme.dll') <> 0)  // FThemesAvailable 
    and (IsAppThemed and IsThemeActive)  // FUseThemes 
    and (GetFileVersion('comctl32.dll') >= {ComCtlVersionIE6}$00060000);  // FNewComCtrls
end;

[Bernhard Geyer]

Zitat von MacGuyver:

Danke für die Antworten.

IsAppThemed gibt mir immer True zurück, auch wenn XPman nicht eingebunden ist. Uwes Lösung funktioniert.

Bei dir steht noch TurboDelphi als verwendet Version. Dort gab es das doch noch nicht.
Mit neuen Delphis ist das natürlich die zu verwendente Lösung.

[MacGuyver]

Bei mir ist die Funktion <IsAppThemed> in der Unit <UxTheme> deklariert. Die Unit ist bei Turbo-Delphi dabei.