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

Qt: do not send dummy resize event for normal groupboxes.

Browse Source 
git-svn-id: trunk@24871 -
This commit is contained in:
zeljko 2010-04-24 11:17:49 +00:00
parent 448bdf7bb4
commit f8c5380113
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5023,7 +5023,8 @@ begin
LCLObject.DoAdjustClientRectChange(False); LCLObject.DoAdjustClientRectChange(False);
SlotShow(True); SlotShow(True);
{send dummy LM_SIZE to LCL} {send dummy LM_SIZE to LCL}
if LCLObject.ClientRectNeedsInterfaceUpdate then if (FGroupBoxType <> tgbtNormal) and
LCLObject.ClientRectNeedsInterfaceUpdate then
begin begin
OldSize.cx := LCLObject.Height; OldSize.cx := LCLObject.Height;
OldSize.cy := LCLObject.Width; OldSize.cy := LCLObject.Width;