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

LCL: Prevent crash by calling ShowDragImage/HideDragImage only if DragImageListResolution is not nil.

Browse Source 
git-svn-id: trunk@65055 -
This commit is contained in:
balazs 2021-04-23 14:40:42 +00:00
parent 492321d819
commit 25a1c56fc2
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/dragimagelist.inc
View File

@ -138,8 +138,12 @@ end;
Hide dragging image without unlocking of window
}
procedure TDragImageList.HideDragImage;
var
DragImageListResolution: TDragImageListResolution;
begin
GetDraggingResolution.HideDragImage;
DragImageListResolution := GetDraggingResolution;
if DragImageListResolution <> nil then
DragImageListResolution.HideDragImage;
end;
{
@ -176,8 +180,12 @@ end;
Show dragging image
}
procedure TDragImageList.ShowDragImage;
var
DragImageListResolution: TDragImageListResolution;
begin
GetDraggingResolution.ShowDragImage;
DragImageListResolution := GetDraggingResolution;
if DragImageListResolution <> nil then
DragImageListResolution.ShowDragImage;
end;
{ TDragImageListResolution }