fix: remove column nodes from tree in table tools dialog

Refs #2563 and #2069

Author: ansgarbecker

source/main.pas

@@ -9911,10 +9911,17 @@ procedure TMainForm.DBtreeInitNode(Sender: TBaseVirtualTree; ParentNode, Node:
   Columns: TTableColumnList;
 
   function TreeShowColumns: Boolean;
+  var f: TWinControl;
   begin
-    Result := Item.NodeType = lntTable;
-    if Sender = DBtree then // optional in dbtree
-      Result := actTreeShowColumns.Checked;
+    Result := False;
+    if Item.NodeType = lntTable then begin
+      if Sender = DBtree then // optional in dbtree
+        Result := actTreeShowColumns.Checked
+      else begin
+        f := GetParentFormOrFrame(Sender);
+        Result := Assigned(f) and (f is TfrmSelectDBObject);
+      end;
+    end;
   end;
 
 begin