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

Gtk3: fix fillRect() if currentBrush.style = BS_NULL.

Browse Source
This commit is contained in:
zeljan1 2025-01-14 14:06:19 +01:00
parent b8df3cbaa3
commit 6e2d780497
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk3/gtk3objects.pas
View File

@ -2313,7 +2313,8 @@ begin
applyBrush;
cairo_rectangle(pcr, x + PixelOffset, y + PixelOffset, w - 1, h - 1);
cairo_fill_preserve(pcr);
if CurrentBrush.Style <> BS_NULL then
cairo_fill_preserve(pcr);
// must paint border, filling is not enough
SetSourceColor(FCurrentBrush.Color);