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

LCL-GTK3: Fix swapped R/B colors. Issue #36374, patch from Anton Kavalenka.

Browse Source 
git-svn-id: trunk@62377 -
This commit is contained in:
juha 2019-12-11 11:33:31 +00:00
parent 72211dbe07
commit 37ca5b4d49
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk3/gtk3winapi.inc
View File

@ -4073,8 +4073,13 @@ begin
{$ENDIF} {$ENDIF}
ATargetRect := Rect(X, Y, Width + X, Height + Y); ATargetRect := Rect(X, Y, Width + X, Height + Y);
ASrcRect := Rect(XSrc, YSrc, SrcWidth + XSrc, SrcHeight + YSrc); ASrcRect := Rect(XSrc, YSrc, SrcWidth + XSrc, SrcHeight + YSrc);
DestContext.drawImage1(@ATargetRect, PgdkPixbuf(SrcContext.CurrentImage.Handle) , @ASrcRect, nil, nil);
// Result := True; if (DestContext.OwnsSurface) then
DestContext.drawImage1(@ATargetRect, PgdkPixbuf(SrcContext.CurrentImage.Handle) , @ASrcRect, nil, nil)
else
DestContext.drawSurface(@ATargetRect,SrcContext.CairoSurface , @ASrcRect, nil, nil);
Result := True;
end; end;
function TGtk3WidgetSet.SystemParametersInfo(uiAction: DWord; uiParam: DWord; function TGtk3WidgetSet.SystemParametersInfo(uiAction: DWord; uiParam: DWord;