delphi 颜色，字体保存到INI文件

标签：style   http   color   io   os   ar   for   sp   文件   

颜色转换成整型保存{也可以用ColorToString  / stringTOColor}
字体用下面的函数转换成字符串，然后保存

unit xFonts;

interface

uses Classes, Graphics, SysUtils;

procedure StringToFont(sFont: string; Font: TFont; bIncludeColor: Boolean = True);
function FontToString(Font: TFont; bIncludeColor: Boolean = True): string;

implementation

const
  csfsBold      = ‘|Bold‘;
  csfsItalic    = ‘|Italic‘;
  csfsUnderline = ‘|Underline‘;
  csfsStrikeout = ‘|Strikeout‘;

  //
  // Expected format:
  //   "Arial", 9, [Bold], [clRed]
  //
procedure StringToFont(sFont: string; Font: TFont; bIncludeColor: Boolean = True);
var
  P     : Integer;
  sStyle: string; 
begin
  with Font do
    try
      // get font name
      P := Pos(‘,‘, sFont);
      name := Copy(sFont, 2, P - 3);
      Delete(sFont, 1, P);

      // get font size
      P := Pos(‘,‘, sFont);
      Size := StrToInt(Copy(sFont, 2, P - 2));
      Delete(sFont, 1, P);

      // get font style
      P := Pos(‘,‘, sFont);
      sStyle := ‘|‘ + Copy(sFont, 3, P - 4);
      Delete(sFont, 1, P);

      // get font color
      if bIncludeColor then Color := StringToColor(Copy(sFont, 3, Length(sFont) - 3));

      // convert str font style to
      // font style
      Style := [];
      if (Pos(csfsBold, sStyle) > 0) then Style := Style + [fsBold];
      if (Pos(csfsItalic, sStyle) > 0) then Style := Style + [fsItalic];
      if (Pos(csfsUnderline, sStyle) > 0) then Style := Style + [fsUnderline];
      if (Pos(csfsStrikeout, sStyle) > 0) then Style := Style + [fsStrikeOut];
    except
    end;
end;

//
// Output format:
//   "Aril", 9, [Bold|Italic], [clAqua]
//
function FontToString(Font: TFont; bIncludeColor: Boolean = True): string;
var
  sStyle: string;
begin
  with Font do
  begin
    // convert font style to string
    sStyle := ‘‘;
    if (fsBold in Style) then sStyle := sStyle + csfsBold;
    if (fsItalic in Style) then sStyle := sStyle + csfsItalic;
    if (fsUnderline in Style) then sStyle := sStyle + csfsUnderline;
    if (fsStrikeOut in Style) then sStyle := sStyle + csfsStrikeout;

    if ((Length(sStyle) > 0) and (‘|‘ = sStyle[1])) then
      sStyle := Copy(sStyle, 2, Length(sStyle) - 1);

    Result := Format(‘"%s", %d, [%s]‘,[name, Size, sStyle]);
    if bIncludeColor then
      Result := Result + Format(‘, [%s]‘,[ColorToString(Color)]);
  end;
end;

end.

{对INI文件的操作，这里就在叙述了，需要的朋友 必应一下 一大堆}

文档转载『http://bbs.csdn.net/topics/100124538』

delphi 颜色，字体保存到INI文件

标签：style   http   color   io   os   ar   for   sp   文件   

原文地址：http://www.cnblogs.com/Herge/p/4037141.html