anchor.diff:    end;
   
     Dec(LineCount);
  -  Result.Y := (BaseHeight + LineSpacing) * LineCount;
  +  Result.Y := LineHeight * LineCount;
     for I := 1 to LineCount do
       Result.X := Math.Max(Result.X, LineWidth[I]);
   end;
  
positive.code:     property CharCount: Word read fCharCount;
      property CharSpacing: SmallInt read fCharSpacing;
      property LineSpacing: Byte read fLineSpacing;
      property BaseHeight: SmallInt read fBaseHeight;
      property WordSpacing: SmallInt read fWordSpacing;
  
  
negative.code:       fFontData[F].ExportAtlasBmp(ExeDir + 'Export' + PathDelim + 'Fonts' + PathDelim + FontInfo[F].FontFile + IntToStr(I) + '.bmp', I);
      fFontData[F].Compact;
    end;
  end;
  
  
  function TKMFontData.GetLineHeight: SmallInt;
  begin
    Result := BaseHeight + LineSpacing;
  end;
  
  
  