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

LCL: TCustomTabControl fixed crash with nil Images property. patch by Luca Olivetti Issue #0035646

Browse Source 
git-svn-id: branches/fixes_2_0@61481 -
This commit is contained in:
mattias 2019-06-26 15:08:05 +00:00
parent 18a0c25719
commit 1437060d73
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

@ -1221,7 +1221,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(