软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 电脑教程 > 编程开发 > delphi编程 > delphi开发实例:保存字体设置的方法

delphi开发实例:保存字体设置的方法

记得一年前软件里面用到字体设置时,想把字体信息保存到配置文件里面都是把相应的属性分开来保存一下,这样一直使用,最近想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;

interface

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;

    相关阅读
    栏目导航
    推荐软件