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

LCL: form: fix AutoAdjustLayout if constraints are used. Issue #31336

Browse Source 
git-svn-id: trunk@54353 -
This commit is contained in:
ondrej 2017-03-06 15:34:11 +00:00
parent 13e7653139
commit 4ba349fd6e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/customform.inc
View File

@ -1570,7 +1570,7 @@ end;
procedure TCustomForm.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double);
var
NewWidth, NewHeight, OldWidth, OldHeight: Integer;
NewWidth, NewHeight: Integer;
begin
if Assigned(Parent) then
begin
@ -1584,10 +1584,13 @@ begin
if not ParentFont or (Parent=nil) then
ScaleFontsPPI(AYProportion);
NewWidth := Round(Width*AXProportion);
NewHeight := Round(Height*AYProportion);
BorderSpacing.AutoAdjustLayout(AXProportion, AYProportion);
Constraints.AutoAdjustLayout(AXProportion, AYProportion);
SetBounds(Left, Top, Round(Width*AXProportion), Round(Height*AYProportion));
SetBounds(Left, Top, NewWidth, NewHeight);
end;
end;