Property eines TObjects setzen Frage

[KodeZwerg]

@generic

Delphi-Quellcode:

procedure TfrmMain.SetObjectColors(AObject: TObject);
const
  sPropColor = 'Color';
  sPropFont = 'Font.Color';
var
  Context: TRttiContext;
  RType: TRttiType;
  Prop: TRttiProperty;
begin
  Context := TRttiContext.Create;
  RType := Context.GetType(AObject.ClassType);
  for Prop in RType.GetProperties do
    begin
      if Prop.Name = sPropColor then
          Prop.SetValue(AObject, FBackgroundColor);
      if Prop.Name = sPropFont then
          Prop.SetValue(AObject, FTextColor);
    end;
  Context.Free;
end;

Dank Deines Tutorials und weil es mir Spass macht rumzuprobieren, ist das entstanden, kA ob es Vorteile oder Nachteile gegenüber DeddyH sein code gibt, das war im Tutorial nicht erwähnt.

[Uwe Raabe]

Ich fürchte bei Font.Color wird es nicht funktionieren, denn das Property ist Font und der hat ein Property Color. Also sollte man nach Property Font suchen und sich die Font-Instanz holen, um dessen Color zu setzen.

[KodeZwerg]

Zitat von Uwe Raabe:

Ich fürchte bei Font.Color wird es nicht funktionieren, denn das Property ist Font und der hat ein Property Color. Also sollte man nach Property Font suchen und sich die Font-Instanz holen, um dessen Color zu setzen.

Es funktioniert bereits. Wenn mein Projekt fertig ist stelle ich es gerne vor.
Da Du der erfahrenere bist, werde ich meinen Code entsprechend ändern! Dankeschön für den Hinweis!!
Es handelt sich um OS-Theme integration.

[KodeZwerg]

Im Anhang ein paar Bilder vom jetzt-Zustanded des Projekts.

Das erste Bild verwendet von Windows das Dark/Light Theme.
Das zweite Bild verwendet die in Windows eingestellte Farbe.
Das dritte Bild verwendet einen durchschnittswert vom Wallpaper.
Das vierte Bild nutzt clBtnFace und clWindowText als Delphi-Vorgabe.

[TiGü]

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

[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 Uwe Raabe:

Ich fürchte bei Font.Color wird es nicht funktionieren, denn das Property ist Font und der hat ein Property Color. Also sollte man nach Property Font suchen und sich die Font-Instanz holen, um dessen Color zu setzen.

Guten Morgen!

Ich bin gerade am aufräumen meines Codes und wollte nun Deinen Vorschlag richtig umsetzen, zur Sicherheit Frage ich nochmal nach ob ich es so anwende wie Du es meintest.

Delphi-Quellcode:

procedure TfrmMain.SetObjectColors(AObject: TObject);
const
  sPropColor = 'Color';
  sPropFont = 'Font';
var
  Context: TRttiContext;
  RType: TRttiType;
  Prop: TRttiProperty;
  Fields: TRttiField;
begin
  Context := TRttiContext.Create;
  RType := Context.GetType(AObject.ClassType);
  for Prop in RType.GetProperties do
  begin
    if Prop.Name = sPropColor then
      Prop.SetValue(AObject, FColorBackground);
    if Prop.Name = sPropFont then
      for Fields in RType.GetFields do
        if Fields.Name = SPropColor then
          Fields.SetValue(AObject, FColorText);
  end;
  Context.Free;
end;

[Uwe Raabe]

Eventuell eher so:

Delphi-Quellcode:

  for Prop in RType.GetProperties do
  begin
    if Prop.Name = sPropColor then
      Prop.SetValue(AObject, FColorBackground);
    if Prop.PropertyType.IsInstance and Prop.PropertyType.AsInstance.MetaclassType.InheritsFrom(TFont) and (Prop.Name = sPropFont) then 
      TFont(prop.GetValue(AObject).AsObject).Color := FColorText;
  end;

[KodeZwerg]

Zitat von Uwe Raabe:

Eventuell eher so...

Das übernehme ich gerne so wie Du es geschrieben hast.
Vielen Dank Uwe!

//edit
Noch eine Frage, wäre

Delphi-Quellcode:

    if (Prop.Name = sPropFont) and Prop.PropertyType.IsInstance and Prop.PropertyType.AsInstance.MetaclassType.InheritsFrom(TFont) then
      TFont(prop.GetValue(AObject).AsObject).Color := FColorText;

nicht sinnvoller um gleich am Anfang unnützes auszuschließen?