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

Qt: added BLACKNESS and WHITENESS support into TQtWidgetSet.StretchMaskBlt()

Browse Source 
git-svn-id: trunk@35473 -
This commit is contained in:
zeljko 2012-02-19 10:27:13 +00:00
parent 5866b2577e
commit 5e51d368a3
1 changed files with 26 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/qt/qtwinapi.inc
View File

@ -6227,6 +6227,7 @@ var
SrcMatrix: QTransformH;
dx, dy: integer;
OldRop: Integer;
OldBkColor: TColorRef;
begin
{$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI StretchMaskBlt]',
@ -6332,6 +6333,23 @@ begin
if TmpMask <> nil then
QImage_destroy(TmpMask);
end else
begin
if (Rop = BLACKNESS) or (Rop = WHITENESS) then
begin
OldRop := DstQDC.Rop2;
DstQDC.Rop2 := SRCCOPY;
try
if (Rop = BLACKNESS) then
OldBkColor := DstQDC.SetBkColor(clBlack)
else
OldBkColor := DstQDC.SetBkColor(clWhite);
with DstRect do
DstQDC.fillRect(Left, Top, Right - Left, Bottom - Top);
finally
DstQDC.SetBkColor(OldBkColor);
DstQDC.Rop2 := OldRop;
end;
end else
begin
OldRop := DstQDC.Rop2;
if Rop <> SRCCOPY then
@ -6343,6 +6361,7 @@ begin
DstQDC.Rop2 := OldRop;
end;
end;
end;
if SrcQDC.vImage = nil then
QImage_destroy(Image);