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

* Forced graphic to be transparent when TImage is transparent (fixes #10084)

Browse Source 
git-svn-id: trunk@12683 -
This commit is contained in:
marc 2007-11-02 01:28:32 +00:00
parent 0be96a2869
commit 8702a324fd
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/customimage.inc
View File

@ -148,10 +148,15 @@ end;
procedure TCustomImage.PictureChanged(Sender : TObject);
begin
if AutoSize and (Picture.Graphic <> nil)
if Picture.Graphic <> nil
then begin
InvalidatePreferredSize;
AdjustSize;
if AutoSize
then begin
InvalidatePreferredSize;
AdjustSize;
end;
if FTransparent
then Picture.Graphic.Transparent := True;
end;
Invalidate;
end;