freetype: cleaned up some uses sections

components/freetype/easylazfreetype.pas

@@ -19,11 +19,11 @@ unit EasyLazFreeType;
 interface
 
 uses
-  Classes, SysUtils, fpimage, AVL_Tree,
+  Math, Classes, SysUtils, fpimage, AVL_Tree,
   // LazUtils
   LazUTF8,
   // FreeType
-  LazFreeType, TTRASTER, TTTypes, TTObjs,
+  LazFreeType, TTRaster, TTTypes, TTObjs,
   Types;  // Note: Types must be after TTTypes for PByte.
 
 type
@@ -437,8 +437,6 @@ const FreeTypeMinPointSize = 1;
 
 implementation
 
-uses Math;
-
 const
   TT_PLATFORM_APPLE_UNICODE = 0;
   //TT_PLATFORM_MACINTOSH     = 1;

components/freetype/ttfile.pas

@@ -52,9 +52,8 @@ interface
 {$I TTCONFIG.INC}
 {$R-}
 
-uses TTTypes,
-     TTError,
-     Classes;
+uses
+  SysUtils, Classes, TTTypes, TTError;
 
 type
   { TFreeTypeStream }
@@ -172,9 +171,6 @@ type
 
 implementation
 
-uses
-  SysUtils;
-
   (* THREADS: TTMutex, *)
 
 const

components/freetype/ttinterp.pas

@@ -34,15 +34,13 @@ interface
 {$R-} // TODO: Fix out-of-bounds accesses.
 {$mode Delphi}
 
-uses TTTypes,
-     TTObjs;
+uses
+  SysUtils, Classes, TTCalc, TTTypes, TTMemory, TTObjs;
 
   function Run_Ins( exec : PExec_Context ; AErrorLog: boolean = false) : TError;
   (* Run the interpreter with the current code range and IP *)
 
 implementation
-uses
-  TTCalc, SysUtils, Classes, TTMemory;
 
 const
   maxStackSizeAllowed = 16000;

components/freetype/ttload.pas

@@ -26,7 +26,7 @@ Unit TTLoad;
 interface
 
 {$R-}
-uses TTTypes, TTTables, TTCMap, TTObjs, TTFile;
+uses TTTypes, TTError, TTMemory, TTTables, TTCMap, TTObjs, TTFile;
 
  function LookUp_TrueType_Table( face : PFace;
                                  aTag : string ) : int;
@@ -57,8 +57,6 @@ uses TTTypes, TTTables, TTCMap, TTObjs, TTFile;
 
 implementation
 
-uses TTError, TTMemory;
-
   (* Composite glyph decoding flags *)
 
 (*******************************************************************

components/freetype/ttobjs.pas

@@ -86,8 +86,11 @@ interface
 
 uses LazFreeType,
      TTTypes,
+     TTCalc,
      TTError,
+     TTMemory,
      TTCache,
+     TTFile,
      TTTables,
      TTCMap;
 
@@ -767,7 +770,7 @@ var
 
 implementation
 
-uses TTMemory, TTFile, TTCalc, TTLoad, TTInterp;
+uses TTLoad, TTInterp;
 
   function Face_Create( _face  : Pointer;
                         _input : Pointer ) : TError; forward;