delphi開發例項 儲存字型設定的方法

2021-06-17 21:25:55 字數 1874 閱讀 9085

記得一年前軟體裡面用到字型設定時,想把字型資訊儲存到配置檔案裡面都是把相應的屬性分開來儲存一下,這樣一直使用,最近想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...