<font color="red"><strong>怎么把字体保存到注册表中去?</strong></font>

  • 主题发起人 主题发起人 mancao
  • 开始时间 开始时间
M

mancao

Unregistered / Unconfirmed
GUEST, unregistred user!
&lt;font color="red"&gt;&lt;strong&gt;怎么把字体保存到注册表中去?&lt;/strong&gt;&lt;/font&gt;(100分)<br />begin
fFIniFile := TRegIniFile.Create;
ffinifile.rootkey:=HKEY_CURRENT_USER;
if fd.Execute =true then
begin
ffinifile.WriteExpandString(keypath, '邮编字体',fd.Font);//这句该怎么写???
end;
fFIniFile.free;
其中FD为字体对话框,请个为高手帮忙????
 
font不外乎就那几个属性,你用字符串表示一下不就的了?
 
有没有办法一下子就搞定的???
 
没有。有些3rd控件好像有这个功能,不过我想肯定原理也差不多。
 
agree 小毛毛:一项项写
 
一项项写,怎么写???????????????
 
可以参考window保存当前显示属性配置的方法:
FontName = '宋体'
FontSize = 9
FontBold = false
FontItlic = false
FontColor = #000000
 
小毛毛:
ffinifile.WriteExpandString(keypath, '邮编字体',fd.Font.color);
//这句出错,怎么才能写进去???
我的OICQ是15527755,来寥寥好么?我把分都给你!!!!
 
TColor当然是数值形的了,怎么能用string呢?
ffinifile.WriteInteger(keypath, '邮编字体',fd.Font.color);
同里,读取的时候要 ReadInteger

我几乎不用oicq. 因为MM都不理我。 :-(
 
其他的几个项目呢?
来交个朋友,我介绍几个妹妹给你!!!!!
 
ini.WriteString =&gt; FontName = '宋体'
ini.WriteInteger =&gt; FontSize = 9
ini.WriteBool =&gt; FontBold = false
ini.WriteBool =&gt; FontItlic = false
ini.WriteInteger =&gt; FontColor = #000000
....

天,你看看这些属性的类型不就行了吗?
 
&gt;&gt;来交个朋友,我介绍几个妹妹给你!!!!!

你有好多妹妹吗?真厉害!漂亮吗?
 
哦,谢谢你!!!
 
多人接受答案了。
 
小毛毛:
ffinifile.Writebool(keypath, '邮编字体加粗',fd.Font.style.fsbold);
这句怎么不行呀???
有很多,都很漂亮,你来我就介绍个你!!!!!
 
小毛毛:
ffinifile.Writebool(keypath, '邮编字体加粗',fd.Font.style.fsbold);
这句怎么不行呀???
有很多,都很漂亮,你来我就介绍个你!!!!!
 
ffinifile.Writebool(keypath, '邮编字体加粗',fsbold in fd.Font.style);

font.style是一个集合,你需要测试fsbold是否在这个集合里面,也就是:
fsbold in fd.font.style

如果结果为true,那么是bold的字体

把你最漂亮的mm的oicq号码给我吧!谢谢!
 
后退
顶部