From c7ae5633d7f8fca43a0f24108ce069691854e61e Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 23 Oct 2012 11:31:16 +0000
Subject: [PATCH] fix possible crash in dragdrop demo

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2583 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../branches/4.8/demos/dragdrop/fmain.pas                | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/components/virtualtreeview-new/branches/4.8/demos/dragdrop/fmain.pas b/components/virtualtreeview-new/branches/4.8/demos/dragdrop/fmain.pas
index 99d89bb9d..dac3dd138 100644
--- a/components/virtualtreeview-new/branches/4.8/demos/dragdrop/fmain.pas
+++ b/components/virtualtreeview-new/branches/4.8/demos/dragdrop/fmain.pas
@@ -105,7 +105,7 @@ begin
   case Mode of
     dmAbove: Node := Sender.InsertNode(Sender.DropTargetNode, amInsertBefore);
     dmBelow: Node := Sender.InsertNode(Sender.DropTargetNode, amInsertAfter);
-    dmNowhere: Node := Sender.InsertNode(Sender.DropTargetNode, amNoWhere);
+    dmNowhere: Exit;
   else
     Node := Sender.AddChild(Sender.DropTargetNode);
   end;
@@ -119,10 +119,13 @@ begin
   end
   else if Source = Sender then
   begin
-    NodeTitle := VirtualStringTree1.Text[Sender.FocusedNode, 0];
+    if Sender.FocusedNode <> nil then
+      NodeTitle := VirtualStringTree1.Text[Sender.FocusedNode, 0]
+    else
+      NodeTitle := 'Unknow Source Node';
   end
   else
-    NodeTitle := 'Unknow Source';
+    NodeTitle := 'Unknow Source Control';
   PNodeData(Sender.GetNodeData(Node))^.Title := NodeTitle;
 end;