Commit dfebe219 authored by Juha Manninen's avatar Juha Manninen
Browse files

LCL: Adjust Width and Height when setting Contraints. Issue #28654.

git-svn-id: trunk@50942 -
parent db5c09e7
......@@ -1372,6 +1372,8 @@ end;
------------------------------------------------------------------------------}
procedure TControl.DoConstraintsChange(Sender : TObject);
begin
Width:=Constraints.MinMaxWidth(Width);
Height:=Constraints.MinMaxHeight(Height);
AdjustSize;
end;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment