paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 11:39:17 +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
FInDragStop := True;
try
FPerformer.DragStop(ADropped);
FPerformer.DragStop(ADropped and not FWaitForTreshold);
finally
FreeAndNil(FPerformer);
FInDragStop := False;