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

Gtk2: set proper ROP mode when using StretchBlt(), BitBlt() and StretchMaskBlt(). issue #23742

Browse Source 
git-svn-id: trunk@62859 -
This commit is contained in:
zeljko 2020-04-02 11:55:46 +00:00
parent ff5b89a4f7
commit bd841f4865
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -4093,7 +4093,7 @@ var
SrcDCOrigin: TPoint; SrcDCOrigin: TPoint;
DstDCOrigin: TPoint; DstDCOrigin: TPoint;
SrcWholeWidth, SrcWholeHeight: integer; SrcWholeWidth, SrcWholeHeight: integer;
DstWholeWidth, DstWholeHeight: integer; DstWholeWidth, DstWholeHeight, AOldRop: integer;
begin begin
Result := IsValidDC(DestDC) and IsValidDC(SrcDC); Result := IsValidDC(DestDC) and IsValidDC(SrcDC);
{$IFDEF VerboseStretchCopyArea} {$IFDEF VerboseStretchCopyArea}
@ -4266,6 +4266,7 @@ begin
{$ENDIF} {$ENDIF}
{$IFDEF VerboseGtkToDos}{$note tode remove, earlier checks require drawable <> nil}{$ENDIF} {$IFDEF VerboseGtkToDos}{$note tode remove, earlier checks require drawable <> nil}{$ENDIF}
AOldRop := SetROP2(DestDC, Rop);
if SrcDevContext.Drawable = nil if SrcDevContext.Drawable = nil
then begin then begin
if DstDevContext.Drawable = nil if DstDevContext.Drawable = nil
@ -4281,6 +4282,7 @@ begin
else else
Result := DrawableToDrawable; Result := DrawableToDrawable;
end; end;
SetROP2(DestDC, AOldRop);
if TempPixmap <> nil if TempPixmap <> nil
then gdk_pixmap_unref(TempPixmap); then gdk_pixmap_unref(TempPixmap);