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

* when setting image transparency also set graphic.transparent in case of a bitmap. This fixes #9634 and avoids the need for setting bitmap transparency manually. Setting btimap transparency afterwards is still possible

Browse Source 
git-svn-id: trunk@12515 -
This commit is contained in:
marc 2007-10-18 23:00:02 +00:00
parent 80b15213f0
commit d643d77da7
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/customimage.inc
View File

@ -122,10 +122,14 @@ begin
end;
procedure TCustomImage.SetTransparent(Value : Boolean);
begin
if FTransparent=Value then exit;
FTransparent := Value;
PictureChanged(Self);
if (FPicture.Graphic is TBitmap)
and (FPicture.Graphic.Transparent <> FTransparent)
then FPicture.Graphic.Transparent := FTransparent
else PictureChanged(Self);
end;
procedure TCustomImage.SetCenter(Value : Boolean);