paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 08:19:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK2: Use correct Brush.Color with non-default Brush.Style. Issue #36709

Browse Source 
git-svn-id: branches/fixes_2_0@62865 -
This commit is contained in:
mattias 2020-04-02 16:00:06 +00:00
parent e8353b7d83
commit 2fbaa6d712
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);