paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 15:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

DragDrop: sending dmDragMove added bug #1930

Browse Source 
git-svn-id: trunk@9604 -
This commit is contained in:
mattias 2006-07-14 14:09:14 +00:00
parent 0e494526fd
commit 4aa0e5a469
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/dragdock.inc
View File

@ -255,9 +255,9 @@ Begin
else else
ActiveDrag := dopDock; ActiveDrag := dopDock;
// if Target changed, send dmDragLeave to old target and dmDragEnter to new
if TargetControl <> DragObject.DragTarget then if TargetControl <> DragObject.DragTarget then
begin begin
// Target changed => send dmDragLeave to old target and dmDragEnter to new
SendDragOver(dmDragLeave); SendDragOver(dmDragLeave);
if DragObject = nil then Exit; if DragObject = nil then Exit;
DragObject.DragTarget := TargetControl; DragObject.DragTarget := TargetControl;
@ -268,6 +268,11 @@ Begin
DragObject.DragPos := Position; DragObject.DragPos := Position;
SendDragOver(dmDragEnter); SendDragOver(dmDragEnter);
if DragObject = nil then Exit; if DragObject = nil then Exit;
end else begin
// same target => send dmDragMove
DragObject.DragPos := Position;
SendDragOver(dmDragMove);
if DragObject = nil then Exit;
end; end;
// update Position // update Position