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

LCL: Fix Sigsegv when assigning images to Tlistview columns. Issue #25844, patch from ocean.

Browse Source 
git-svn-id: trunk@44454 -
This commit is contained in:
juha 2014-03-16 23:39:04 +00:00
parent 41f1295739
commit 0cf581f13c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/win32/win32callback.inc
View File

@ -1484,7 +1484,9 @@ begin
end;
end else
if (lWinControl <> nil) and (lWinControl is TListView) and
(TListView(lWinControl).ViewStyle = vsReport) then
(TListView(lWinControl).ViewStyle = vsReport) and
(PDrawItemStruct(LParam)^.ctlType = ODT_LISTVIEW) and
(TListView(lWinControl).OwnerDraw) then
begin
if PDrawItemStruct(LParam)^.itemID <> dword(-1) then
begin