opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Find a well working replacement for platform specific SelectDirectory function in StdActns unit. Fixes a corresponding compiler warning about using FileCtrl unit.

Browse Source
This commit is contained in:
Ansgar Becker
2008-03-29 17:09:51 +00:00
parent 19f463b1d0
commit c70bc467b1
1 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
source/exportsql.pas
View File

@ -29,7 +29,7 @@ uses
SynEdit, SynEdit,
SynMemo, SynMemo,
ZDataSet, ZDataSet,
FileCtrl, PngSpeedButton; PngSpeedButton, StdActns;
type type
TExportSQLForm = class(TForm) TExportSQLForm = class(TForm)
@ -1553,14 +1553,16 @@ end;
} }
procedure TExportSQLForm.btnDirectoryBrowseClick(Sender: TObject); procedure TExportSQLForm.btnDirectoryBrowseClick(Sender: TObject);
var var
chosenDirectory : String; Browse: TBrowseForFolder;
begin begin
// TODO: Find an alternative to SelectDirectory(), which causes // Avoid using platform specific SelectDirectory()
// a platform compiler warning because it needs the FileCtrl unit Browse := TBrowseForFolder.Create(Self);
// -> Q: What about using fx TOpenDialog for this purpose? Browse.Folder := EditDirectory.Text;
chosenDirectory := EditDirectory.Text; Browse.DialogCaption := 'Select output directory';
if SelectDirectory('Select output directory', '', chosenDirectory) then // Enable "Create new folder" button
EditDirectory.Text := chosenDirectory; Browse.BrowseOptions := Browse.BrowseOptions - [bifNoNewFolderButton] + [bifNewDialogStyle];
if Browse.Execute then
EditDirectory.Text := Browse.Folder;
end; end;