//注意引用:vcl.themes, vcl.styles, IOutilsprocedure 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;
用Bitmap Style Designer 设计后,Test Vcl Style测试后颜色变化字体大小不变!!!仅仅有FormTitle的字体大小变了
但是测试选择 Test FireMonkey Style 字体大小变化了。难道xe6 不支持vcl变化字体大小???