From 8b9de75bf14575ed78f7d403600ca87011cf33db Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Fri, 5 Jan 2007 13:51:52 +0000
Subject: [PATCH] LCL: increased minimum size of input dialog (bug #8017)

git-svn-id: trunk@10377 -
---
 lcl/include/inputdialog.inc | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lcl/include/inputdialog.inc b/lcl/include/inputdialog.inc
index 236b9b9c42..0f5547ad03 100644
--- a/lcl/include/inputdialog.inc
+++ b/lcl/include/inputdialog.inc
@@ -43,7 +43,7 @@ begin
       Left := Prompt.Left;
       AnchorToNeighbour(akTop,8,Prompt);
       AnchorParallel(akRight,0,Prompt);
-      MinEditWidth := max(160, Screen.Width div 4);
+      MinEditWidth := max(260, Screen.Width div 4);
       Constraints.MinWidth := MinEditWidth;
       Text := Value;
       TabStop := True;
@@ -63,7 +63,7 @@ begin
       Kind := bkOk;
       Default := True;
       ModalResult := mrOk;
-      Left := MinEditWidth div 4;
+      Left := MinEditWidth div 6;
       AnchorToNeighbour(akTop,8,Edit);
       AutoSize := True;
       TabStop := True;
@@ -77,7 +77,7 @@ begin
       AnchorToNeighbour(akTop,8,Edit);
       AnchorSide[akRight].Control := Edit;
       AnchorSide[akRight].Side := asrRight;
-      BorderSpacing.Right := MinEditWidth div 4;
+      BorderSpacing.Right := MinEditWidth div 6;
       Anchors := [akTop, akRight];
       
       AutoSize := True;