opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix emergency exception when trying to call DeleteCurrentKey without session path, which is reset by MessageDialog() in some cases. Closes #168.

Browse Source
This commit is contained in:
Ansgar Becker
2019-05-03 07:45:59 +02:00
parent 0c35a27fec
commit 32b0dfceb2
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/main.pas
View File

@@ -7261,13 +7261,17 @@ end;
procedure TMainForm.menuClearQueryHistoryClick(Sender: TObject);
var
Values: TStringList;
PathToDelete: String;
begin
// Clear query history items in registry
AppSettings.SessionPath := ActiveConnection.Parameters.SessionPath + '\' + REGKEY_QUERYHISTORY;
// Take care of MessageDialog, probably changing the current SessionPath
PathToDelete := ActiveConnection.Parameters.SessionPath + '\' + REGKEY_QUERYHISTORY;
AppSettings.SessionPath := PathToDelete;
Values := AppSettings.GetValueNames;
if MessageDialog(_('Clear query history?'), f_('%s history items will be deleted.', [FormatNumber(Values.Count)]), mtConfirmation, [mbYes, mbNo]) = mrYes then begin
Screen.Cursor := crHourglass;
AppSettings.DeleteCurrentKey;;
AppSettings.SessionPath := PathToDelete;
AppSettings.DeleteCurrentKey;
RefreshHelperNode(HELPERNODE_HISTORY);
Screen.Cursor := crDefault;
end;