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

lcl: TButtonPanel: fixed computing preferredsize

Browse Source 
git-svn-id: trunk@48631 -
This commit is contained in:
mattias 2015-04-05 08:38:30 +00:00
parent 483c6ba2cc
commit 1ff83d795c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/buttonpanel.pas
View File

@ -620,6 +620,7 @@ begin
CtrlPrefWidth:=0; CtrlPrefWidth:=0;
CtrlPrefHeight:=0; CtrlPrefHeight:=0;
AControl.GetPreferredSize(CtrlPrefWidth,CtrlPrefHeight); AControl.GetPreferredSize(CtrlPrefWidth,CtrlPrefHeight);
//debugln(['TCustomButtonPanel.CalculatePreferredSize ',DbgSName(AControl),' ',CtrlPrefHeight]);
if Align in [alLeft,alRight] then if Align in [alLeft,alRight] then
begin begin
inc(MinHeight,CtrlPrefHeight); inc(MinHeight,CtrlPrefHeight);
@ -642,8 +643,8 @@ begin
else else
inc(MinHeight,FBevel.Height+Spacing); inc(MinHeight,FBevel.Height+Spacing);
end; end;
PreferredWidth:=Max(PreferredWidth,MinWidth); PreferredWidth:=MinWidth;
PreferredHeight:=Max(PreferredHeight,MinHeight); PreferredHeight:=MinHeight;
//debugln(['TCustomButtonPanel.CalculatePreferredSize ',DbgSName(Self),' ',PreferredWidth,'x',PreferredHeight]); //debugln(['TCustomButtonPanel.CalculatePreferredSize ',DbgSName(Self),' ',PreferredWidth,'x',PreferredHeight]);
end; end;