anchor.diff:      property CharCount: Word read fCharCount;
       property CharSpacing: SmallInt read fCharSpacing;
       property LineSpacing: Byte read fLineSpacing;
  +    property LineHeight: SmallInt read GetLineHeight;
       property BaseHeight: SmallInt read fBaseHeight;
       property WordSpacing: SmallInt read fWordSpacing;
   
  
positive.code:   end;
  
    Dec(LineCount);
    Result.Y := (BaseHeight + LineSpacing) * LineCount;
    for I := 1 to LineCount do
      Result.X := Math.Max(Result.X, LineWidth[I]);
  end;
  
negative.code:   TKMFontData = class
    private
      function GetTexID(aIndex: Integer): Cardinal;
      function GetLineHeight: SmallInt;
    protected
      fTexSizeX, fTexSizeY: Word; //All atlases have same dimensions
      //Character atlases
  