关于TLogFont.txt

　　type 
TLogFontA = packed record

　　lfHeight: Longint;

　　//以逻辑单位标定的字体高度，取值可为正负或零。

　　lfWidth: Longint;

　　//字体的平均宽度，若指定为0，则系统会自动根据适当的比例自动处理宽度。

　　lfEscapement: Longint;

　　//输出方向与当前坐标系X轴之间的以十分之一度为单位的角度。

　　lfOrientation: Longint;

　　//每个字符与当前坐标系X轴之间的以十分之一度为单位的角度。在Windows 95中这个值等同于lfEscpement。

　　lfWeight: Longint;

　　//范围为从0至1000的字体加重程度，400是标准字体，700是加重字体，0表示采用默认值。

　　lfItalic: Byte; //不为0表示采用斜体字。

　　lfUnderline: Byte; //不为0表示带下划线。

　　lfStrikeOut: Byte; //不为0表示带删除线。

　　lfCharSet: Byte; //指定字体集。

　　lfOutPrecision: Byte;

　　//输出精度，用于确定对前面一些设定值的精确程度。

　　lfClipPrecision: Byte;

　　//裁剪精度，就是去掉图形中落在视图以外的部分，有助于提高图形的处理速度。

　　lfQuality: Byte; //指定输出质量。

　　lfPitchAndFamily: Byte; //指定字体的Pitch和Family。

　　lfFaceName: array[0..LF_FACESIZE - 1] of AnsiChar;

　　 //指定采用的字体名称，且LF_FACESIZE=32。

　　end;

　　TLogFont =TLogFontA;

 TLogicFont用法：   
    
          procedure   SetLogicFont(ACanvas:   TCanvas;W:   Integer   =   0;H:   Integer   =   0);   
            var   LogicFont:   TLogFont;   
          begin   
              with   LogicFont,ACanvas.Font   do   
              begin   
                  if   H   =   0   then   lfHeight   :=   Height   
                  else   lfHeight   :=   H;   
                  lfWidth     :=   W;   
                  lfEscapement   :=   10*Direction;   
                  lfOrientation   :=   10*Direction;   
                  lfWeight   :=   FW_NORMAL;//FW_BOLD;   
                  lfItalic   :=   BYTE(fsItalic   in   Style);   
                  lfUnderline   :=   BYTE(fsUnderline   in   Style);   
                  lfStrikeOut   :=   BYTE(fsStrikeOut   in   Style);   
                  lfCharSet   :=   Charset;   
                  lfOutPrecision   :=   OUT_TT_PRECIS;   
                  lfClipPrecision   :=   CLIP_DEFAULT_PRECIS;   
                  lfQuality   :=   DEFAULT_QUALITY;   
    
                  lfPitchAndFamily   :=   DEFAULT_PITCH   or   FF_DONTCARE;   
                  StrCopy(lfFaceName,PChar(Name));   
              end;   
              ACanvas.Font.Handle   :=   Windows.CreateFontIndirect(LogicFont);   
      end;