XE8 格式支持

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

*.style

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

*.fsf

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

XE8 格式支持:

TStyleFormat = (Indexed, Binary, Text);

本文由必威发布于必威-编程,转载请注明出处:XE8 格式支持

TAG标签:
Ctrl+D 将本页面保存为书签,全面了解最新资讯,方便快捷。