delphi 保存FontDialog设置到ini文件

 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;

你可能感兴趣的:(Delphi)