paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 04:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed wrong result from DragManager.IsDragging if we call modal form or dialog from OnDragDrop() event. issues #17657 and #20676

Browse Source 
git-svn-id: trunk@35181 -
This commit is contained in:
zeljko 2012-02-06 13:51:19 +00:00
parent 311b8e0ab1
commit e0d1f86ca1
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

@ -619,7 +619,7 @@ end;
function TDragManagerDefault.IsDragging: boolean;
//Is something being dragged
begin
Result := FPerformer <> nil
Result := (FPerformer <> nil) and not FInDragStop;
end;
function TDragManagerDefault.Dragging(AControl: TControl): boolean;