From 0f361d5af0a9aaa4007dc071fa4690dd9b7594ed Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 2 Sep 2007 10:36:55 +0000
Subject: [PATCH] Avoid time consuming animation when DBtree items are deleted
 and restored in databases with many tables.

---
 source/childwin.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/source/childwin.pas b/source/childwin.pas
index ec1b6d1d..4522ad87 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -1936,6 +1936,7 @@ begin
   else exit;
 
   // get all tables back into dbtree
+  DBTree.Items.BeginUpdate;
   for u:=tndb.Count-1 downto 0 do tndb.Item[u].delete;
   ds := FetchActiveDbTableList;
   for t:=0 to ds.RecordCount-1 do
@@ -1947,6 +1948,7 @@ begin
     end;
     ds.Next;
   end;
+  DBTree.Items.EndUpdate;
 end;