From ef8088c301cefe020cb81910af05eb0f51cff491 Mon Sep 17 00:00:00 2001
From: christian_u <christian_u@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 29 Mar 2010 13:20:42 +0000
Subject: [PATCH] fixed compiling, changed paradox.pas to paradoxds.pas for
 compatibility reasons

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1190 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tparadoxdataset/lazparadox.lpk              | 10 ++++------
 .../tparadoxdataset/{paradox.pas => paradoxds.pas}     |  4 ++--
 components/tparadoxdataset/paradoxreg.pas              |  4 ++--
 3 files changed, 8 insertions(+), 10 deletions(-)
 rename components/tparadoxdataset/{paradox.pas => paradoxds.pas} (99%)

diff --git a/components/tparadoxdataset/lazparadox.lpk b/components/tparadoxdataset/lazparadox.lpk
index a003fa485..2441eccd7 100644
--- a/components/tparadoxdataset/lazparadox.lpk
+++ b/components/tparadoxdataset/lazparadox.lpk
@@ -1,18 +1,15 @@
 <?xml version="1.0"?>
 <CONFIG>
-  <Package Version="2">
+  <Package Version="3">
     <PathDelim Value="\"/>
     <Name Value="lazparadox"/>
     <Author Value="Christian Ulrich"/>
     <CompilerOptions>
-      <Version Value="5"/>
+      <Version Value="8"/>
       <PathDelim Value="\"/>
       <SearchPaths>
         <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
       </SearchPaths>
-      <CodeGeneration>
-        <Generate Value="Faster"/>
-      </CodeGeneration>
       <Other>
         <CompilerPath Value="$(CompPath)"/>
       </Other>
@@ -27,7 +24,8 @@
         <UnitName Value="paradoxreg"/>
       </Item1>
       <Item2>
-        <Filename Value="paradox.pas"/>
+        <Filename Value="paradoxds.pas"/>
+        <UnitName Value="paradoxds"/>
       </Item2>
     </Files>
     <Type Value="RunAndDesignTime"/>
diff --git a/components/tparadoxdataset/paradox.pas b/components/tparadoxdataset/paradoxds.pas
similarity index 99%
rename from components/tparadoxdataset/paradox.pas
rename to components/tparadoxdataset/paradoxds.pas
index c6c04f94a..a1fa0211b 100644
--- a/components/tparadoxdataset/paradox.pas
+++ b/components/tparadoxdataset/paradoxds.pas
@@ -1,4 +1,4 @@
-unit paradox;
+unit paradoxds;
 
 { TParadoxdataSet
   Christian Ulrich christian@ullihome.de
@@ -356,7 +356,7 @@ begin
     begin
       case F^.fType of
       pxfAlpha:    Fielddefs.Add(StrPas(FNamesStart),ftString,F^.fSize);
-      pxfDate:     Fielddefs.Add(StrPas(FNamesStart),ftDate,F^.fSize);
+      pxfDate:     Fielddefs.Add(StrPas(FNamesStart),ftDate,0);
       pxfShort:    Fielddefs.Add(StrPas(FNamesStart),ftSmallInt,F^.fSize);
       pxfLong:     Fielddefs.Add(StrPas(FNamesStart),ftInteger,F^.fSize);
       pxfCurrency: Fielddefs.Add(StrPas(FNamesStart),ftFloat,F^.fSize);
diff --git a/components/tparadoxdataset/paradoxreg.pas b/components/tparadoxdataset/paradoxreg.pas
index 54195c3d6..d61c2040e 100644
--- a/components/tparadoxdataset/paradoxreg.pas
+++ b/components/tparadoxdataset/paradoxreg.pas
@@ -5,7 +5,7 @@ unit paradoxreg;
 interface
 
 uses
-  Classes, SysUtils, LResources, Paradox, LazarusPackageIntf, PropEdits;
+  Classes, SysUtils, LResources, Paradoxds, LazarusPackageIntf, PropEdits;
 
 resourcestring
   dbfsAllparadoxfiles = 'Paradox Files';
@@ -35,7 +35,7 @@ end;
 
 procedure Register;
 begin
-  RegisterUnit('paradox',@RegisterUnitParadox);
+  RegisterUnit('paradoxds',@RegisterUnitParadox);
 end;
 
 initialization