From cda819b2eba6383300d0231c64dc032a98adbc7d Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Mon, 14 Oct 2013 06:28:24 +0000
Subject: [PATCH] Qt: do not loop with LCL when designing TPageControl, keep
 LCL sizes when InUpdate.

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

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 5abddbf6d5..1efb9f60bd 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -3869,6 +3869,11 @@ begin
     if not (ClassType = TQtMainWindow) and InUpdate then
       exit;
 
+  {keep LCL value while designing pageControl}
+  if (csDesigning in LCLObject.ComponentState) and InUpdate and
+    ((Self is TQtPage) or (Self is TQtTabWidget)) then
+      exit;
+
   if CanAdjustClientRectOnResize and
     ((NewSize.cx <> LCLObject.Width) or (NewSize.cy <> LCLObject.Height) or
      LCLObject.ClientRectNeedsInterfaceUpdate) then