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

gtk, qt: don't raise any exception when hatches brush is requested but hatch is not set - use solid brush as windows do in this case (fixes bug #0015195)

Browse Source 
git-svn-id: trunk@22994 -
This commit is contained in:
paul 2009-12-06 06:59:46 +00:00
parent 714eb90aaa
commit 91640c8d2b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1023,7 +1023,7 @@ begin
GObject^.GDIBrushPixmap := gdk_bitmap_create_from_data(
nil, pgchar(@HATCH_VERTICAL[0]), 8, 8);
else
RaiseGDBException('invalid lbHatch');
GObject^.GDIBrushFill := GDK_SOLID;
end;
end;

2
lcl/interfaces/qt/qtwinapi.inc
View File

@ -422,7 +422,7 @@ begin
HS_HORIZONTAL: QtBrush.setStyle(QtHorPattern);
HS_VERTICAL: QtBrush.setStyle(QtVerPattern);
else
RaiseGDBException('invalid lbHatch');
QtBrush.setStyle(QtSolidPattern);
end;
end;