From 7e1331300dd37eeff3ae102926ca227b3f5f17e7 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 11 Jan 2011 18:22:55 +0000
Subject: [PATCH] Internally reset cached list of databases after dropping a
 db. Fixes issue #2271.

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

diff --git a/source/main.pas b/source/main.pas
index ec881f6c..db4f6702 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -2630,6 +2630,8 @@ begin
           Conn.Query('DROP DATABASE ' + QuoteIdent(db));
           DBtree.DeleteNode(Node);
           Conn.ClearDbObjects(db);
+          Conn.RefreshAllDatabases;
+          InvalidateVT(ListDatabases, VTREE_NOTLOADED_PURGECACHE, False);
         except
           on E:EDatabaseError do
             MessageDlg(E.Message, mtError, [mbOK], 0);