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

Do not check expansion state of query history children unless the parent node is expanded, to avoid initializing children when not required. Accesses registry items when doing so.

Browse Source
This commit is contained in:
Ansgar Becker
2012-03-20 19:46:46 +00:00
parent e9eb68b293
commit 65222c123f
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/main.pas
View File

@ -10497,10 +10497,14 @@ begin
// Restore old node + children states // Restore old node + children states
Tab.treeHelpers.CheckState[Node] := OldCheckState; Tab.treeHelpers.CheckState[Node] := OldCheckState;
Tab.treeHelpers.Expanded[Node] := vsExpanded in OldStates; Tab.treeHelpers.Expanded[Node] := vsExpanded in OldStates;
Child := Tab.treeHelpers.GetFirstChild(Node); // Do not check expansion state of children unless the parent node is expanded, to avoid
while Assigned(Child) do begin // initializing children when not required. Accesses registry items when doing so.
Tab.treeHelpers.Expanded[Child] := ExpandedChildren.IndexOf(IntToStr(Child.Index)) > -1; if Tab.treeHelpers.Expanded[Node] then begin
Child := Tab.treeHelpers.GetNextSibling(Child); Child := Tab.treeHelpers.GetFirstChild(Node);
while Assigned(Child) do begin
Tab.treeHelpers.Expanded[Child] := ExpandedChildren.IndexOf(IntToStr(Child.Index)) > -1;
Child := Tab.treeHelpers.GetNextSibling(Child);
end;
end; end;
ExpandedChildren.Free; ExpandedChildren.Free;
Tab.treeHelpers.EndUpdate; Tab.treeHelpers.EndUpdate;