Try to fix another crash in DBtreeFocusChanged (FActiveObjectGroup := ParentDBObj.GroupType)

This commit is contained in:
Ansgar Becker
2023-10-19 19:43:46 +02:00
parent f4adbc7faa
commit 66d4e2051e
2 changed files with 2 additions and 1 deletions

View File

@ -9942,6 +9942,7 @@ end;
constructor TDBObject.Create(OwnerConnection: TDBConnection);
begin
NodeType := lntNone;
GroupType := lntNone;
Name := '';
Database := '';
Schema := '';

View File

@ -9562,7 +9562,7 @@ begin
DBObj.WasSelected := True;
FActiveDbObj := TDBObject.Create(DBObj.Connection);
FActiveDbObj.Assign(DBObj^);
if Assigned(Node.Parent) then
if Assigned(Node.Parent) and (DBtree.GetNodeLevel(Node) > 0) then
ParentDBObj := Sender.GetNodeData(Node.Parent);
case FActiveDbObj.NodeType of