Wie kann man in Delphi Extension-DLL den Dunkel- oder Hellmodus abfragen

[mattia72]

Hallo,

ich habe so probiert, aber es gibt immer 'Mountain_Mist' zurück:

Delphi-Quellcode:

   
if Assigned(TStyleManager.ActiveStyle) then begin
   Result := TStyleManager.ActiveStyle.Name;
end;

Ich möchte eigentlich dunkle oder helle Farben je nach eingestelltem IDE-Stil einstellen.

[mattia72]

Ich hab's gefunden:

Delphi-Quellcode:

   var
      themingServices : IOTAIDEThemingServices;

   if Supports(BorlandIDEServices, IOTAIDEThemingServices, ThemingServices) then begin
      Result := themingServices.ActiveTheme;
   end;

Dark oder Hell wird zurückgegeben.

[Uwe Raabe]

Zitat:

Zitat von mattia72 (Beitrag 1545025)

Dark oder Hell wird zurückgegeben.

Sieht sprachlich nicht so konsistent aus...

[mattia72]

Ups. Ich wollte natürlich Dark oder Hell Light schreiben.
Danke für den Hinweis.

[Redeemer]

Zitat:

Zitat von Uwe Raabe (Beitrag 1545039)

Zitat:

Zitat von mattia72 (Beitrag 1545025)

Dark oder Hell wird zurückgegeben.

Sieht sprachlich nicht so konsistent aus...

Dark ist halt dunkel und Hell ist Dark mit zusätzlich etwas Rot vom Höllenfeuer.