"Style" prüfen

[choose]

Hallo Pseudemys Nelsoni,

der im Folgenden beschriebene Ansatz ist sicher nicht mein Favorit, lässt sich aber schnell darstellen Zunächst einmal führe ich einen typisierten Ordinalwert TMyThemeColor ein. Er repräsentiert den "Farbindex" der Farbe, also zB "Farbe für ein Edit" oder "Farbe für ein Memo". Dabei macht ist es später oft von Vorteil, einen Dummy-Wert (hier: mtcNone) anzulegen. Die Menge aller Farben halte ich in dem Array TMyTheme, in dem zu jedem Farbindex genau eine Farbe zugerordnet werden kann

Delphi-Quellcode:

type
  TMyThemeColor = (mtcNone, mtcEdit, mtcMemo, mtcListbox);

  TMyTheme = array[TMyThemeColor] of TColor;

Benutzt werden kann so ein Array zB in der Art
myArray[mtcEdit]:= clWindow; Der Vergleich eines "Themes" mit einem anderen könnte verbal etwa lauten "Themes sind dann und nur dann gleich, wenn alle Farben (außer dem Dummywert) gleich sind".
Die folgende Funktion übernimmt dies

Delphi-Quellcode:

function AreThemesEqual(const ATheme, AnotherTheme: TMyTheme): Boolean;
var
  i: TMyThemeColor;
begin
  i:= High(TMyThemeColor);
  while (i>mtcNone) and (ColorToRGB(ATheme[i])=ColorToRGB(AnotherTheme[i])) do
    i:= Pred(i);

  Result:= i<=mtcNone;
end;

Es fällt zum einen auf, dass dieser Vergleich dank des Dummywerts ohne ein Break realisiert werden konnte (und ohne den Gültigkeisbereich von TMyThemeColor zu verletzen), zum anderen, dass ich nicht direkt
ATheme[i]=AnotherTheme[i] verglichen habe. Das hängt mit der Tatsache zusammen, dass Farben gleich sein können, ohne identisch zu sein, zB clWindow zu clWhite, obgleich clWindow auch "weiß" sein kann... (genaueres in der OH)

Für eine wirklich elegante Lösung, würde ich natürlich eine Theme-Klasse mit einer Vergleichsoperation implementieren, die mit Konfigurationen verwendet werden kann, zu der es wiederum Listen gibt und die sich auf Steuerelemente aller Fenster zu Screen anwenden lässt...