Fontcolor der Groupbox im Xp-Style

[cheatzs]

Ich hab jetzt eine für mich akzeptable Lösung.
Unzwar ist mir beim Durchgehen des Programms auf das ich verwiesen hatte eines aufgefallen.
Die Schrift passend zum Start-Menu-Button konnte ebenfalls Problemlos mit der selben Procedure dargestellt werden. So eine Schrift kann man aber nicht in nem gewöhnlichem Label ausgeben. Also muss sie Windows selbst zeichnen.
Das heißt sozusagen es gibt keine Möglichkeit, soweit ich das jetzt mitbkommen habe, nur die Farbe rauszubekommen. Das einzigste was man kann ist die Prozedure zu benutzen um den Text zu zeichnen.

Und so hab ich es dann auch gemacht:

Delphi-Quellcode:

var hhtheme : HTheme;
begin
  hhTheme:= OpenThemeData(MainForm.Handle,'Button');
  DrawThemeText(hhTheme,label.Canvas.Handle,BP_GROUPBOX, GBS_NORMAL, 'Hallo', -1, DT_LEFT, 0,label.Canvas.ClipRect);
  CloseThemeData(hhTheme);
end;

Vielleicht hilft es euch!