paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 06:56:05 +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( GObject^.GDIBrushPixmap := gdk_bitmap_create_from_data(
nil, pgchar(@HATCH_VERTICAL[0]), 8, 8); nil, pgchar(@HATCH_VERTICAL[0]), 8, 8);
else else
RaiseGDBException('invalid lbHatch'); GObject^.GDIBrushFill := GDK_SOLID;
end; end;
end; end;

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

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