delphi - Delphi 10.1 Berlin默认样式表(文本，不是二进制)

Question

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

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

谢谢

Answer 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;