mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-28 17:22:45 +02:00
LCL: increased minimum size of input dialog (bug #8017)
git-svn-id: trunk@10377 -
This commit is contained in:
parent
b01374ab2a
commit
8b9de75bf1
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user