mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-10 13:38:14 +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;
|
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;
|
||||||
|
Loading…
Reference in New Issue
Block a user