FIX: Crash when selecting files with right mouse button and moving mouse on empty space.

This commit is contained in:
cobines 2012-03-22 07:27:25 +00:00
commit 55c7579a3e

View file

@ -763,6 +763,13 @@ begin
gMouseSelectionEnabled and (gMouseSelectionButton = 1) then
begin
Node := dgPanel.GetNodeAt(X, Y);
if not Assigned(Node) then
begin
if Y < dgPanel.GetHeaderHeight then
Node := dgPanel.GetFirstNoInit
else
Node := dgPanel.GetLastNoInit;
end;
if dgPanel.FocusedNode <> Node then // if new row index
begin
tmContextMenu.Enabled:= False; // stop context menu timer