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

LCL: reorder evaluation in DragStop. Patch by Artem Izmaylov. issue #41539

Browse Source
This commit is contained in:
zeljan1 2025-03-19 15:40:12 +01:00
parent 447b40f4c8
commit 1dd3bb3d01
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/dragmanager.inc
View File

@ -239,7 +239,7 @@ begin
TargetPos := ADragObjectCopy.DragTargetPos //controls can override the position
else
TargetPos := ADragObjectCopy.DragPos; //otherwise take the current position
Accepted := ADropped and SendCmDragMsg(ADragObjectCopy, dmDragLeave);
Accepted := SendCmDragMsg(ADragObjectCopy, dmDragLeave) and ADropped;
ADragObjectCopy.FDropped := Accepted;
if ADragObjectCopy.DragTarget <> nil then
@ -630,7 +630,7 @@ begin
TargetPos := ADockObjectCopy.DragTargetPos //controls can override the position
else
TargetPos := ADockObjectCopy.DragPos; //otherwise take the current position
Accepted := Accepted and (Moved or ADockObjectCopy.Floating or SendCmDragMsg(ADockObjectCopy, dmDragLeave)) and ADropped;
Accepted := (SendCmDragMsg(ADockObjectCopy, dmDragLeave) or Moved or ADockObjectCopy.Floating) and Accepted and ADropped;
ADockObjectCopy.FDropped := Accepted;
// float