XE6 GroupBox的Caption颜色

XE环境里，GroupBox的Caption颜色改变无效，设计器，代码设置都无效

d:\program files (x86)\embarcadero\studio\14.0\SOURCE\VCL\Vcl.StdCtrls.pas

最新修改了procedure TCustomGroupBox.Paint;的加了个Font.Color参数，这个是参考XE6的panel控件 Paint事件得出来的。

if Text <> '' then
        StyleServices.DrawText(Handle, Details, Text, CaptionRect, [tfLeft],Font.Color);

修改了源文件，把文件要加入到工程里编译才生效！

至于D7为何没有颜色参数但设置起作用，后续再研究

D7的Paint事件走的是下半部分

if ThemeServices.ThemesEnabled

....//xe6

else

//d7

XE走的是上面的

果真如此啊，

xe6里把判断条件路径置反，就好了！！

     if ThemeControl(Self) =false then//=false 加了个这，原始的是为true才执行

如何才能关闭theme呢

Vcl.Themes.pas

function TUxThemeStyle.GetEnabled: Boolean;
begin
  Result := FAvailable and FUseThemes and FNewComCtrls;
end;