From 9dc38f304f286b8a3d0a382f347071ef8cfa44a6 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 23 Jul 2007 09:19:44 +0000
Subject: [PATCH] (Qt): misc

git-svn-id: trunk@11601 -
---
 lcl/interfaces/qt/qtwidgets.pas |  1 +
 lcl/interfaces/qt/qtwinapi.inc  | 13 +++----------
 2 files changed, 4 insertions(+), 10 deletions(-)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index f8b149593a..0ac995d46f 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -5186,6 +5186,7 @@ begin
   FViewPortWidget := NiL;
   Parent := TQtWidget(LCLObject.Parent.Handle).GetContainerWidget;
   Result := QScrollArea_create(Parent);
+  QWidget_setVisible(Result, False);
 end;
 
 {------------------------------------------------------------------------------
diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index 28dd374a3b..86b0f4c1a4 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -2935,7 +2935,6 @@ function TQtWidgetSet.RectVisible(dc : hdc; const ARect: TRect) : Boolean;
 var
   w: QWidgetH;
   Region: QRegionH;
-  R: PRect;
 begin
   {$ifdef VerboseQtWinAPI}
   writeln('[WinAPI RectVisible] ');
@@ -2945,18 +2944,12 @@ begin
   w := TQtDeviceContext(DC).Parent;
   if w <> nil then
   begin
-	  if QWidget_isVisible(w) then
+    if QWidget_isVisible(w) then
     begin
       Region := QRegion_create;
       try
-  	    QWidget_visibleRegion(w, Region);
-        New(R);
-        try
-          R^ := ARect;
-          Result := QRegion_contains(Region, R);
-        finally
-          Dispose(R);
-        end;
+        QWidget_visibleRegion(w, Region);
+        Result := QRegion_contains(Region, PRect(@ARect));
       finally
         QRegion_destroy(Region);
       end;