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

Gtk2: fixed wrong implementation of SetGCRasterOperation().Fixes issue #18330

Browse Source 
git-svn-id: trunk@28844 -
This commit is contained in:
zeljko 2010-12-31 08:13:14 +00:00
parent 6a7de6fc3f
commit 0f23c5419f
1 changed files with 13 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -912,27 +912,19 @@ end;
procedure SetGCRasterOperation(TheGC: PGDKGC; Rop: Cardinal);
begin
case ROP of
WHITENESS,
BLACKNESS,
SRCCOPY :
gdk_gc_set_function(TheGC, GDK_Copy);
SRCPAINT :
gdk_gc_set_function(TheGC, GDK_NOOP);
SRCAND :
gdk_gc_set_function(TheGC, GDK_Clear);
SRCINVERT :
gdk_gc_set_function(TheGC, GDK_XOR);
SRCERASE :
gdk_gc_set_function(TheGC, GDK_AND);
NOTSRCCOPY :
gdk_gc_set_function(TheGC, GDK_OR_REVERSE);
NOTSRCERASE :
gdk_gc_set_function(TheGC, GDK_AND);
MERGEPAINT :
gdk_gc_set_function(TheGC, GDK_Copy_Invert);
DSTINVERT :
gdk_gc_set_function(TheGC, GDK_INVERT);
else begin
SRCCOPY : gdk_gc_set_function(TheGC, GDK_COPY);
SRCPAINT : gdk_gc_set_function(TheGC, GDK_OR);
SRCAND : gdk_gc_set_function(TheGC, GDK_AND);
SRCINVERT : gdk_gc_set_function(TheGC, GDK_XOR);
SRCERASE : gdk_gc_set_function(TheGC, GDK_AND_REVERSE);
NOTSRCCOPY : gdk_gc_set_function(TheGC, GDK_COPY_INVERT);
NOTSRCERASE : gdk_gc_set_function(TheGC, GDK_NOR);
MERGEPAINT : gdk_gc_set_function(TheGC, GDK_OR_INVERT);
DSTINVERT : gdk_gc_set_function(TheGC, GDK_INVERT);
BLACKNESS : gdk_gc_set_function(TheGC, GDK_CLEAR);
WHITENESS : gdk_gc_set_function(TheGC, GDK_SET);
else
begin
gdk_gc_set_function(TheGC, GDK_COPY);
DebugLn('WARNING: [SetRasterOperation] Got unknown/unsupported CopyMode!!');
end;