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

Implement "Yes, overwrite all and don't ask me again about that" button in export to directory, see rfe #880

Browse Source
This commit is contained in:
Ansgar Becker
2009-02-14 13:48:53 +00:00
parent 64fbf61e5b
commit 049f709f36
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/exportsql.pas
View File

@ -99,6 +99,7 @@ type
private
{ Private declarations }
SelectedTables: TWideStringList;
DoOverwriteAll: Boolean;
function InitFileStream(TableName: String; OldStream: TFileStream = nil): TFileStream;
public
{ Public declarations }
@ -284,6 +285,7 @@ begin
validateControls(Sender);
generateExampleSQL;
DoOverwriteAll := False;
end;
@ -422,6 +424,7 @@ end;
function TExportSQLForm.InitFileStream(TableName: String; OldStream: TFileStream = nil): TFileStream;
var
UnparsedFileName, ParsedFileName, FileName, FilePath : String;
dlgResult: Integer;
begin
Result := nil;
@ -460,9 +463,12 @@ begin
OldStream.Free;
// Warn about overwriting target file
if FileExists(ParsedFileName) then begin
if MessageDlg('Overwrite file "'+ParsedFileName+'" ?', mtConfirmation, [mbYes, mbCancel], 0 ) <> mrYes then
Exit;
if FileExists(ParsedFileName) and (not DoOverwriteAll) then begin
dlgResult := MessageDlg('Overwrite file "'+ParsedFileName+'" ?', mtConfirmation, [mbYes, mbYesToAll, mbCancel], 0 );
if dlgResult = mrCancel then
Exit
else
DoOverwriteAll := dlgResult = mrYesToAll;
end;
// Create the file