RxFPC: fix compile whith trunc FPC 3.1.1

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3951 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2015-02-19 05:29:48 +00:00
parent 3d3c0e766f
commit 97c2cec1bb
2 changed files with 4 additions and 4 deletions

View File

@ -36,7 +36,7 @@ unit dbutils;
interface interface
uses uses
LCLType, LCLProc, LCLIntf, Registry, Classes, SysUtils, DB, IniFiles; LCLType, LCLIntf, Registry, Classes, SysUtils, DB, IniFiles;
const const
IntegerDataTypes = [ftSmallint, ftInteger, ftWord, ftLargeint]; IntegerDataTypes = [ftSmallint, ftInteger, ftWord, ftLargeint];
@ -164,7 +164,7 @@ procedure _DBError(const Msg: string);
implementation implementation
uses Forms, Controls, Dialogs, RXDConst, VCLUtils, FileUtil, uses Forms, Controls, Dialogs, RXDConst, VCLUtils, FileUtil,
AppUtils, RxAppUtils, RxStrUtils, Math, DateUtil; AppUtils, RxAppUtils, RxStrUtils, Math, DateUtil, LazUTF8;
{ Utility routines } { Utility routines }

View File

@ -21,10 +21,10 @@
</CompilerOptions> </CompilerOptions>
<Description Value="Delphi VCL Extensions (RX) <Description Value="Delphi VCL Extensions (RX)
Copyright (c) 1998 Master-Bank Copyright (c) 1998 Master-Bank
translate to Lazarus by alexs in 2005 - 2014 translate to Lazarus by alexs in 2005 - 2015
"/> "/>
<License Value="LGPL"/> <License Value="LGPL"/>
<Version Major="2" Minor="7" Release="1" Build="156"/> <Version Major="2" Minor="7" Release="2" Build="158"/>
<Files Count="69"> <Files Count="69">
<Item1> <Item1>
<Filename Value="autopanel.pas"/> <Filename Value="autopanel.pas"/>