paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-29 19:49:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TWinControl.ChildSizing with controlstyle csAutoSize0x0, bug #24986

Browse Source 
git-svn-id: trunk@42702 -
This commit is contained in:
mattias 2013-09-09 13:19:50 +00:00
parent abd94d0f29
commit 084093d91e
1 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/include/wincontrol.inc
View File

@ -1364,6 +1364,9 @@ end;
procedure TAutoSizeBox.SetControl(AControl: TControl);
var
Border: TRect;
AutoSize0x0: Boolean;
IsPrefWidthValid: Boolean;
IsPrefHeightValid: Boolean;
begin
Control:=AControl;
MinimumSize[asboHorizontal]:=Control.Constraints.EffectiveMinWidth;
@ -1375,32 +1378,39 @@ begin
true, // without constraints
true // with theme space
);
//DebugLn(['TAutoSizeBox.SetControl ',DbgSName(Control),' ',PreferredSize[asboHorizontal]]);
AutoSize0x0:=csAutoSize0x0 in Control.ControlStyle;
IsPrefWidthValid:=(PreferredSize[asboHorizontal]>0)
or (AutoSize0x0 and (PreferredSize[asboHorizontal]=0));
IsPrefHeightValid:=(PreferredSize[asboVertical]>0)
or (AutoSize0x0 and (PreferredSize[asboVertical]=0));
// apply constraints
if PreferredSize[asboHorizontal]>0 then
if IsPrefWidthValid then
PreferredSize[asboHorizontal]:=
Control.Constraints.MinMaxWidth(PreferredSize[asboHorizontal]);
if PreferredSize[asboVertical]>0 then
if IsPrefHeightValid then
PreferredSize[asboVertical]:=
Control.Constraints.MinMaxHeight(PreferredSize[asboVertical]);
if (Control.AutoSize or (Control.BorderSpacing.CellAlignHorizontal<>ccaFill))
and (PreferredSize[asboHorizontal]>0)
if IsPrefWidthValid
and (Control.AutoSize or (Control.BorderSpacing.CellAlignHorizontal<>ccaFill))
then begin
// the control.width is fixed to its preferred width
MaximumSize[asboHorizontal]:=PreferredSize[asboHorizontal];
end;
if (Control.AutoSize or (Control.BorderSpacing.CellAlignVertical<>ccaFill))
and (PreferredSize[asboVertical]>0)
if IsPrefHeightValid
and (Control.AutoSize or (Control.BorderSpacing.CellAlignVertical<>ccaFill))
then begin
// the control.height is fixed to its preferred height
MaximumSize[asboVertical]:=PreferredSize[asboVertical];
end;
// if no preferred size is valid use the class defaults
if PreferredSize[asboHorizontal]<=0 then
if not IsPrefWidthValid then
PreferredSize[asboHorizontal]:=
Control.Constraints.MinMaxWidth(Control.GetControlClassDefaultSize.CX);
if PreferredSize[asboVertical]<=0 then
if not IsPrefHeightValid then
PreferredSize[asboVertical]:=
Control.Constraints.MinMaxHeight(Control.GetControlClassDefaultSize.CX);