anchor.diff:      FDefaultFontSpec: TFontSpec;
       FCurrentFont: TLogicalFont;
       FAllowBitmapFonts: boolean;
  -  protected
       function    CreateFont( const FontSpec: TFontSpec ): TLogicalFont;
       function    GetFont( const FontSpec: TFontSpec ): TLogicalFont;
       procedure   RegisterFont( Font: TLogicalFont );
  
positive.code:   if Fontinfo = '' then
      // nothing found se use default font of fpGUI
      FontInfo := fpgApplication.DefaultFont.FontDesc;
  
    //// First just ask GPI to give us a font
    //AskOS2FontDetails( FaceName,
    //                   PointSize,
    //                   Attributes,
    //                   FontInfo );
    //
    //if not FixedWidth then
    //  // OK, whatever it gave us.
    //  exit;
    //
    //// we want a fixed width font...
    //if ( FontInfo.fsType and FM_TYPE_FIXED ) <> 0 then
    //  // got a suitable font
    //  exit;
    //
    //// the stoopid freaking OS/2 GPI has given us
    //// a proportional font for that size
    //if DefaultOutlineFixedFace <> nil then
    //  // use the default fixed width outline face
    //  AskOS2FontDetails( DefaultOutlineFixedFace.pName^,
    //                     PointSize,
    //                     Attributes,
    //                     FontInfo );
    //
    //
    //if ( FontInfo.fsType and FM_TYPE_FIXED ) <> 0 then
    //  // got a suitable font
    //  exit;
    //
    //// still got a proportional font,
    //// or we didn't have any fixed width outline face
    //// so see what we can find in the way of a bitmap fixed font
    //
    //BestBitmapFontMatch := GetClosestBitmapFixedFont( PointSize );
    //if BestBitmapFontMatch <> nil then
    //begin
    //  FontInfo.lMaxbaseLineExt := BestBitmapFontMatch.lMaxbaselineExt;
    //  FontInfo.lAveCharWidth := BestBitmapFontMatch.lAveCharWidth;
    //  FontInfo.fsDefn := 0;
    //  FontInfo.szFaceName := BestBitmapFontMatch.pFaceName^;
    //end;
    //// else - there are no fixed fonts of any kind on the system. Oh dear.
  
  end;
  
  //------------------------------------------------------------------------
  
negative.code:                        FontInfo );
  
      Result.UseFaceName := FontInfo;
    end
    else
    begin
  