From afc2ca3e2b50e796f6b4b4f0edbf6046ccd11807 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sat, 8 May 2010 01:43:47 +0000
Subject: [PATCH] lcl: fix inputdialog (issue #0016415)

git-svn-id: trunk@25244 -
---
 lcl/include/inputdialog.inc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/include/inputdialog.inc b/lcl/include/inputdialog.inc
index 78cec74855..e2d78ee29e 100644
--- a/lcl/include/inputdialog.inc
+++ b/lcl/include/inputdialog.inc
@@ -43,6 +43,7 @@ begin
   begin
     BorderStyle := bsDialog;
     Caption := InputCaption;
+    Position := poScreenCenter;
     Prompt := TLabel.Create(Form);
     with Prompt do
     begin
@@ -51,11 +52,11 @@ begin
       Align := alTop;
       AutoSize := True;
     end;
-    Position := poScreenCenter;
     Edit := TEdit.Create(Form);
     with Edit do
     begin
       Parent := Form;
+      Top := Prompt.Height;
       Align := alTop;
       BorderSpacing.Top := 3;
       AMonitor := ActiveMonitor;
@@ -79,6 +80,7 @@ begin
 
     with TButtonPanel.Create(Form) do
     begin
+      Top := Edit.Top + Edit.Height;
       Parent := Form;
       ShowBevel := False;
       ShowButtons := [pbOK, pbCancel];