paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 13:09:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix occasional layout error in InputQuery with array. Issue #31759, patch from AlexeyT.

Browse Source 
git-svn-id: trunk@54824 -
This commit is contained in:
juha 2017-05-07 20:17:16 +00:00
parent c9304d3a8f
commit 5949c3ca5a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/messagedialogs.inc
View File

@ -442,10 +442,12 @@ begin
FLabels[i].Caption:= APrompts[i];
FLabels[i].BorderSpacing.Right:= cInputQuerySpacingSize;
FLabels[i].Width:= FLabels[i].Canvas.TextWidth(FLabels[i].Caption);
FEdits[i].Left:= FForm.Width; // place edits to right
end;
FButtons.Align:= alTop;
FButtons.Top:= FPanels[Len-1].Top+10;
FButtons.Top:= FPanels[Len-1].Top+10; // place buttons to bottom
FForm.AutoSize:= true;
FForm.ActiveControl:= FEdits[0];