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

lcl: fixed a memory leak when canceling drag of dead control

Browse Source 
git-svn-id: trunk@37371 -
This commit is contained in:
paul 2012-05-21 07:21:48 +00:00
parent 136bb2bf67
commit e4be3b0c67
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/dragmanager.inc
View File

@ -266,12 +266,8 @@ procedure TDragPerformer.Notification(AComponent: TComponent;
begin
if Operation = opRemove then
begin
if Assigned(FDragObject) then
if (AComponent = FDragObject.Control) then
DragStop(False)
else
if (AComponent = FDragObject.DragTarget) then
DragMove(FDragObject.DragPos);
if Assigned(FDragObject) and (AComponent = FDragObject.DragTarget) then
DragMove(FDragObject.DragPos);
end;
end;
@ -782,6 +778,8 @@ begin
if FDockSites.Count = 0 then
FreeAndNil(FDockSites);
end;
if (AComponent is TControl) and Dragging(TControl(AComponent)) then
DragStop(False);
end;
end;