From 54b6f31fa9d48cb681fdbfb5adac09ff4f4a310f Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 23 Dec 2009 00:11:49 +0000
Subject: [PATCH] Safety check to avoid AVs in special cases.

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

diff --git a/source/main.pas b/source/main.pas
index 0ee56237..9443b950 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -6146,7 +6146,7 @@ begin
   oldSelectedTable := SelectedTable;
   DBNode := FindDBNode(db);
   FNode := DBtree.FocusedNode;
-  TableHereHadFocus := FNode.Parent = DBNode;
+  TableHereHadFocus := Assigned(FNode.Parent) and (FNode.Parent = DBNode);
   // Suspend focus changing event, to avoid tab jumping
   FocusChangeEvent := DBtree.OnFocusChanged;
   DBtree.OnFocusChanged := nil;