Delphi 10.1 Berlin 默认样式表（文本，非二进制）

【问题标题】：Delphi 10.1 Berlin default style sheet (Text, not binary)Delphi 10.1 Berlin 默认样式表（文本，非二进制）
【发布时间】：2016-08-10 13:02:15
【问题描述】：

如果我右键单击 firemonkey 控件，我可以选择编辑自定义或默认控件样式，然后保存到文件 (.style)。但这只是为我提供了该特定控件的样式（然后它实际上并没有显示所有内容，例如它不显示 TGrid 控件的 TCheckColumn 的 CheckBoxStyle）。

如何获得整个默认样式表的“文本”版本？

感谢

【问题讨论】：

标签： delphi firemonkey

【解决方案1】：

使用来自this post 的答案我能够创建将样式格式从 TStyleFormat.Binary 更改为 TStyleFormat.Text 的文件

procedure TForm2.FormShow(Sender: TObject);
var
 Default_Style_Block_Pointer:  TFileStream;
begin
 Default_Style_Block_Pointer:=TFileStream.Create('default.StyleBook',fmCreate or fmOpenWrite or fmShareDenyWrite);
  TStyleStreaming.SaveToStream(TStyleManager.ActiveStyle(Self),Default_Style_Block_Pointer,TStyleFormat.Text);

end;

【讨论】：