Blaue Farbe von TListGroup-Titel in TListView

[s.h.a.r.k]

So, kann mir die Antwort nun selbst geben, nachdem ich noch ein wenig tiefer gegraben habe. Man kann über die Methoden und Konstrukte aus den Klassen UxTheme und Themes so ziemlich jede Komponentenfarbe ermitteln. Hier mal der Code für mein Problem:

Delphi-Quellcode:

uses
  UxTheme,
  Themes;

var
  LTheme : HTHeme;
  LColor: Cardinal;
begin
  LTheme := ThemeServices.Theme[teListView];
  if GetThemeColor(LTheme, LVP_GROUPHEADER, PBS_NORMAL, TMT_HEADING1TEXTCOLOR, LColor) = S_OK then
    CB.Canvas.Font.Color := LColor;
end;

Problem dabei ist nur, dass man sich erst mal alle Konstanten raussuchen und diese dann auch noch passend kombinieren muss