mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2026-03-13 09:24:25 +08:00
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:
@@ -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
|
||||
|
||||
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user