From 6a9535a69a75db92955aaecec4f0c5a6ddffcbe0 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Sat, 7 May 2011 19:27:55 +0000
Subject: [PATCH] Qt: TQtWidgetSet.CreateRectRgn() create region with X=0 and
 Y=0 and then translate by offset X1 and Y1

git-svn-id: trunk@30607 -
---
 lcl/interfaces/qt/qtwinapi.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index 2267d399fb..bc4e3e0253 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -757,7 +757,7 @@ function TQtWidgetSet.CreateRectRgn(X1,Y1,X2,Y2 : Integer): HRGN;
 var
   QtRegion: TQtRegion;
 begin
-  QtRegion := TQtRegion.Create(True, X1, Y1, X2, Y2);
+  QtRegion := TQtRegion.Create(True, 0, 0, X2, Y2);
   if (X1 <> 0) or (Y1 <> 0) then
     QtRegion.translate(X1, Y1);
   Result := HRGN(QtRegion);