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

Throw away query profile result on disconnect, to avoid follow up AVs somewhere in TMySQLQuery.SetRecNo where the connection object still seems being used. Also, reinit helper tree nodes lame instead of immediately, as InitNode() has code which expects the relevant query tab to be open currently.

Browse Source
This commit is contained in:
Ansgar Becker
2010-09-05 22:58:53 +00:00
parent a13493959e
commit b622ad3f50
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/main.pas
View File

@ -1817,6 +1817,7 @@ end;
procedure TMainForm.DoDisconnect;
var
Results: TMySQLQuery;
Tab: TQueryTab;
begin
// Do nothing in case user clicked Cancel on session manager
if (not Assigned(Connection)) or (not Connection.Active) then
@ -1845,6 +1846,10 @@ begin
SynMemoFilter.Clear;
SetLength(DataGridSortColumns, 0);
FreeAndNil(SQLHelpForm);
for Tab in QueryTabs do
FreeAndNil(Tab.QueryProfile);
RefreshHelperNode(HELPERNODE_PROFILE);
RefreshHelperNode(HELPERNODE_COLUMNS);
// Closing connection
Connection.Active := False;
@ -9648,8 +9653,8 @@ begin
for Tab in QueryTabs do begin
Node := FindNode(Tab.treeHelpers, NodeIndex, nil);
if vsInitialized in Node.States then begin
Tab.treeHelpers.ReinitNode(Node, True);
Tab.treeHelpers.InvalidateChildren(Node, True);
Node.States := Node.States - [vsInitialized];
Tab.treeHelpers.InvalidateNode(Node);
end;
end;
end;