Don't auto-call database editor when focusing a table in dbtree. Fixes issue #1550.

This commit is contained in:
Ansgar Becker
2009-12-22 14:01:02 +00:00
parent 1cfe855bae
commit 9d722e2f07

View File

@@ -4798,15 +4798,18 @@ end;
procedure TMainForm.SetSelectedDatabase(db: WideString);
var
n: PVirtualNode;
n, f: PVirtualNode;
begin
if db = '' then
n := DBtree.GetFirst
else
n := FindDBNode(db);
if Assigned(n) then
SelectNode(DBtree, n)
else
if Assigned(n) then begin
// Set focus to db node, if current focus is outside
f := DBtree.FocusedNode;
if (not Assigned(f)) or (f.Parent <> n) then
SelectNode(DBtree, n);
end else
raise Exception.Create('Database node ' + db + ' not found in tree.');
end;