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

Refreshing ListTables after creating a table from outside did not make that new table visible in database tree. Fixes issue #1876.

Browse Source
This commit is contained in:
Ansgar Becker
2010-04-18 11:24:29 +00:00
parent 016105220c
commit dfb19d1d1d
1 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
source/main.pas
View File

@@ -2302,7 +2302,7 @@ begin
for DBObject in ObjectList do
Connection.Query('DROP '+UpperCase(DBObject.ObjType)+' '+Mask(DBObject.Name));
// Refresh ListTables + dbtree so the dropped tables are gone:
RefreshTreeDB(ActiveDatabase);
Connection.ClearDbObjects(ActiveDatabase);
except
on E:Exception do
MessageDlg(E.Message, mtError, [mbOK], 0);
@@ -5035,7 +5035,8 @@ begin
Result := TDBObject.Create;
if Assigned(Node) and (DBtree.GetNodeLevel(Node)=2) then begin
DBObjects := Connection.GetDBObjects(ActiveDatabase);
Result.Assign(DBObjects[Node.Index]);
if Node.Index < DBObjects.Count then
Result.Assign(DBObjects[Node.Index]);
end;
end;
@@ -6454,9 +6455,25 @@ end;
procedure TMainForm.DBObjectsCleared(Database: String);
var
Node: PVirtualNode;
begin
if (Database='') or (ActiveDatabase=Database) then
// Avoid AVs while processing FormDestroy
if csDestroying in ComponentState then
Exit;
// Reload objects in ListTables
if ActiveDatabase=Database then
InvalidateVT(ListTables, VTREE_NOTLOADED, False);
// Reload objects for database tree
Node := DBtree.GetFirstChild(DBtree.GetFirst);
while Assigned(Node) do begin
if Database = DBtree.Text[Node, 0] then begin
Node.States := Node.States - [vsInitialized];
DBtree.InvalidateChildren(Node, False);
end;
Node := DBtree.GetNextSibling(Node);
end;
ActiveDatabase := Database;
end;
@@ -6559,8 +6576,6 @@ begin
DBtree.OnFocusChanged := nil;
// Refresh db node
Connection.ClearDbObjects(db);
DBTree.ReinitNode(DBNode, true);
DBtree.InvalidateChildren(DBNode, false);
// Set focus on previously focused table node
FocusFound := False;
if TableHereHadFocus then begin