Hi,
wenn XP-Themes aktiviert sind, sind die einzelnen Seiten eines PageControls, die TabSheets, ja in anderen Farben, z.B. unter dem sibernen Theme sind sie komplett weiß.
Nun brauche ich genau diese Farbe, vordefiniert ist sie ja nicht.
Deshalb hab ich folgenden Code genommen, allerdings liefert der mit viel zu dunkle oder gar keine Farben, weil wahrscheinlich auch zwei Angaben falsch sind.
Delphi-Quellcode:
...
Details:=ThemeServices.GetElementDetails(t***) //Stelle 1
GetThemeColor(
ThemeServices.Theme[Details.Element],
Details.Part,
Details.State,
TMT_*** //Stelle 2
Color);
...
An den beiden markierten Stellen habe ich wahrscheinlich falsche Sachen eingesetzt, nur weiß ich halt nicht, welche ich brauche um die Farbe der Tabsheets rauszukriegen.
Vielleicht hat ja jemand Erfahrung damit oder hatte das gleiche Problem schon mal?!?
Danke schonmal...