Farbschema auslesen

[hoika]

Hallo #,

folgender Code liest das Farbschema von Windows aus
( aus http://www.swissdelphicenter.ch/de/showcode.php?id=1646)

Delphi-Quellcode:

uses ComObj, SyncObjs, ActiveX;

var
  GetCurrentThemeName: function (pszThemeFileName: LPWSTR; cchMaxNameChars: Integer;
    pszColorBuff: LPWSTR; cchMaxColorChars: Integer; pszSizeBuff: LPWSTR;
    cchMaxSizeChars: Integer): HRESULT; stdcall;

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName, ColorScheme, SizeName: WideString;
  hThemeLib: THandle;
begin
  try
    CoInitialize(NIL);

    hThemeLib := LoadLibrary('uxtheme.dll');
    if hThemeLib > 0 then
      GetCurrentThemeName := GetProcAddress(hThemeLib, 'GetCurrentThemeName');
    if Assigned(GetCurrentThemeName) then
    begin
      SetLength(FileName, 255);
      SetLength(ColorScheme, 255);
      SetLength(SizeName, 255);
      OleCheck(GetCurrentThemeName(PWideChar(FileName), 255,
        PWideChar(ColorScheme), 255, PWideChar(SizeName), 255));
      // show the the theme path and file name.
      ShowMessage(PWideChar(FileName));
      // show the color scheme name
      ShowMessage(PWideChar(ColorScheme));
      // show the size name
      ShowMessage(PWideChar(SizeName));
    end;
  finally
    FreeLibrary(hThemeLib);
  end;
end;

Problem:
Auf einer virtuellen Maschine klappt es (XP mit XP-Mode, normale Farbeinstellung.

Stelle ich um auf "klassisch" und "Kontrast schwarz", kommt bei OleCheck(GetCurrentThemeName
die Meldung "Element nicht gefunden".

Was ist das denn ?

Das Problem scheint darab zu liegen, dass es bei klassisch ja keine Themes gibt (?)

Heiko
die

[himitsu]

Zitat:

Das Problem scheint darab zu liegen, dass es bei klassisch ja keine Themes gibt (?)

Jupp.

Und nein, das ließt nicht das Windows Farbshema aus, sondern das Farbschema des aktiven Theme.

Über clScrollBar bis clMenuBar kommst du an die Farben der WinControls (wenn man sie sich vorher nach RGB konvertiert), aber zum Malen sind sie auch direkt nutzbar.




Seit einer Weile, ich weiß nicht genau seit wann (daheim könnt ich mal nachsehn), könnte man auch die Unit UxTheme verwenden.

Ist 'ne Übersetzung des Headers uxtheme.h .

Dort gibt es noch ein paar Zusatzfunktionen

Delphi-Quellcode:

procedure FreeThemeLibrary;
function InitThemeLibrary: Boolean; // läd ebenfalls in Variablen ala "GetCurrentThemeName" die Funktionszeiger
function UseThemes: Boolean;

UseThemes sieht so aus

Delphi-Quellcode:

function UseThemes: Boolean;
begin
  if (ThemeLibrary > 0) then
    Result := IsAppThemed and IsThemeActive
  else
    Result := False;
end;


//also
{UseThemes} := Assigned(IsAppThemed) and Assigned(IsThemeActive) and IsAppThemed and IsThemeActive;

[hoika]

Hallo,

UxTheme benutze ich.
Das Problem ist aber folgendes.

Der User stellt "Kontrast schwarz" ein.

Damit ist der Button-Hintergrudn schwarz, der Font-Color weiss (naja, so in etwa).

Diese Font.color brauch ich, weil bei TBitButton das Color Schema nicht richtig umgesetzt.

Ich will halt sowas machen:

Delphi-Quellcode:

if not ThemeIsActive then
begin
  BitButton1.Font.Color:= cl ???
end;

Heiko

[uligerhardt]

Zitat von hoika:

Delphi-Quellcode:

if not ThemeIsActive then
begin
  BitButton1.Font.Color:= cl ???
end;

clBtnText? Ggfs. kannst du auch clWindowText probieren.

[hoika]

Hallo,

wollte ich gerade reinschreiben

Dös passt.

Danke


Heiko

[uligerhardt]

Zitat von hoika:

Dös passt.

Cool. Und immer dran denken: Vorder- und Hintergrundfarbe schön pärchenweise setzen, also AControl.Font.Color := clBtnText und AControl.Color := clBtnFace (siehe hier).

[hoika]

Hallo,

beim ersten Durchlesen hatte ich noch gedacht,
wat soll der M...

Dann kam die Erleuchtung.

Danke!


Heiko