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

Question

如果我右键单击firemonkey控件，我可以选择编辑自定义或默认控件样式，然后保存到文件（.style）。但这只是给了我特定控件的样式（然后它确实没有显示所有内容，例如它没有显示TGBox控件的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;