Farbe eines TabSheets mit aktivem XP-Theme?

[mirage228]

Hi Benedikt,

ich stehe zur Zeit vor dem selben Problem.

Ich hab bisher so versucht.

Delphi-Quellcode:

var
  Details: TThemedElementDetails;
  C: COLORREF;
begin
  Details:= Themes.ThemeServices.GetElementDetails(Themes.ttBody);
  C := Themes.ThemeServices.ColorToRGB(PageControl1.Pages[0].Brush.Color, @Details);
  Panel1.Color := RGB(GetRValue(C), GetGValue(C), GetBValue(C));
end;

Aber die Farbe des Panels ist immer son komisches Braun...

mfG
mirage228