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

lcl: TImage: check Picture.Graphic existence before setting it Transparency

Browse Source 
git-svn-id: trunk@16389 -
This commit is contained in:
paul 2008-09-03 13:46:55 +00:00
parent 87854c957c
commit 67ef0cd399
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/include/customimage.inc
View File

@ -123,7 +123,7 @@ procedure TCustomImage.SetTransparent(Value : Boolean);
begin begin
if FTransparent=Value then exit; if FTransparent=Value then exit;
FTransparent := Value; FTransparent := Value;
if (FPicture.Graphic.Transparent <> FTransparent) if (FPicture.Graphic <> nil) and (FPicture.Graphic.Transparent <> FTransparent)
then FPicture.Graphic.Transparent := FTransparent then FPicture.Graphic.Transparent := FTransparent
else PictureChanged(Self); else PictureChanged(Self);
end; end;