pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix possible crash in dragdrop demo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2583 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2012-10-23 11:31:16 +00:00
parent 501e8ee43b
commit c7ae5633d7
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/virtualtreeview-new/branches/4.8/demos/dragdrop/fmain.pas
View File

@ -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;