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

When a db node gets checked, its not yet initialized children are unchecked - fix that.

Browse Source
This commit is contained in:
Ansgar Becker
2009-09-15 18:47:27 +00:00
parent ab3cf3c586
commit 86031234ac
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/tabletools.pas
View File

@@ -180,8 +180,10 @@ begin
case Sender.GetNodeLevel(Node) of
1: begin
// Preselect active database
if Mainform.Databases[Node.Index] = Mainform.ActiveDatabase then
if Mainform.Databases[Node.Index] = Mainform.ActiveDatabase then begin
Node.CheckState := csCheckedNormal;
TreeObjects.ReinitChildren(Node, False);
end;
ValidateControls(Sender);
end;
2: begin
@@ -189,7 +191,9 @@ begin
ds := Mainform.FetchDbTableList(Mainform.Databases[ParentNode.Index]);
ds.RecNo := Node.Index+1;
if not (GetDBObjectType(ds.Fields) in [lntTable, lntCrashedTable, lntView]) then
Node.CheckType := ctNone;
Node.CheckType := ctNone
else if Node.Parent.CheckState in [csCheckedNormal, csCheckedPressed] then
Node.CheckState := csCheckedNormal;
end;
end;
end;