paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 00:39:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: do not loop with LCL when designing TPageControl, keep LCL sizes when InUpdate.

Browse Source 
git-svn-id: trunk@43242 -
This commit is contained in:
zeljko 2013-10-14 06:28:24 +00:00
parent 108e9a59dc
commit cda819b2eb
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/qt/qtwidgets.pas
View File

@ -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