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

LCL: TSpeedButton, TBitBtn: fix AV. Issue #33645

Browse Source 
git-svn-id: trunk@57704 -
This commit is contained in:
ondrej 2018-04-25 08:03:03 +00:00
parent 9e333da657
commit 2ef8957cd8
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/bitbtn.inc
View File

@ -87,7 +87,7 @@ procedure TCustomBitBtn.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation = opRemove) and (AComponent = FButtonGlyph.ExternalImages) then
if (Operation = opRemove) and (FButtonGlyph <> nil) and (AComponent = FButtonGlyph.ExternalImages) then
Images := nil;
end;

2
lcl/include/speedbutton.inc
View File

@ -860,7 +860,7 @@ procedure TCustomSpeedButton.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation = opRemove) and (AComponent = FGlyph.ExternalImages) then
if (Operation = opRemove) and (FGlyph<>nil) and (AComponent = FGlyph.ExternalImages) then
Images := nil;
end;