paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 22:38:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

freetype: cleaned up some uses sections

Browse Source
This commit is contained in:
mattias 2024-03-20 15:42:59 +01:00
parent d3f23af47c
commit 733ac0edd1
5 changed files with 11 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/freetype/easylazfreetype.pas
View File

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

8
components/freetype/ttfile.pas
View File

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

6
components/freetype/ttinterp.pas
View File

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

4
components/freetype/ttload.pas
View File

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

5
components/freetype/ttobjs.pas
View File

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