記得一年前軟體裡面用到字型設定時,想把字型資訊儲存到配置檔案裡面都是把相應的屬性分開來儲存一下,這樣一直使用,最近想delphi自己的dfm檔案也同樣會儲存這些資訊,它又是怎樣儲存的呢。。
用記事本開啟dfm檔案會看到類似這樣的文字:
object label1: tlabel
left = 24
top = 32
width = 140
height = 46
caption = #20445#23384#23454#20363
font.charset = gb2312_charset
font.color = clblue
font.height = -35
font.name = #24494#36719#38597#40657
font.style = [fsbold, fsunderline, fsstrikeout]
parentfont = false
end
自己寫了個直接儲存成檔案檔案的,記錄一下
unit font2string;
inte***ce
uses
classes, sysutils, dialogs, graphics;
function font2file(afont: tfont; apath: string): boolean;
function file2font(apath: string; afont: tfont): boolean;
implementation
function font2file(afont: tfont; apath: string): boolean;
var
fd: tfontdialog;
begin
result := false;
fd := tfontdialog.create(nil);
try
fd.font.assign(afont);
writecomponentresfile(apath, fd);
result := true;
finally
fd.free;
end;
end;
function file2font(apath: string; afont: tfont): boolean;
var
fd: tfontdialog;
begin
result := false;
fd := tfontdialog.create(nil);
try
readcomponentresfile(apath, fd);//如果此外為nil,下面的註冊去掉
afont.assign(fd.font);
result := true;
finally
fd.free;
end;
end;
//initialization
//registerclass(tfontdialog);
end.
例子:procedure tform1.button1click(sender: tobject);
begin
font2file(label1.font, 'd:\font.fnt');//把字型儲存成檔案
end;
procedure tform1.button2click(sender: tobject);
begin
file2font( 'd:\font.fnt', label2.font);//從檔案裡讀取字型
end;
iOS開發 字型的幾種設定方法
ios開發的字型大小設定有幾種方法 uifont font uifont fontwithname nsstring size cgfloat 字型名,和大小來初始化。uifont font uifont fontnamesfo milyname nsstring 從裝置支援的字型的名字中選擇。ui...
UWP開發 應用設定儲存
應用設定儲存指的是儲存在應用程式儲存區中的鍵 值對的字典集合,它自動負責序列化物件,並將其儲存在應用程式裡。以鍵 值對方式提供一種快速資料訪問的方式,主要用於儲存一些應用資訊。1,簡介 應用設定是windows10 中一種經過封裝好的資料儲存方式,它有著自身的一些特點,並且對儲存的資料也有一定的限制...
PyQt例項3 設定字型,字型大小等格式屬性
本例項實現了在工具欄上設定字型,字型大小大小,加粗,斜體,下劃線以及字型顏色等格式屬性的功能,如下 coding utf 8 from pyqt4.qtgui import from pyqt4.qtcore import import sys qtextcodec.setcodecfortr qt...