mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-12 14:00:38 +02:00
parent
c1697fc2ef
commit
8726ea2759
@ -1470,8 +1470,6 @@ end;
|
|||||||
------------------------------------------------------------------------------}
|
------------------------------------------------------------------------------}
|
||||||
procedure TControl.DoConstraintsChange(Sender : TObject);
|
procedure TControl.DoConstraintsChange(Sender : TObject);
|
||||||
begin
|
begin
|
||||||
Width:=Constraints.MinMaxWidth(Width);
|
|
||||||
Height:=Constraints.MinMaxHeight(Height);
|
|
||||||
AdjustSize;
|
AdjustSize;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user