FireMonkey 导出目前 Style 另存文件

本篇文章主要介绍了"FireMonkey 导出目前 Style 另存文件"，主要涉及到方面的内容，对于Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下： FireMonkey 能将目前使用的 Style 导出成文件，它提供二种文件格式，请看下列代码：*.styleprocedure TForm1.Button1C...

FireMonkey 能将目前使用的 Style 导出成文件，它提供二种文件格式，请看下列代码：

*.style

procedure TForm1.Button1Click(Sender: TObject);
var Stream1: TFileStream;
beginif TStyleManager.ActiveStyle(Self) <> nilthenbegin          Stream1 := TFileStream.Create('d:\test.style', fmCreate); // 假设文件要储存在 d:\test.style
          TStyleStreaming.SaveToStream(TStyleManager.ActiveStyle(Self), Stream1, TStyleFormat.Text);
          FreeAndNil(Stream1);
     end;
end;

*.fsf

procedure TForm1.Button1Click(Sender: TObject);
var Stream1: TFileStream;
beginif TStyleManager.ActiveStyle(Self) <> nilthenbegin          Stream1 := TFileStream.Create('d:\test.fsf', fmCreate); // 假设文件要储存在 d:\test.fsf
          TStyleStreaming.SaveToStream(TStyleManager.ActiveStyle(Self), Stream1, TStyleFormat.Indexed);
          FreeAndNil(Stream1);
     end;
end;

XE8 格式支持：

TStyleFormat = (Indexed, Binary, Text);

以上就介绍了FireMonkey 导出目前 Style 另存文件，包括了方面的内容，希望对Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。

本文网址链接：http://www.codes51.com/article/detail_149524.html