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

Catch exception when grid export file cannot be created. Fixes issue #2325.

Browse Source
This commit is contained in:
Ansgar Becker
2011-05-28 07:40:44 +00:00
parent 5e1d4645d2
commit 42c29f7655
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/exportgrid.pas
View File

@ -662,7 +662,15 @@ begin
end;
StreamToClipboard(S, HTML, (ExportFormat=efHTML) and (HTML <> nil));
end else begin
S.SaveToFile(editFilename.Text);
try
S.SaveToFile(editFilename.Text);
except
on E:EFCreateError do begin
// Keep form open if file cannot be created
ModalResult := mrNone;
ErrorDialog(E.Message);
end;
end;
end;
Mainform.ProgressBarStatus.Visible := False;