首页 > 其他分享 >delphi 保存FontDialog设置到ini文件

delphi 保存FontDialog设置到ini文件

时间:2023-03-21 22:14:23浏览次数:37  
标签:FontDialog font String SetIniFile title delphi ini titlefontstyle Font

public
    { Public declarations }
    procedure SetIniFile(Strtitle, StrName :String;FileName : String);
    function ReadIniFile(Strtitle, StrName :String): String;

 

 

function TForm11.ReadIniFile(Strtitle, StrName: String): String;
var
  iniFile : TIniFile;
begin
  iniFile := TIniFile.Create(ExtractFileDir(Application.ExeName)+'\Config.ini');
  Result := iniFile.ReadString(Strtitle,StrName,'');
  IniFile.Free;
end;

procedure TForm11.SetIniFile(Strtitle, StrName :String; FileName: String);
var
  iniFile : TIniFile;
begin
  iniFile := TIniFile.Create(ExtractFileDir(Application.ExeName)+'\Config.ini');
  showmessage(ExtractFileDir(Application.ExeName));
  iniFile.WriteString(Strtitle,StrName,fileName);
  IniFile.Free;
end;

//写入

procedure TForm11.Button1Click(Sender: TObject);
begin
  if FontDialog1.Execute then
    label1.Font := FontDialog1.Font;
      SetIniFile('title','font-size',inttostr(fontDialog1.Font.Size));
      SetIniFile('title','font-color',inttostr(fontDialog1.Font.Color));
     // fsBold, fsItalic, fsUnderline, fsStrikeOut
      if (fsBold in FontDialog1.Font.Style) then
        SetIniFile('title','font-style','fsBold');
      if (fsItalic in FontDialog1.Font.Style) then
        SetIniFile('title','font-style','fsItalic');
      if (fsUnderline in FontDialog1.Font.Style) then
        SetIniFile('title','font-style','fsUnderline');
      if (fsStrikeOut in FontDialog1.Font.Style)  then
        SetIniFile('title','font-style','fsStrikeOut');
        SetIniFile('title','font-name',Fontdialog1.Font.Name);
end;

//读取

procedure TForm11.Button2Click(Sender: TObject);
var
  titlefontstyle : TFontStyles;
  titlestyle : String;
begin
   titlestyle := ReadIniFile('title','font-style');
  if pos ('fsBold', titlestyle) > 0 then
    titlefontstyle := titlefontstyle + [fsBold];
  if pos ('fsItalic', titlestyle ) > 0 then
    titlefontstyle := titlefontstyle + [fsItalic];
  if pos ('fsUnderline' , titlestyle) > 0 then
    titlefontstyle := titlefontstyle + [fsUnderline];
  if pos ('fsStrikeOut',titlestyle) >0   then
    titlefontstyle := titlefontstyle + [fsStrikeOut];
  label1.Font.Style := titlefontstyle;
  label1.Font.Size := strtoint(ReadIniFile('title','font-size'));

end;

 

标签:FontDialog,font,String,SetIniFile,title,delphi,ini,titlefontstyle,Font
From: https://www.cnblogs.com/Thenext/p/17241714.html

相关文章

  • Graph Classification mini-batch 训练方法
    参考资料colab教程PyTorchGeometricoptsforanotherapproachtoachieveparallelizationacrossanumberofexamples.Here,adjacencymatricesarestacked......
  • SERVICE_UNAVAILABLE/1/state not recovered / initialized
    #情境首先,我在本地虚拟机中,成功启动了elasticsearch服务,具体没有细看启动日志不过在关闭防火墙和修改访问IP之后,可以通过浏览器访问es服务:http://IP:9200后来通过elasticse......
  • 在eclipse.ini中为eclipse指定jdk启动
    [url]http://blog.sina.com.cn/s/blog_028f0c1c0100klzj.html[/url]机器上装了好几个版本的jdk,要用指定的jdk启动eclipse,只需修改eclipse.ini文件即......
  • could not reassociate uninitialized transient collection
    出现这个问题,可能是没有关闭上次对数据库的操作,马上又操作数据库。所以关闭数据库就好。比如:ht.getSessionFactory().close();.......
  • PowerDesigner Could not Initialize JavaVM!
    这里有解决办法:​http://lyt5664681.blog.163.com/blog/static/28130046201092032812336​​但是,我的还是没能解决,后来看了java_home变量是前面多了一个";"比如java_hom......
  • docker安装minio
    拉取镜像dockerpullminio/minio创建容器dockerrun-d-p9000:9000--nameminio\-p9001:9001\-e'MINIO_ACCESS_KEY=minioadmin'\-e'MINIO_SECRET_KEY=......
  • minio基本使用
    使用例子packagecom.lomi.minio;importcn.hutool.core.io.FileUtil;importcn.hutool.core.io.IoUtil;importcn.hutool.http.ContentType;importcn.hutool.jso......
  • Failed to load API definition
    1.[HttpGet]和[HttpPost]确定有没有写上,2.[route("方法名称")]3.[Route("api/[controller]/[Action]")]......
  • MinIO免费吗?其开源协议由Apache2.0变为AGPLv3意味着什么?
    最近做对象存储的选型,看到网上呼声较高的MinIO,于是去了解了一下,开源中国上写着其协议是Apache。 不放心又去github上看了一下,发现其协议是AGPLv3而且是半路换的协议,由......
  • Miniconda的安装和使用
    参考文献MinicondaAnaconda简介Miniconda和Anaconda都是Python环境管理工具,可以用于创建、管理和部署Python环境及其依赖的软件包。它们的主要区别在于其默认安装的......