mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 01:39:25 +02:00
lcl: TButtonPanel: fixed computing preferredsize
git-svn-id: trunk@48631 -
This commit is contained in:
parent
483c6ba2cc
commit
1ff83d795c
@ -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;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user