xe Style

//注意引用：vcl.themes, vcl.styles, IOutils
procedure TForm1.FormCreate(Sender: TObject);
var
  stylename: string;
begin
  TStyleManager.LoadFromFile(‘F:\My\Style1.vsf‘);
  for stylename in  TStyleManager.StyleNames do
    listbox1.Items.Add(stylename);
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  TStyleManager.SetStyle(Listbox1.Items[Listbox1.ItemIndex]);
end;

设置button文字颜色有效果，为什么对字体大小不行呢？vcl模式下。

用Bitmap Style Designer 设计后，Test Vcl Style测试后颜色变化字体大小不变！！！

但是测试选择 Test FireMonkey Style 字体大小变化了。难度xe6 不支持vcl变化字体大小？？？

xe Style