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;
begin
Result := FAvailable and FUseThemes and FNewComCtrls;
end;