FireMonkey 导出目前 Style 另存文件
生活随笔
收集整理的這篇文章主要介紹了
FireMonkey 导出目前 Style 另存文件
小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
FireMonkey 能將目前使用的 Style 導(dǎo)出成文件,它提供二種文件格式,請(qǐng)看下列代碼:
*.style
procedure TForm1.Button1Click(Sender: TObject); var Stream1: TFileStream; beginif TStyleManager.ActiveStyle(Self) <> nil thenbeginStream1 := TFileStream.Create('d:\test.style', fmCreate); // 假設(shè)文件要儲(chǔ)存在 d:\test.styleTStyleStreaming.SaveToStream(TStyleManager.ActiveStyle(Self), Stream1, TStyleFormat.Text);FreeAndNil(Stream1);end; end;*.fsf
procedure TForm1.Button1Click(Sender: TObject); var Stream1: TFileStream; beginif TStyleManager.ActiveStyle(Self) <> nil thenbeginStream1 := TFileStream.Create('d:\test.fsf', fmCreate); // 假設(shè)文件要儲(chǔ)存在 d:\test.fsfTStyleStreaming.SaveToStream(TStyleManager.ActiveStyle(Self), Stream1, TStyleFormat.Indexed);FreeAndNil(Stream1);end; end;XE8 格式支持:
TStyleFormat = (Indexed, Binary, Text);
轉(zhuǎn)載于:https://www.cnblogs.com/onechen/p/4646752.html
總結(jié)
以上是生活随笔為你收集整理的FireMonkey 导出目前 Style 另存文件的全部?jī)?nèi)容,希望文章能夠幫你解決所遇到的問(wèn)題。
- 上一篇: Appfuse:记录操作日志
- 下一篇: 解决weblogic Managed S