zoukankan      html  css  js  c++  java
  • delphi开发实例:保存字体设置的方法

    http://blog.csdn.net/delphi308/article/details/9906147

    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;
    delphi lazarus opengl 网页操作自动化, 图像分析破解,游戏开发
  • 相关阅读:
    全局函数和静态函数
    C语言变量总结
    #ifdef、#ifndef 与 #endif
    #include与#define的意义
    exit
    字符常量
    void *:万能指针
    算法(Algorithms)第4版 练习 链表类 1.3.19~1.3.29
    算法(Algorithms)第4版 练习 1.3.219
    算法(Algorithms)第4版 练习 1.3.20
  • 原文地址:https://www.cnblogs.com/delphi-xe5/p/5382134.html
Copyright © 2011-2022 走看看