delphi开发实例:保存字体设置的方法
http://blog.csdn.net/delphi308/article/details/9906147
delphi开发实例:保存字体设置的方法


用记事本打开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开发实例:保存字体设置的方法的更多相关文章
- IOS开发中UIFont字体设置
我们在开发中很多时候要设置UIlabel,UIbutton,UItextfield的字体,这个时候我们就需要用到UIFont,下面简单介绍一下UIFont的用法,仅供参考. UIFont用于获取和设置 ...
- VS2010开发环境最佳字体及配色方法
Fixedsys Excelsior 3.01 1. 首先下载字体:http://www.fixedsysexcelsior.com/ 脚本之家字体下载 2. 安装字体:control panel ...
- SecureCRT学习之道:SecureCRT经常使用快捷键设置与字体设置方法
1:假设不想每次登陆都输入password,能够在你打开的session里邮件session option->login action 选中automate logon 双击ogin 和assw ...
- SecureCRT学习之道:SecureCRT常用快捷键设置与字体设置方法
1:如果不想每次登陆都输入密码,可以在你打开的session里邮件session option->login action 选中automate logon 双击ogin 和assword分别输 ...
- 【转】分享前端开发中通过js设置/获取cookie的一组方法
在前端开发中,通常都需要获取并记录用户的某些操作设置,这样可以使用户下一次访问网站时不用进行重复的调整设置同一个功能. js方法的完整代码如下: var cookie = { set:function ...
- delphi开发学习四:TClientDataSet与TDataSetProvider控件使用实例
1.TClientDataSet控件 通过TClientDataSet控件可以建立瘦客户端的应用程序,且数据执行效率较高,但它不能和数据库自动连接,程序中必须制定它如何获取数据.一般情况下,TClie ...
- Qt开发的应用记录读取用户习惯设置的方法
Qt开发的应用记录读取用户习惯设置的方法 版权声明:本文为博主原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接和本声明. 本文链接:https://blog.csdn.net/w ...
- win7无法保存打印机设置(错误0x000006d9)解决方法
解决win7打印机共享出现‘无法保存打印机设置’操作无法完成(错误0x000006d9),接下来与大家分享下解决方法, 找到windows firewall服务,启用即可 ============== ...
- Android实例-Delphi开发蓝牙官方实例解析(XE10+小米2+小米5)
相关资料:1.http://blog.csdn.net/laorenshen/article/details/411498032.http://www.cnblogs.com/findumars/p/ ...
随机推荐
- 记录一次TabBar使用本地图片
方法一: 第一步:import addpng from '../../assets/img/add.png' 第二步: { title: '找折扣', image: addpng}, 即可. 方法 ...
- element ui 选择期 传对象
<template> <el-select value-key="label" v-model="value" placeholder=&qu ...
- 轮播图--js课程
<!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8&quo ...
- 用R语言提取数据框中日期对应年份(列表转矩阵)
用R语言提取数据框中日期对应年份(列表转矩阵) 在数据处理中常会遇到要对数据框中的时间做聚类处理,如从"%m/%d/%Y"中提取年份. 对应操作为:拆分成列表——列表转矩阵——利用 ...
- JavaEE高级-Spring学习笔记
*Spring是什么? - Spring是一个开源框架 - Spring为简化企业级应用开发而生.使用Spring可以使简单的JavaBean实现以前只有EJB才能实现的功能 - Spring是一个I ...
- 个人作业 项目alpha版本测试
课程:https://edu.cnblogs.com/campus/xnsy/SoftwareEngineeringClass2 作业要求:https://edu.cnblogs.com/campus ...
- 2019长安大学ACM校赛网络同步赛C LaTale (树上DP)
链接:https://ac.nowcoder.com/acm/contest/897/C来源:牛客网 LaTale 时间限制:C/C++ 2秒,其他语言4秒 空间限制:C/C++ 32768K,其他语 ...
- DOM-document 对象
Document 对象Document 对象代表整个HTML 文档,可用来访问页面中的所有元素.Document 对象是 Window 对象的一个部分,可通过 window.document 属性来访 ...
- 【前端】CSS基础
3种html中设置css的方法: head中style标签 head中link标签rel属性.href后跟css文件目录 在需要使用css样式的标签添加style属性 1.CSS选择器 #id值 .c ...
- scrapy处理post请求的传参和日志等级
一.Scrapy的日志等级 - 在使用scrapy crawl spiderFileName运行程序时,在终端里打印输出的就是scrapy的日志信息. - 日志信息的种类: ERROR : 一般错误 ...