paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 16:19:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Avoid SegFault of freshly created TCustomListview with owner-data (issue #34407, patch by Charles Grunwald).

Browse Source 
git-svn-id: trunk@59287 -
This commit is contained in:
wp 2018-10-11 08:23:22 +00:00
parent 903fe44d31
commit 1fa1c72584
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/customlistview.inc
View File

@ -1670,6 +1670,7 @@ begin
EndUpdate; EndUpdate;
end; end;
end else end else
if FSelected <> nil then
FSelected.Selected := False; FSelected.Selected := False;
FSelected := nil; FSelected := nil;
Include(FFlags,lffSelectedValid); Include(FFlags,lffSelectedValid);