From 7d8bd255ff74fd0a95228aee8e328da79fd1002e Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Mon, 2 Jul 2007 06:09:07 +0000
Subject: [PATCH] We rely on OnDragOver checking for valid source controls. So,
 add a default insertion text for situations in which all typecastings fail.
 This text should never be visible.

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

diff --git a/source/childwin.pas b/source/childwin.pas
index 70bfe5c5..caf3bd0b 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -4129,6 +4129,7 @@ begin
   // dropping a TTreeNode into the query-memo
   SynMemoQuery.UndoList.AddGroupBreak;
   src := Source as TControl;
+  Text := 'Error: Unspecified source control in drag''n drop operation!';
   // Check for allowed controls as source has already
   // been performed in OnDragOver. So, only do typecasting here.
   if src is TTreeView then