paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-28 17:22:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: increased minimum size of input dialog (bug #8017)

Browse Source 
git-svn-id: trunk@10377 -
This commit is contained in:
vincents 2007-01-05 13:51:52 +00:00
parent b01374ab2a
commit 8b9de75bf1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/inputdialog.inc
View File

@ -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;