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
This commit is contained in:
Ansgar Becker
2007-12-13 18:04:49 +00:00
parent 4e731b7fe5
commit 249610072e
2 changed files with 4 additions and 1 deletions

View File

@@ -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

View File

@@ -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;