From 91640c8d2bce353c80973a96b5cd35d08d91fe83 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sun, 6 Dec 2009 06:59:46 +0000
Subject: [PATCH] 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)

git-svn-id: trunk@22994 -
---
 lcl/interfaces/gtk/gtkwinapi.inc | 2 +-
 lcl/interfaces/qt/qtwinapi.inc   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index a88e42f156..fafdc7d5c0 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -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;
 
diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index ad3ee0d14c..7906594d15 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -422,7 +422,7 @@ begin
           HS_HORIZONTAL: QtBrush.setStyle(QtHorPattern);
           HS_VERTICAL: QtBrush.setStyle(QtVerPattern);
         else
-          RaiseGDBException('invalid lbHatch');
+          QtBrush.setStyle(QtSolidPattern);
         end;
       end;