Inny Styl i niesprawne kolory czcionek

Jak wiecie, w XE2 wprowadzili jeden bajer - VCL Style Designer:

Wygląd programu wtedy śliczny jest. Można też łatwo przerabiać style w programach graficznych.
Wszystko byłoby pięknie, gdyby nie to, że jeśli korzystam z jakiekolwiek stylu, wtedy przestaje działać kolorowanie tekstu na komponentach i dla przykładu na formie mam TLabel (tekst) szary, inny czerwony, inny powiedzmy niebieski i przy odpalaniu programu nie działają te kolory. Nawet jak przypiszę do Buttona linijkę kodu na zmianę fontu w Label1 na clRed to i tak nie zmieni mi koloru.

Jak rozwiązać ten problem? Chcę mieć kolorowe teksty na komponentach

http://stackoverflow.com/questions/9130945/delphi-xe2-disabling-vcl-style-on-a-component

dużo tego kodu (do tego musiałbym sobie przetłumaczyć go by zrozumieć, a nie lubię robić kopiuj + wklej i to mnie denerwuje)...
btw. To jedyny możliwy sposób, czy są jeszcze jakieś inne?

po włączeniu stylu są ignorowane wszelkie ustawienia dotyczące wyglądu kontrolek, które dany styl obsługuje. Jak ma być prosto to sprowadza się to do "albo rybka albo pipka" a jak chcesz i to i to to trzeba trochę kodu napisać. BTW 30-40 linijek kodu to jest dużo? A angielski to w IT podstawa

chodziło mi po prostu o przetłumaczenie kodu, ale w takim sensie, że linijka po linijce analizuję i czytam w necie, która opcja co robi dokładnie.

np.
TEditStyleHookColor = class(TEditStyleHook)

constructor Create(AControl: TWinControl); override;

CN_CTLCOLORMSGBOX..CN_CTLCOLORSTATIC:

poczytanie jak działa dokładniej:
SetTextColor(Message.WParam, ColorToRGB(FontColor));
SetBkColor(Message.WParam, ColorToRGB(Brush.Color));

i co to:
inherited WndProc(Message);

i w ogóle:
TStyleManager.Engine.RegisterStyleHook(ControlClass, TEditStyleHookColor);
ApplyVCLColorsStyleHook(TwwDBComboDlg);

tak na szybko.
Jutro poczytam w necie

//btw. a przy kopiowaniu kodu na żywca, albo coś, źle robię, albo czepia się różnych rzeczy np. TCustomStyleServices