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