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...