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

gtk: skip ROP2 for FillRect (partly fixes issue #0013746)

Browse Source 
git-svn-id: trunk@20031 -
This commit is contained in:
paul 2009-05-19 01:57:18 +00:00
parent 7dcf00f903
commit ef226daf23
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -4321,6 +4321,7 @@ begin
//DebugLn('TGtkWidgetSet.FillRect Color=',DbgS(CurrentBrush^.GDIBrushColor.ColorRef));
SelectBrushProps;
gdk_gc_set_function(GC, GDK_COPY);
DCOrigin := Offset;
if (CurrentBrush^.GDIBrushFill = GDK_SOLID) and
@ -4336,6 +4337,7 @@ begin
Rect.Left+DCOrigin.X, Rect.Top+DCOrigin.Y,
Width, Height);
end;
gdk_gc_set_function(GC, GCValues._function);
// Restore current brush
if BrushChanged then