mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Crash on external drop into empty part of panel.

Browse source
This commit is contained in:
cobines 2012-04-06 07:16:08 +00:00
commit fe72daee04
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/newdesign/ucolumnsfileviewvtv.pas
View file

@ -3886,10 +3886,10 @@ begin
Exit;
end;
Node := GetNodeAt(ClientPoint.X, ClientPoint.Y);
// Get the item over which there is something dragged.
AFile := GetNodeFile(Node);
Node := GetNodeAt(ClientPoint.X, ClientPoint.Y);
if Assigned(Node) then
AFile := GetNodeFile(Node);
if Assigned(AFile) and
(AFile.FSFile.IsDirectory or AFile.FSFile.IsLinkToDirectory) and
@ -3907,7 +3907,7 @@ begin
end;
function TColumnsDrawTree.OnExDrop(const FileNamesList: TStringList; DropEffect: TDropEffect;
ScreenPoint: TPoint):Boolean;
ScreenPoint: TPoint):Boolean;
var
Files: TFiles;
DropParams: TDropParams;