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

lcl: don't produce false drops during drag/drop operations in case we are still waiting for drag threshold (by Hans-Peter Diettrich, issue #0013675)

Browse Source 
git-svn-id: trunk@19842 -
This commit is contained in:
paul 2009-05-08 01:14:00 +00:00
parent 96db128d27
commit c9a275b3a4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/dragmanager.inc
View File

@ -603,7 +603,7 @@ begin
begin begin
FInDragStop := True; FInDragStop := True;
try try
FPerformer.DragStop(ADropped); FPerformer.DragStop(ADropped and not FWaitForTreshold);
finally finally
FreeAndNil(FPerformer); FreeAndNil(FPerformer);
FInDragStop := False; FInDragStop := False;