Syles in eigener Komponente verwenden.

[Whookie]

Wenn es nur um Farben geht mache ich das in etwa so:

Delphi-Quellcode:

  { Set the color of label text }
  if (StyleServices.Enabled) And (seFont In StyleElements) then
  begin
    if not Enabled then
      Canvas.Font.Color := StyleServices.GetStyleFontColor(sfWindowTextDisabled)
    else
      Canvas.Font.Color := StyleServices.GetStyleFontColor(sfWindowTextNormal);
  end
  else
  begin
    if not Enabled then
      Canvas.Font.Color := clGrayText
    else
      Canvas.Font.Color := iColr;
  end;

  Canvas.TextOut(xo+CDO, yo+CDO, Text);

Für alles andere bieten die StyleServices natürlich auch Funktionen und Konstanten (zu finden in Vcl.Themes.pas).