From 46f80835462088358e2baaf40c9146e46689f8e7 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Mon, 6 Aug 2007 11:56:03 +0000
Subject: [PATCH] (Qt): Fix for but #9367 - PaintStructure msg initialization.

git-svn-id: trunk@11746 -
---
 lcl/interfaces/qt/qtwidgets.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 42f30afde4..5c9e91f9c8 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -1596,8 +1596,14 @@ begin
       QPaintEvent_Rect(QPaintEventH(Event), ClipRect);
     end;
 
+
     Msg.DC := BeginPaint(THandle(Self), AStruct^);
     FContext := Msg.DC;
+    
+    Msg.PaintStruct^.rcPaint := PaintData.ClipRect^;
+	  Msg.PaintStruct^.hdc := FContext;
+
+
     with getClientBounds do
       SetWindowOrgEx(Msg.DC, -Left, -Top, nil);