From 249610072edf1a755c3c31d41908dfec0c954a80 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Thu, 13 Dec 2007 18:04:49 +0000
Subject: [PATCH] Minor followup to rev 1170: - Wording: "table" should be more
 clear than "objects" - Source: Add TODO for platform specific method call -
 GUI: Add right hand anchor for new radiobutton to ensure it's not covering
 some borders of the parent box

---
 source/exportsql.dfm | 3 ++-
 source/exportsql.pas | 2 ++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/source/exportsql.dfm b/source/exportsql.dfm
index 84d2b27f..2e013029 100644
--- a/source/exportsql.dfm
+++ b/source/exportsql.dfm
@@ -253,7 +253,8 @@ object ExportSQLForm: TExportSQLForm
           Top = 67
           Width = 352
           Height = 17
-          Caption = 'Directory (one .sql-file per object)'
+          Anchors = [akLeft, akTop, akRight]
+          Caption = 'Directory (one .sql-file per table)'
           TabOrder = 3
           OnClick = radioFileOrDirClick
           OnDblClick = btnDirectoryBrowseClick
diff --git a/source/exportsql.pas b/source/exportsql.pas
index dc4528a4..02247de0 100644
--- a/source/exportsql.pas
+++ b/source/exportsql.pas
@@ -1600,6 +1600,8 @@ procedure TExportSQLForm.btnDirectoryBrowseClick(Sender: TObject);
 var
   chosenDirectory : String;
 begin
+  // TODO: Find an alternative to SelectDirectory(), which causes
+  // a platform compiler warning because it needs the FileCtrl unit 
   if SelectDirectory('Select output directory', EditDirectory.Text, chosenDirectory) then
     EditDirectory.Text := chosenDirectory;
 end;