paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-14 19:28:34 +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; Left := Prompt.Left;
AnchorToNeighbour(akTop,8,Prompt); AnchorToNeighbour(akTop,8,Prompt);
AnchorParallel(akRight,0,Prompt); AnchorParallel(akRight,0,Prompt);
MinEditWidth := max(160, Screen.Width div 4); MinEditWidth := max(260, Screen.Width div 4);
Constraints.MinWidth := MinEditWidth; Constraints.MinWidth := MinEditWidth;
Text := Value; Text := Value;
TabStop := True; TabStop := True;
@ -63,7 +63,7 @@ begin
Kind := bkOk; Kind := bkOk;
Default := True; Default := True;
ModalResult := mrOk; ModalResult := mrOk;
Left := MinEditWidth div 4; Left := MinEditWidth div 6;
AnchorToNeighbour(akTop,8,Edit); AnchorToNeighbour(akTop,8,Edit);
AutoSize := True; AutoSize := True;
TabStop := True; TabStop := True;
@ -77,7 +77,7 @@ begin
AnchorToNeighbour(akTop,8,Edit); AnchorToNeighbour(akTop,8,Edit);
AnchorSide[akRight].Control := Edit; AnchorSide[akRight].Control := Edit;
AnchorSide[akRight].Side := asrRight; AnchorSide[akRight].Side := asrRight;
BorderSpacing.Right := MinEditWidth div 4; BorderSpacing.Right := MinEditWidth div 6;
Anchors := [akTop, akRight]; Anchors := [akTop, akRight];
AutoSize := True; AutoSize := True;