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

LCL: TCustomTabControl fixed crash with nil Images property. patch by Luca Olivetti. issue #35646

Browse Source 
git-svn-id: trunk@61308 -
This commit is contained in:
zeljko 2019-06-01 07:11:21 +00:00
parent 75accac5aa
commit 4dc3fb5ee6
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/customnotebook.inc
View File

@ -1201,7 +1201,12 @@ end;
procedure TCustomTabControl.DoImageListChange(Sender: TObject);
begin
if HandleAllocated then
TWSCustomTabControlClass(WidgetSetClass).SetImageList(Self, Images.ResolutionForPPI[ImagesWidth, Font.PixelsPerInch, 1].Resolution); // to-do: support scaling factor
begin
if Assigned(Images) then
TWSCustomTabControlClass(WidgetSetClass).SetImageList(Self, Images.ResolutionForPPI[ImagesWidth, Font.PixelsPerInch, 1].Resolution) // to-do: support scaling factor
else
TWSCustomTabControlClass(WidgetSetClass).SetImageList(Self, nil);
end;
end;
procedure TCustomTabControl.DoImageListDestroyResolutionHandle(