Blaue Farbe von TListGroup-Titel in TListView

[s.h.a.r.k]

Hallo zusammen,

bin gerade auf der Jagd nach der genauen Farbe des TListGroup-Titels einer TListView. Im Anhang könnt ihr sehen, welche Farbe ich meine.

Ich bin immerhin schon auf die Methode ListView_GetGroupMetrics gestoßen, die mir aber leider noch keinerlei sinnvolle Farbe geliefert hat. Der folgende Code liefert mir immer clBlack, da GM.crHeader gleich 0 ist:

Delphi-Quellcode:

var
  GM : TLVGroupMetrics;
  CR : COLORREF;
  C : TColor;
begin
  ListView_GetGroupMetrics(ListViewLogMessages.Handle, GM);
  CR := GM.crHeader;
  C := ColorToRGB(CR);
end;

Zudem noch eine Info: Eigentlich will ich auf eine ListView verzichten, wenn ich auf die Farbe zugreifen will!