From 5db853472f099a7c37e5925cc7f61c3d5432eb73 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Thu, 4 Oct 2007 19:19:21 +0000
Subject: [PATCH] Qt: Create viewport on demand, not while initalizing
 TQtAbstractScrollArea.

git-svn-id: trunk@12319 -
---
 lcl/interfaces/qt/qtwidgets.pas   | 3 +--
 lcl/interfaces/qt/qtwscontrols.pp | 1 -
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index cae048b5b4..6ec60d848b 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -6580,8 +6580,7 @@ end;
 procedure TQtAbstractScrollArea.setVisible(visible: Boolean);
 begin
   inherited setVisible(visible);
-  if FViewPortWidget <> nil then
-    FViewPortWidget.setVisible(visible);
+  viewPort.setVisible(visible);
 end;
 
 {------------------------------------------------------------------------------
diff --git a/lcl/interfaces/qt/qtwscontrols.pp b/lcl/interfaces/qt/qtwscontrols.pp
index 3f530ff4b0..ea26764380 100644
--- a/lcl/interfaces/qt/qtwscontrols.pp
+++ b/lcl/interfaces/qt/qtwscontrols.pp
@@ -148,7 +148,6 @@ begin
   QtAbstractScrollArea := TQtAbstractScrollArea.Create(AWinControl, AParams);
   QtAbstractScrollArea.setFrameShape(TBorderStyleToQtFrameShapeMap[TCustomControl(AWinControl).BorderStyle]);
   QtAbstractScrollArea.AttachEvents;
-  QtAbstractScrollArea.viewportNeeded;
   Result := THandle(QtAbstractScrollArea);
 
   {$ifdef VerboseQt}