anchor.diff:    FT_ULong = longword;
     FT_Pos = longint;
     {$ENDIF}
  - FT_Error   = longint;
  - FT_F26Dot6 = longint;
  +  FT_F2Dot14 = smallint;
  +  FT_F26Dot6 = longint;
     FT_Fixed = FT_Long;
  -
  - FT_Byte_ptr  = ^FT_Byte;
  - FT_Short_ptr = ^FT_Short;
  -
  - FT_Render_Mode = FT_Int;
  +  FT_Error = longint;
  +  FT_Pointer = pointer;
  +
  +  FT_Byte_ptr  = ^FT_Byte;
  +  FT_Short_ptr = ^FT_Short;
  +
  +  FT_Render_Mode = (FT_RENDER_MODE_NORMAL, FT_RENDER_MODE_LIGHT,
  +      FT_RENDER_MODE_MONO, FT_RENDER_MODE_LCD, FT_RENDER_MODE_LCD_V,
  +      FT_RENDER_MODE_MAX);
   
    FT_Library_ptr_ptr = ^FT_Library_ptr;
    FT_Library_ptr = ^FT_Library;
  
positive.code: uses
   agg_basics ;
  
  { GLOBAL VARIABLES & CONSTANTS }
  type
   FT_Encoding = array[0..3 ] of char;
  
  const
  {$IFDEF AGG_WINDOWS }
   ft_lib = 'freetype.dll';
  
  {$ENDIF }
  
  {$IFDEF AGG_LINUX }
   ft_lib = 'freetype.so';
  
  {$ENDIF }
  
  {$IFDEF AGG_MACOSX }
   ft_lib = 'libfreetype';
  
  {$ENDIF }
  
   FT_CURVE_TAG_ON    = 1;
   FT_CURVE_TAG_CONIC = 0;
   FT_CURVE_TAG_CUBIC = 2;
  
   FT_FACE_FLAG_SCALABLE = 1 shl 0;
   FT_FACE_FLAG_KERNING  = 1 shl 6;
  
   FT_ENCODING_NONE : FT_Encoding = (#0 ,#0 ,#0 ,#0 );
  
   FT_LOAD_DEFAULT        = $0000;
   FT_LOAD_NO_HINTING     = $0002;
   FT_LOAD_FORCE_AUTOHINT = $0020;
  
   FT_RENDER_MODE_NORMAL = 0;
   FT_RENDER_MODE_LIGHT  = FT_RENDER_MODE_NORMAL + 1;
   FT_RENDER_MODE_MONO   = FT_RENDER_MODE_LIGHT + 1;
   FT_RENDER_MODE_LCD    = FT_RENDER_MODE_MONO + 1;
   FT_RENDER_MODE_LCD_V  = FT_RENDER_MODE_LCD + 1;
   FT_RENDER_MODE_MAX    = FT_RENDER_MODE_LCD_V + 1;
  
   FT_KERNING_DEFAULT  = 0;
   FT_KERNING_UNFITTED = 1;
   FT_KERNING_UNSCALED = 2;
  
   FT_STYLE_FLAG_ITALIC = 1 shl 0;
   FT_STYLE_FLAG_BOLD   = 1 shl 1;
  
  { TYPES DEFINITION }
  type
   FT_Byte    = byte;
   FT_Short   = smallint;
   FT_UShort  = word;
   FT_Int     = longint;
   FT_UInt    = longword;
   FT_Int32   = longint;
    {$if defined(cpu64) and not(defined(win64) and defined(cpux86_64))}
    FT_Long = int64;
    FT_ULong = qword;
  
negative.code: { FT_IS_SCALABLE }
  function FT_IS_SCALABLE(face : FT_Face_ptr ) : boolean;
  begin
    Result := (face.face_flags and FT_FACE_FLAG_SCALABLE) = 1;
  end;
  
  { FT_HAS_KERNING }
  function FT_HAS_KERNING(face : FT_Face_ptr ) : boolean;
  begin
    Result := (face.face_flags and FT_FACE_FLAG_KERNING) = 1;
  end;
  
  end.
  
  