Windows 10 Fenstertitelfarbe ermitteln

[DCoderHH]

Hallo,

wie kann ich unter Windows 10 die Farbe der Fenstertiteleiste (aktiv und inaktiv) ermitteln?

Bei mir ist die aktive auf blau und die inaktive auf weiß eingestellt. Zu sehen im angehängten Bildschirmfoto.

Danke :-)

[Uwe Raabe]

GetSysColor

[himitsu]

clActiveCaption clInactiveCaption ColorToRGB

Aber z.B. bei Windows 7 mit den Styles ist das nicht mehr so einfach.

[DCoderHH]

Danke, aber weder GetSysColor noch clActiveCaption/clInactiveCaption liefern die richtigen Farben. clActiveCaption/clInactiveCaption werden von Delphi mit GetSysColor belegt, daher haben diese Konstanten exakt die selben Farben.

Windows 7 ist nicht wichtig. Ich brauche das nur für Window 10. Muss/kann man das evtl. über die Themes irgendwie auslesen?

[DCoderHH]

Hier noch ein Bild, wie die Farben sein sollen wie und sie aber mit den oben genannten Lösungen falsch aussehen.

[Uwe Raabe]

Wo hast du denn die verwendeten Farben eingestellt?

[DCoderHH]

Zitat:

Zitat von Uwe Raabe (Beitrag 1327559)

Wo hast du denn die verwendeten Farben eingestellt?

Im Code per:

Delphi-Quellcode:

pSysColorActive.Color := GetSysColor(COLOR_ACTIVECAPTION);
pSysColorInactive.Color := GetSysColor(COLOR_INACTIVECAPTION);

[Der schöne Günther]

Kann ich bestätigen, mir geht es genauso.

Nicht vergessen: Mit Windows 10 waren erst einmal alle Fenster weiß. Egal ob aktiv oder inaktiv. Erst seit dem "November-Update" kann man einstellen dass die "Benutzerfarbe" sich auch auf die Titelbar des aktiven Fensters auswirkt. Das ist die gleiche Farbe die man z.B. auch im Action Center oder Startmenü haben kann.

[DCoderHH]

Ich vermute sogar, dass GetSysColor(COLOR_ACTIVECAPTION) auch unter Windows 8 nicht funktioniert, da in der Hilfe die Rede von einem Farbverlauf ist, den es schon bei Windows 8 und 8.1 nicht mehr gab. Wer kann das mal testen?

[himitsu]

Zitat:

Windows 7 ist nicht wichtig. Ich brauche das nur für Window 10. Muss/kann man das evtl. über die Themes irgendwie auslesen?

Seit XP und vorallem seit Vista/7 werden die Fenster vom System geskinnt und daher stimmen die "alten" APIs nicht mehr ganz.

Was man zumindestens machen kann, ist sich von Windows das Control (hier ein Fenster mit Rahmen) in ein Bitmap zeichnen zu lassen oder halt über den Desktop an ein Fenster ran zu gehen und dann die Farbe eines Pixels auszulesen.

[DCoderHH]

Zitat:

Zitat von himitsu (Beitrag 1327567)

Was man zumindestens machen kann, ist sich von Windows das Control (hier ein Fenster mit Rahmen) in ein Bitmap zeichnen zu lassen

Wie macht man das?

[himitsu]

https://msdn.microsoft.com/en-us/lib.../dd162760.aspx
DrawFrameControl

TThemeServices.DrawElement

http://www.delphi-treff.de/tipps-tri...lage-kopieren/
http://www.delphipraxis.net/114571-s...speichern.html

[Uwe Raabe]

Eigentlich sollte es auch möglich sein mit StyleServices.ColorToRGB das gewünschte Ergebnis zu bekommen - habe das aber jetzt nicht ausprobiert.

[Sherlock]

Meines Erachtens ist es viel zu aufwendig das zu machen. Man vergißt sehr gerne folgende Konstellation, die ich übrigens verwende: Wechselnde Desktopbilder kombiniert mit automatisch angepaßter Farbgebung. Am leichtesten kann man das "erleben" indem man ein sogenanntes Design herunterlädt und ausprobiert (http://windows.microsoft.com/de-de/w..._client_themes). Will man es also richtig machen, müßte man also ein entsprechendes Systemereignis überwachen, daß mitteilt, daß sich mal wieder die Farbgebung geändert hat. Dann müßte man die komplette Applikation dieser geänderten Farbe anpassen. Darum sollte man in Applikationen die Standardfarben verwenden, die von MS bzw. Embarcadero vorgeschlagen werden.

Sherlock

[Redeemer]

Und wenn gar nichts mehr geht, dann mit TForm.GlassFrame die Farbe als Hintergrund nutzen.