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

LCL-GTK2: Use correct Brush.Color with non-default Brush.Style. Issue #36709, patch from Anton Kavalenka.

Browse Source 
git-svn-id: trunk@62743 -
This commit is contained in:
juha 2020-03-11 22:32:59 +00:00
parent eaeca4e4bf
commit c56c25c78a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2devicecontext.inc
View File

@ -1073,7 +1073,7 @@ begin
//invert background / foreground colors to match Windows.FillRect behavior
//with a 1bit bitmap pattern brush (bit set -> back color, bit unset -> text color)
EnsureGCColor(HDC(Self), dccCurrentTextColor, False, True);
EnsureGCColor(HDC(Self), dccCurrentBackColor, False, False);
EnsureGCColor(HDC(Self), dccCurrentBackColor, True, True);
gdk_gc_set_stipple(GC, CurrentBrush^.GDIBrushPixmap);
//use GDK_OPAQUE_STIPPLED to draw both background and foreground color
gdk_gc_set_fill(GC, GDK_OPAQUE_STIPPLED);