Property eines TObjects setzen Frage

[KodeZwerg]

Zitat von TiGü:

Wenn du jetzt noch in denn Projektoptionen | Application | Manifest | Enable Runtime Themes aktivierst, sieht es nicht mehr so aus wie vor 15 Jahren.

Da habe ich das Problem das dann die Font-Farbe bei manchen Objekten schwarz bleibt, siehe Anhang.

[venice2]

Zitat von KodeZwerg:

Zitat von TiGü:

Wenn du jetzt noch in denn Projektoptionen | Application | Manifest | Enable Runtime Themes aktivierst, sieht es nicht mehr so aus wie vor 15 Jahren.

Da habe ich das Problem das dann die Font-Farbe bei manchen Objekten schwarz bleibt, siehe Anhang.

Logisch!
Du hast im Thread (Windows 10+ Dark/Light in Application.)

Zitat:

Ich versuche gerade krampfhaft herauszufinden welchen TColor-Wert Windows für "Color" und "Font.Color" benutzt um diese in meine Anwendung zu übernehmen.

gefragt und machst den Fehler
Prop.SetValue(AObject, FTextColor);

Die Fontfarbe vom Control zu setzen.
Warum bitte schön verwendest du dann nicht auch GetImmersiveColorFromColorSetEx
Dafür ist es gedacht!

ImmersiveColor vom System für das jeweilige Control holen und diese Farbe setzen.
Siehe auch GetThemeSysColor und Konsorte.

tsss..

[KodeZwerg]

Zitat von venice2:

Warum bitte schön verwendest du dann nicht auch GetImmersiveColorFromColorSetEx

Delphi-Quellcode:

procedure TfrmMain.ApplyThemedColors;
var
  i: Integer;
begin
  if IsDarkTheme then
    begin
      FBackgroundColor := FColorSet.Colors[ImmersiveApplicationBackgroundDarkTheme];
      FTextColor := FColorSet.Colors[ImmersiveApplicationTextDarkTheme];
    end
    else
    begin
      FBackgroundColor := FColorSet.Colors[ImmersiveApplicationBackgroundLightTheme];
      FTextColor := FColorSet.Colors[ImmersiveApplicationTextLightTheme];
    end;
  UpdateColors;
end;

Aber vielleicht verstehe ich Dich da gerade auch falsch, wäre nicht das erste mal

[venice2]

Zitat:

procedure TfrmMain.ApplyThemedColors;

Hatte die nicht gesehen

Ok.. Habe das mal am Beispiel gescheckt da scheint noch einiges im argen zu sein mit der uImmersiveColors Unit.

EDIT:
Die Fontfarbe der RadioButton kann man nicht ändern ohne OwnerDrawn diese wird von Windows verwaltet.
Lösung: Kein Caption angeben und nen Label dahinter setzen. (Oder selber zeichnen)

[KodeZwerg]

Ich mach neuen Thread auf und poste mein schändliches werk, dann kann jeder mit rumspielen und liebend gerne Verbesserungen äußern. Klingt das fair?
Weil sobald ich das manifest theme aktiviere sind ja die externen api commoncontrols an der reihe und pfeifen auf alles was ich einstelle.

Warte bitte noch ein paar minuten, ich hab noch was hinzugefügt was den font betrifft.