From d891eb2fa189fb31a4f59ab844e0aaaba43a3af6 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 9 May 2019 20:57:27 +0000
Subject: [PATCH] TParadoxDataset: Extend demo to accept filename as
 commandline parameter.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6899 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tparadoxdataset/demo/main.lfm | 2 +-
 components/tparadoxdataset/demo/main.pas | 7 +++++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/components/tparadoxdataset/demo/main.lfm b/components/tparadoxdataset/demo/main.lfm
index d6abc782f..8514f3fc9 100644
--- a/components/tparadoxdataset/demo/main.lfm
+++ b/components/tparadoxdataset/demo/main.lfm
@@ -6,6 +6,7 @@ object MainForm: TMainForm
   Caption = 'Paradox demo'
   ClientHeight = 413
   ClientWidth = 734
+  OnCreate = FormCreate
   OnShow = btnOpenClick
   LCLVersion = '2.1.0.0'
   object edFileName: TFileNameEdit
@@ -93,7 +94,6 @@ object MainForm: TMainForm
     TabOrder = 3
   end
   object Paradox: TParadoxDataSet
-    TableName = 'D:\Prog_Lazarus\tests\_database\paradox_samplefiles\examples\CUSTOMER.DB'
     FieldDefs = <    
       item
         Name = 'CustNo'
diff --git a/components/tparadoxdataset/demo/main.pas b/components/tparadoxdataset/demo/main.pas
index 5bc6e5ac6..a54e6a5b7 100644
--- a/components/tparadoxdataset/demo/main.pas
+++ b/components/tparadoxdataset/demo/main.pas
@@ -20,6 +20,7 @@ type
     edFileName: TFileNameEdit;
     Paradox: TParadoxDataSet;
     procedure btnOpenClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
 
   public
@@ -42,5 +43,11 @@ begin
   Paradox.Open;
 end;
 
+procedure TMainForm.FormCreate(Sender: TObject);
+begin
+  if ParamCount > 0 then
+    edFileName.FileName := ParamStr(1);
+end;
+
 end.