anchor.diff:                         FontInfo );
   
       Result.UseFaceName := FontInfo;
  -//    AssignStr( Result.UseFaceName, FontInfo.FaceName );
  -
  -    // We may actually get a bitmap OR an outline font back
  -    //If ( FontInfo.fsDefn And FM_DEFN_OUTLINE ) <> 0 Then
  -    //  Result.FontType := ftOutline
  -    //else
  -    //  Result.FontType := ftBitmap;
     end
     else
     begin
  
positive.code:   begin
      Face := TFontFace(FontFaces[ FaceIndex ]);
  
  //    if StringsSame( Face.Name, Name ) then
      if pos(UpperCase(name), UpperCase(Face.Name)) > 0 then
      begin
        Result := Face;
  
negative.code: Const
    // This defines the fraction of a pixel that
    // font character widths will be given in
    FontWidthPrecisionFactor = 1; // 256 seems to be specific to OS/2 API
  
  Type
    {Standard Font types}
  