KodeZwerg's Real Theme Beispiel

[venice2]

Zitat:

Ich frage mich, was einem diese Immersive Colors bringen.

Fast nichts!

Weil diverse Controls von Windows behandelt werden sobald die Themes eingeschaltet sind.
Siehe Radio Buttons, Tooltips und Diverser anderer Kram.

Man muß also wieder OwnerDrawn damit die Farbe dem Dark Mode oder was auch immer angepaßt werden kann.

Zitat:

Das ist bereits enthalten (Desktop-Themed). Oder ich verstehe dich gerade fasch?

Du prüfst auf GetWallpaperFilename (Wallpaper ist eigentlich immer da) aber man kann den Hintergrund auch einfarbig schalten.
Wenn dieser einfarbig ist benötigst du die Prüfung auf GetAverageColor nicht mehr.

[KodeZwerg]

Zitat von venice2:

Zitat:

Das ist bereits enthalten (Desktop-Themed). Oder ich verstehe dich gerade fasch?

Du prüfst auf GetWallpaperFilename (Wallpaper ist eigentlich immer da) aber man kann den Hintergrund auch einfarbig schalten.
Wenn dieser einfarbig ist benötigst du die Prüfung auf GetAverageColor nicht mehr.

Schau mal bitte das Bild im Anhang an, vielleicht reden wir ja auch an einander vorbei, wenn man bei diesem Setting von Bild -> Volltonfarbe geht, da passiert etwas in meinem Programm.
Der RadioButton ist deaktiviert weil ab diesem moment "GetWallpaperFilename" leer ist, muss noch mehr geprüft werden?
Ich habe vielleicht echt gerade Tomaten auf den Augen und finde besagte Zeile nicht die da noch aktiv sein soll.

Ps: Da mir das spielen mit Delphi und Windows Theme so viel Spass bereitet, arbeite ich an einer "Glas-Methode"

[venice2]

Zitat:

Der RadioButton ist deaktiviert weil ab diesem moment "GetWallpaperFilename" leer ist, muss noch mehr geprüft werden?

Habe dein Prog nicht geladen oder getestet und bin davon ausgegangen das immer ein Wallpaper (Pfad dazu) existiert egal ob du diesen ausgewählt hast oder nicht.
Wenn es so ist wie du sagst erübrigt sich die zusätzliche Abfrage aus der Registry natürlich. (Vorausgesetzt du benötigst die Farbe für die VollTonFarbe nicht)

Zitat:

Du musst noch den Fall abfangen, das jemand einfarbige Hintergründe gesetzt hat.

Ist dann nicht nötig.

EDIT:
Habe es so verstanden wenn Wallpaper verwendet wird setzt du den Mittelwert der Farbe davon.
Welchen wert setzt du nun bei der Volltonfarbe? (Denke das ist was @Tigü meint). Den Bekommst du nur aus der registry
Der Pfad fehlt definitiv in deinem Code (HKEY_CURRENT_USER\Control Panel\Colors\Background)

[KodeZwerg]

Zitat von venice2:

Zitat:

Der RadioButton ist deaktiviert weil ab diesem moment "GetWallpaperFilename" leer ist, muss noch mehr geprüft werden?

Habe dein Prog nicht geladen oder getestet und bin davon ausgegangen das immer ein Wallpaper (Pfad dazu) existiert egal ob du diesen ausgewählt hast oder nicht.
Wenn es so ist wie du sagst erübrigt sich die zusätzliche Abfrage aus der Registry natürlich. (Vorausgesetzt du benötigst die Farbe für die VollTonFarbe nicht)

Zitat:

Du musst noch den Fall abfangen, das jemand einfarbige Hintergründe gesetzt hat.

Ist dann nicht nötig.

Die Volltonfarbe wird für "Desktop-Theme" verwendet
Aber gut das das geklärt ist. Definitiv Danke das Du es angesprochen hast!

[venice2]

Siehe Edit!

[KodeZwerg]

Post #1 geupdaten, nun mit optionalem Windows 10+ DWM Transparent und Blur effekt.

[KodeZwerg]

Update in Post #1, nun ist es eine simpel anzuwendende Klasse (so empfinde ich es jedenfalls)

LG

[KodeZwerg]

Zitat von venice2:

EDIT:
Habe es so verstanden wenn Wallpaper verwendet wird setzt du den Mittelwert der Farbe davon.

Korrekt!

Zitat von venice2:

Welchen wert setzt du nun bei der Volltonfarbe? (Denke das ist was @Tigü meint). Den Bekommst du nur aus der registry
Der Pfad fehlt definitiv in deinem Code (HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper)

Delphi-Quellcode:

procedure TfrmMain.ApplyDesktopColors;
begin
  FBackgroundColor := GetSysColor(COLOR_DESKTOP); <<<--- diesen hier = Volltonfarbe
  case cbSimpleFont.Checked of
    True:
      FTextColor := SimpleInvertColor(FBackgroundColor);
    false:
      FTextColor := InvertColor(GetSysColor(COLOR_DESKTOP));
  end;
  UpdateColors;
end;

//edit
und kaum poste ich es, fällt mir ein fehler auf, danke fürs fragen!

[venice2]

FBackgroundColor := GetSysColor(COLOR_DESKTOP); <<<--- diesen hier = Volltonfarbe
Ok erklärt alles. Sollte das gleiche wie der Wert aus der Registry sein (hoffe ich mal)

Zitat:

Der Pfad fehlt definitiv in deinem Code (HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper)

Den Pfad hatte ich nochmals korrigiert. Sorry (HKEY_CURRENT_USER\Control Panel\Colors\Background)

Zitat:

und kaum poste ich es, fällt mir ein fehler auf, danke fürs fragen!

Ich sehe nur eins.
FTextColor := InvertColor(GetSysColor(COLOR_DESKTOP)); // FTextColor := InvertColor(FBackgroundColor);

Na dann weiter viel Spaß.

[KodeZwerg]

Was mir echt weiterhelfen würde, vielleicht kennst Du ja was, Farbwert für Fonts.... siehst ja mein kläglichen Versuch was brauchbares rauszuholen.
Windows muss doch dafür auch irgendwo was haben, ich fand bis jetzt nichts brauchbares.
GetSysColor() wäre mir da am liebsten, bei Mircosoft gabs auch keine Treffer auf meine Anfragen.

//edit
"FTextColor" ist die Font-Farbe bei mir, falls das noch unklar sein sollte.

Zitat:

Na dann weiter viel Spaß.

Danke, den habe ich, dir auch alles Gute!