[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

{
Anyone with a code snippet to save/retrieve FontStyle and FontColor
in an INI file ?

Hey Dick here are some code snippets from me.

regards
:-) Jens
Germany/Gerdau

------------------------------------------------------------------------
Here is a section from my Unit with constants

     DefaultMemoFontColor       =clBlack;
     DefaultMemoFontSize        =10;
     DefaultMemoFontName      ='Arial';
     DefaultMemoFontStyle       =0;
{           0                 Standart
            1    fsBold        Die Schriftart wird fett dargestellt.
            2    fsItalic          Die Schriftart wird kursiv dargestellt.
            3    fsUnderline  Die Schriftart wird unterstrichen dargestellt.
            4    fsStrikeout    Die Schriftart wird durchgestrichen
dargestellt.}
--------------------------------------------------------------------------------
----------------------------------------------------

This section reads the Fontstyle from the infile
It's called during Form1.Create

 {Lese Schriftart}
  Memo.Font.Color:=Ini.ReadInteger('Schriftart','Farbe',DefaultMemoFontColor);
  Memo.Font.Name:=Ini.ReadString('Schriftart','Name',DefaultMemoFontName);
  Memo.Font.Size:=Ini.ReadInteger('Schriftart','Grv_e',DefaultMemoFontSize);
  Case Ini.ReadInteger('Schriftart','Style',DefaultMemoFontStyle) of
     0 : Memo.Font.Style:=[];
     1 : Memo.Font.Style:=[fsBold];
     2 : Memo.Font.Style:=[fsItalic];
     3 : Memo.Font.Style:=[fsUnderline];
     4 : Memo.Font.Style:=[fsStrikeout];
     else
       Memo.Font.Style:=[];
  end;{Case}
--------------------------------------------------------------------------------
----------------------------------------------------
  {Write Fontstyle}
  This Codesection is called during the close-event from Form1.
  Ini:=TIniFile.Create(BAQIniFile);
  Ini.WriteInteger('Schriftart','Farbe',Memo.Font.Color);
  Ini.WriteString('Schriftart','Name',Memo.Font.Name);
  Ini.WriteInteger('Schriftart','Grv_e',Memo.Font.Size);
  If Memo.Font.Style=[] then
    Ini.WriteInteger('Schriftart','Style',0);
  If Memo.Font.Style=[fsBold] then
    Ini.WriteInteger('Schriftart','Style',1);
  If Memo.Font.Style=[fsItalic] then
    Ini.WriteInteger('Schriftart','Style',2);
  If Memo.Font.Style=[fsUnderline] then
    Ini.WriteInteger('Schriftart','Style',3);
  If Memo.Font.Style=[fsStrikeout] then
    Ini.WriteInteger('Schriftart','Style',4);
  Ini.Free;

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]