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

fix transparency while drawing (bug #462)

Browse Source 
git-svn-id: trunk@6427 -
This commit is contained in:
micha 2004-12-27 17:42:01 +00:00
parent 9767c47834
commit c5e34297ad
2 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/bitmap.inc
View File

@ -1093,6 +1093,7 @@ begin
' NewMaskHandle=',HexStr(Cardinal(NewMaskHandle),8));
{$ENDIF}
ReplaceBitmapMask(FImage.FHandle,FImage.FMaskHandle,NewMaskHandle);
FTransparent := FImage.FMaskHandle <> 0;
{$IFDEF VerboseImgMasks}
DebugLn('TBitmap.SetMaskHandle After Replace FImage.FHandle=',HexStr(Cardinal(FImage.FHandle),8),
' FImage.FMaskHandle=',HexStr(Cardinal(FImage.FMaskHandle),8),
@ -1246,6 +1247,9 @@ end;
{ =============================================================================
$Log$
Revision 1.92 2004/12/27 17:42:01 micha
fix transparency while drawing (bug 462)
Revision 1.91 2004/09/27 10:01:18 mattias
added TLazIntfImage.TColors property

16
lcl/interfaces/win32/win32winapi.inc
View File

@ -2936,13 +2936,14 @@ End;
the destination device context.
------------------------------------------------------------------------------}
Function TWin32WidgetSet.StretchMaskBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; Mask: HBITMAP; XMask, YMask: Integer; Rop: DWORD): Boolean;
var MaskBltResult: boolean;
StretchBltResult: boolean;
Begin
MaskBltResult := MaskBlt(DestDC, X, Y, Width, Height, SrcDC, XSrc, YSrc, Mask, XMask, YMask, Rop);
StretchBltResult := StretchBlt(DestDC, X, Y, Width, Height, SrcDC, XSrc, YSrc, SrcWidth, SrcHeight, Rop);
Result := MaskBltResult and StretchBltResult;
if (Width = SrcWidth) and (Height = SrcHeight) then
begin
Result := MaskBlt(DestDC, X, Y, Width, Height, SrcDC, XSrc, YSrc, Mask, XMask, YMask);
end else begin
{ TODO: does not use the mask }
Result := StretchBlt(DestDC, X, Y, Width, Height, SrcDC, XSrc, YSrc, SrcWidth, SrcHeight, Rop);
end;
//Result := False; //Windows.StretchMaskBlt(DestDC, X, Y, Width, Height, SrcDC, XSrc, YSrc, SrcWidth, SrcHeight, Mask, XMask, YMask, Rop);
End;
@ -3031,6 +3032,9 @@ end;
{ =============================================================================
$Log$
Revision 1.130 2004/12/27 17:42:01 micha
fix transparency while drawing (bug 462)
Revision 1.129 2004/12/11 01:28:58 mattias
implemented bvSpace of TBevelCut