フリーソフト

« [BCB] アプリで表示されているフォームの一覧を取得する | トップページ | タスクトレイに天気予報の更新履歴 »

[Delphi] FontをIniファイルに保存する

procedure TForm1.ReadFromInifile(IniFilename: String);
var
 ini:TInifile;
 FStyle:TFontStyles;
 Fs :Byte absolute FStyle;
 FPitch:TFontPitch;
 Fp :Byte absolute FPitch;
begin
 ini:=TInifile.Create(IniFilename);
 try
  Fs:= ini.ReadInteger('Option','FontStyle',0);
  Fp:= ini.ReadInteger('Option','FontPitch',0);
  if Fs<>0 then FFont.Style:= FStyle;
  if Fp<>0 then FFont.Pitch:= FPitch;
  FFont.Color:= StringToColor(Ini.ReadString('Option','FontColor','clBlack'));
  FFont.Name := ini.ReadString('Option','FontName','MS ゴシック');
  FFont.Size := ini.ReadInteger('Option','FontSize',13);
  FFont.Charset:=ini.ReadInteger('Option','FontCharset',SHIFTJIS_CHARSET);
 finally
  ini.Free;
 end;
end;

procedure TForm1.WriteToInifile(IniFilename: String);
var
 ini:TInifile;
 FStyle:TFontStyles;
 Fs :Byte absolute FStyle;
 FPitch:TFontPitch;
 Fp :Byte absolute FPitch;
begin
 ini:=TInifile.Create(IniFilename);
 try
  FStyle:=FFont.Style;
  FPitch:=FFont.Pitch;
  ini.WriteInteger('Option','FontStyle',Fs);
  ini.WriteInteger('Option','FontPitch',Fp);
  ini.ReadString('Option','FontColor',ColorToString(FFont.Color));
  ini.WriteString('Option','FontName',FFont.Name);
  ini.WriteInteger('Option','FontSize',FFont.Size);
  ini.WriteInteger('Option','FontCharset',FFont.Charset);
 finally
  ini.Free;
 end;
end;

« [BCB] アプリで表示されているフォームの一覧を取得する | トップページ | タスクトレイに天気予報の更新履歴 »

Delphi」カテゴリの記事

フォント関連」カテゴリの記事

コメント

この記事へのコメントは終了しました。