* Implemented stored modifier so default library name does not get stored and it will work on all platforms without resetting it

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@10090 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 8 insertions, 1 deletions

diff --git a/packages/fcl-db/src/paradox/paradox.pp b/packages/fcl-db/src/paradox/paradox.pp
index 920fb37639..491aa3d074 100644
--- a/packages/fcl-db/src/paradox/paradox.pp
+++ b/packages/fcl-db/src/paradox/paradox.pp
@@ -55,6 +55,7 @@ type
     procedure SetOpenParams;
     procedure SetTableName(const AValue: String);
     procedure SetTargetEncoding(const AValue: String);
+    function GetLibStored : Boolean;
   protected
     // Mandatory
     procedure SetFilterText(const Value: String); override; {virtual;}
@@ -98,7 +99,7 @@ type
     constructor Create(AOwner:tComponent); override;
     destructor Destroy; override;
   published
-    Property PXLibrary : String Read FPXLibrary Write FPXLibrary;
+    Property PXLibrary : String Read FPXLibrary Write FPXLibrary Stored GetLibStored;
     Property FileName : String Read FFileName Write SetFileName;
     Property BlobFileName : String Read FBlobFileName Write SetBlobFileName;
     Property TableName : String Read GetTableName Write SetTableName;
@@ -253,6 +254,12 @@ begin
   Raise EParadox.CreateFmt(Fmt,Args);
 end;
 
+Function TParadox.GetLibStored : boolean;
+
+begin
+  Result:=(FPXLibrary<>pxlibraryname);
+end;
+
 procedure TParadox.SetBlobFileName(const AValue: String);
 begin
   if (FBlobFileName=AValue) then