Simba: Remove unused variables and imports.

This commit is contained in:
Merlijn Wajer 2011-08-01 19:39:49 +02:00
parent aaafd6b0c1
commit add9cebc2b
4 changed files with 4 additions and 5 deletions

View File

@ -56,7 +56,7 @@ var
implementation
uses
MufasaTypes, math, graphtype, IntfGraphics,SimbaUnit,lclintf,colour_conv,InterfaceBase;
MufasaTypes, graphtype, IntfGraphics, SimbaUnit, lclintf, InterfaceBase;
{ TDebugImgForm }
procedure TDebugImgForm.FormCreate(Sender: TObject);

View File

@ -744,7 +744,7 @@ end;
function TPSThread.FileAlreadyIncluded(Sender: TObject; OrgFileName, FileName: string): Boolean;
var
path: string;
i: integer;
begin
path := FindFile(filename,[includepath,ScriptPath,IncludeTrailingPathDelimiter(ExtractFileDir(OrgFileName))]);
if path = '' then

View File

@ -70,7 +70,7 @@ type
implementation
uses
{$IFDEF MSWINDOWS}Windows,{$ENDIF} IniFiles,Client,FileUtil;
{$IFDEF MSWINDOWS}Windows,{$ENDIF} Client,FileUtil;
{ GetFiles in independant of the TMFiles class }

View File

@ -30,7 +30,7 @@ interface
{$define CheckAllBackground}//Undefine this to only check the first white point against the background (in masks).
uses
colour_conv, Classes, SysUtils,bitmaps,MufasaBase,DTM, MufasaTypes; // Types
colour_conv, Classes, SysUtils,bitmaps,DTM, MufasaTypes; // Types
{ TMFinder Class }
@ -104,7 +104,6 @@ uses
// colour_conv,// For RGBToColor, etc.
Client, // For the Client Casts.
math, //min/max
mmath,
tpa, //TPABounds
dtmutil
;