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

LCL: grids: fix potential Access Violation

Browse Source 
git-svn-id: trunk@57797 -
This commit is contained in:
hnb 2018-05-06 22:54:01 +00:00
parent ad5ec661f2
commit 42b24279aa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/grids.pas
View File

@ -5388,7 +5388,7 @@ var
ResName: string; ResName: string;
begin begin
c := ColumnFromGridColumn(AColumnIndex); c := ColumnFromGridColumn(AColumnIndex);
if (c <> nil) and InRange(c.Title.FImageIndex, 0, FTitleImageList.Count - 1) then if (c <> nil) and (FTitleImageList <> nil) and InRange(c.Title.FImageIndex, 0, FTitleImageList.Count - 1) then
begin begin
ImgIndex := c.Title.FImageIndex; ImgIndex := c.Title.FImageIndex;
ImgLayout := c.Title.ImageLayout; ImgLayout := c.Title.ImageLayout;