clean up of fpcadds

git-svn-id: trunk@8101 -

lcl/actnlist.pas

@@ -26,7 +26,7 @@ unit ActnList;
 interface
 
 uses
-  Classes, SysUtils, FPCAdds,
+  Classes, SysUtils,
   LCLStrConsts, LCLType, LCLProc, LCLIntf, ImgList, LCLClasses, LMessages;
   
 type

lcl/buttons.pp

@@ -38,7 +38,7 @@ interface
 {$endif}
 
 uses
-  Classes, SysUtils, FPCAdds, LCLType, LCLProc, LCLIntf, LCLStrConsts,
+  Classes, SysUtils, LCLType, LCLProc, LCLIntf, LCLStrConsts,
   GraphType, Graphics, ImgList, ActnList, Controls, StdCtrls, lMessages, Forms,
   Menus {for ShortCut procedures};
 

lcl/comctrls.pp

@@ -38,7 +38,7 @@ unit ComCtrls;
 interface
 
 uses
-  SysUtils, Classes, Math, FPCAdds, LCLStrConsts, LResources, LCLIntf, LCLType,
+  SysUtils, Classes, Math, LCLStrConsts, LResources, LCLIntf, LCLType,
   LCLProc, AvgLvlTree, LMessages, ImgList, ActnList, GraphType, Graphics, Menus,
   Controls, Forms, StdCtrls, ExtCtrls, ToolWin, CommCtrl, Buttons;
 

lcl/controls.pp

@@ -40,7 +40,7 @@ interface
 {$ENDIF}
 
 uses
-  Classes, SysUtils, TypInfo, FPCAdds, DynHashArray, LCLStrConsts, LCLType,
+  Classes, SysUtils, TypInfo, DynHashArray, LCLStrConsts, LCLType,
   LCLProc, GraphType, Graphics, LMessages, LCLIntf, InterfaceBase, ImgList,
   UTrace, PropertyStorage, Menus, ActnList, LCLClasses;
 

lcl/forms.pp

@@ -37,7 +37,7 @@ interface
 {$DEFINE HasDefaultValues}
 
 uses
-  Classes, SysUtils, Math, FPCAdds, LCLStrConsts, LCLType, LCLProc, LCLIntf,
+  Classes, SysUtils, Math, LCLStrConsts, LCLType, LCLProc, LCLIntf,
   InterfaceBase, LResources, GraphType, Graphics, Menus, LMessages, CustomTimer,
   ActnList, ClipBrd, CustApp, LCLClasses, Controls;
 

lcl/fpcadds.pas

@@ -34,7 +34,7 @@ type
   TMemStreamSeekType = integer;
   TCompareMemSize = integer;
   PHandle = ^THandle;
-  
+
 function StrToWord(const s: string): word;
 
 {$IFDEF VER2_0_0}
@@ -43,8 +43,6 @@ function ExceptFrameCount: Longint;
 function ExceptFrames: PPointer;
 {$ENDIF}
 
-procedure SwapIntegers(var a, b: integer); inline;
-
 implementation
 
 function StrToWord(const s: string): word;
@@ -59,15 +57,6 @@ begin
   end;
 end;
 
-procedure SwapIntegers(var a, b: integer); inline;
-var
-  h: integer;
-begin
-  h:=a;
-  a:=b;
-  b:=h;
-end;
-
 {$IFDEF VER2_0_0}
 function ExceptFrameCount: Longint;
 begin

lcl/grids.pas

@@ -42,7 +42,7 @@ unit Grids;
 interface
 
 uses
-  Classes, SysUtils, FPCAdds, LCLStrConsts, LCLProc, LCLType, LCLIntf, Controls,
+  Classes, SysUtils, LCLStrConsts, LCLProc, LCLType, LCLIntf, Controls,
   GraphType, Graphics, Forms, DynamicArray, LMessages, XMLCfg, StdCtrls,
   LResources, MaskEdit, Buttons, Clipbrd;
 

lcl/interfacebase.pp

@@ -33,7 +33,7 @@ interface
 {$endif}
 
 uses
-  Classes, SysUtils, Math, FPCAdds, LCLStrConsts, LCLType, LCLProc, LMessages,
+  Classes, SysUtils, Math, LCLStrConsts, LCLType, LCLProc, LMessages,
   GraphType, GraphMath;
 
 type

lcl/interfaces/win32/win32wsmenus.pp

@@ -382,8 +382,6 @@ begin
 end;
 
 function TWin32WSMenuItem.SetRightJustify(const AMenuItem: TMenuItem; const Justified: boolean): boolean;
-var
-  MenuInfo: MENUITEMINFO;
 begin
   Result := ChangeMenuFlag(AMenuItem, MFT_RIGHTJUSTIFY, Justified);
 end;

lcl/lcltype.pp

@@ -52,7 +52,7 @@ uses
 {$ifdef win32}
   windows,
 {$endif win32}
-  Classes, SysUtils, FPCAdds;
+  Classes, SysUtils;
 
 type
 {$IFDEF USE_UTF8BIDI_LCL}

lcl/lmessages.pp

@@ -29,7 +29,7 @@ unit LMessages;
 
 interface
 
-uses Classes, SysUtils, FPCAdds, LCLType, GraphType
+uses Classes, SysUtils, LCLType, GraphType
   {$ifdef win32}
   ,messages
   {$endif win32}

lcl/lresources.pp

@@ -495,7 +495,7 @@ function FindLFMClassName(LFMStream:TStream):ansistring;
   -> the classname is the last word of the first line
 }
 var c:char;
-  StartPos, EndPos: TStreamSeekType;
+  StartPos, EndPos: Int64;
 begin
   Result:='';
   StartPos:=-1;