Index: lcl/include/inputdialog.inc
===================================================================
--- lcl/include/inputdialog.inc	(revision 11321)
+++ lcl/include/inputdialog.inc	(working copy)
@@ -45,6 +45,7 @@
       AnchorParallel(akRight,0,Prompt);
       MinEditWidth := max(260, Screen.Width div 4);
       Constraints.MinWidth := MinEditWidth;
+      Width := 0;
       Text := Value;
       TabStop := True;
       Visible := True;
@@ -65,6 +66,9 @@
       ModalResult := mrOk;
       Left := MinEditWidth div 6;
       AnchorToNeighbour(akTop,8,Edit);
+      Constraints.MaxHeight := 25;
+      Constraints.MinHeight := 25;
+      Constraints.MinWidth := 75;
       AutoSize := True;
       TabStop := True;
       Visible := True;
@@ -77,6 +81,9 @@
       AnchorToNeighbour(akTop,8,Edit);
       AnchorSide[akRight].Control := Edit;
       AnchorSide[akRight].Side := asrRight;
+      Constraints.MaxHeight := 25;
+      Constraints.MinHeight := 25;
+      Constraints.MinWidth := 75;
       BorderSpacing.Right := MinEditWidth div 6;
       Anchors := [akTop, akRight];