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

lcl: don't draw background on TImage with TransparentColor.

Browse Source 
Reasons: Transparent property controls only Graphic.Transparent and nothing more. If an image is always transparent (icon, png with alpha, etc) this property controls nothing. This is also delphi compatible behavior (fixes #0011646).

git-svn-id: trunk@16374 -
This commit is contained in:
paul 2008-09-03 03:00:41 +00:00
parent 60daf2ddd1
commit c8f918e694
1 changed files with 7 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lcl/include/customimage.inc
View File

@ -66,8 +66,9 @@ end;
procedure TCustomImage.SetPicture(const AValue: TPicture);
begin
if FPicture=AValue then exit;
FPicture.Assign(AValue); //the OnChange of the picture gets called and
// notifies this TCustomImage that something changed.
//the OnChange of the picture gets called and
// notifies this TCustomImage that something changed.
FPicture.Assign(AValue);
end;
procedure TCustomImage.DoAutoSize;
@ -104,10 +105,8 @@ begin
if (NewWidth>100000) or (NewHeight>100000) then
OutOfBounds;
if (NewWidth<>Width) or (NewHeight<>Height)
then begin
if (NewWidth<>Width) or (NewHeight<>Height) then
SetBounds(Left, Top, NewWidth, NewHeight);
end;
finally
EndAutoSizing;
end;
@ -124,8 +123,7 @@ procedure TCustomImage.SetTransparent(Value : Boolean);
begin
if FTransparent=Value then exit;
FTransparent := Value;
if (FPicture.Graphic is TBitmap)
and (FPicture.Graphic.Transparent <> FTransparent)
if (FPicture.Graphic.Transparent <> FTransparent)
then FPicture.Graphic.Transparent := FTransparent
else PictureChanged(Self);
end;
@ -153,10 +151,9 @@ begin
InvalidatePreferredSize;
AdjustSize;
end;
if FTransparent
then Picture.Graphic.Transparent := True;
Picture.Graphic.Transparent := FTransparent;
end;
Invalidate;
invalidate;
end;
function TCustomImage.DestRect: TRect;
@ -228,7 +225,6 @@ procedure TCustomImage.Paint;
var
R: TRect;
C: TCanvas;
BackgroundColor: Integer;
begin
// detect loop
if FUseParentCanvas then exit;
@ -239,23 +235,8 @@ begin
if Picture.Graphic = nil
then Exit;
if Picture.Graphic.Transparent and not Transparent
then begin
if Picture.Graphic is TBitmap
then BackgroundColor := TBitmap(Picture.Graphic).TransparentColor
else BackgroundColor := clWhite;
end
else begin
BackgroundColor := clNone;
end;
C := inherited Canvas;
R := DestRect;
if BackgroundColor <> clNone
then begin
C.Brush.Color := BackgroundColor;
C.FillRect(R);
end;
C.StretchDraw(R, Picture.Graphic);
try