anchor.diff:  
     // allocate memory for storing the char widths
     GetMem( FCurrentFont.pCharWidthArray, sizeof( TCharWidthArray ) );
  -  //if not GpiQueryWidthTable( FCanvas.Handle,
  -  //                           0, 256,
  -  //                           FCurrentFont.pCharWidthArray^[ #0 ] ) then
  -  //begin
  -  //  raise Exception.Create( 'Error getting character width table: '
  -  //                          + 'GpiQueryWidthTable error '
  -  //                          + IntToStr( WinGetLastError( AppHandle ) ) );
  -  //end;
  -
  -  // Convert all widths to positive!
  -  // For unknown reason, sometimes GPI returns negative values...
  +
     for TheChar := #0 to #255 do
     begin
       FCurrentFont.pCharWidthArray^[ TheChar ] := Abs( FCurrentFont.pCharWidthArray^[ TheChar ] );
  
positive.code:     // For bitmap fonts, multiply by 256 manually
      for TheChar := #0 to #255 do
      begin
        FCurrentFont.pCharWidthArray^[ TheChar ] :=
          FCurrentFont.pCharWidthArray^[ TheChar ]
          * FontWidthPrecisionFactor;
      end;
    end;
  
    //GpiQueryFontMetrics( FCanvas.Handle,
    //                     sizeof( fm ),
    //                     fm );
    //FCurrentFont.lMaxbaseLineExt := fm.lMaxbaselineExt;
    //FCurrentFont.lAveCharWidth := fm.lAveCharWidth;
    //FCurrentFont.lMaxCharInc := fm.lMaxCharInc;
    //FCurrentFont.lMaxDescender := fm.lMaxDescender;
  end;
  
  procedure TCanvasFontManager.EnsureMetricsLoaded;
  
negative.code:   FCanvas := Canvas;
    FWidget := AWidget;
    FLogicalFonts := TList.Create;
  
    // get system default font spec
    // as default default ;)
    FPGuiFontToFontSpec( fpgApplication.DefaultFont, FDefaultFontSpec );
    if FDefaultFontSpec.FaceName = '' then
      raise Exception.Create('For some reason we could not create a FDefaultFontSpec instance');
  
    //  FCurrentFontSpec.FaceName := 'Arial';
    FCurrentFontSpec.FaceName := FDefaultFontSpec.FaceName;
    FCurrentFont := nil;
    FAllowBitmapFonts := AllowBitmapFonts;
  end;
  
  // Destructor
  