paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 09:30:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: simplify InputQuery code

Browse Source 
git-svn-id: trunk@19971 -
This commit is contained in:
paul 2009-05-15 10:54:35 +00:00
parent fbf3cac9a9
commit de8215495d
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/inputdialog.inc
View File

@ -34,7 +34,6 @@ begin
Parent := Form; Parent := Form;
Caption := InputPrompt; Caption := InputPrompt;
Align := alTop; Align := alTop;
Visible := True;
AutoSize := True; AutoSize := True;
end; end;
Position := poScreenCenter; Position := poScreenCenter;
@ -43,20 +42,19 @@ begin
begin begin
Parent := Form; Parent := Form;
Align := alTop; Align := alTop;
AnchorToNeighbour(akTop, 6, Prompt); BorderSpacing.Top := 3;
MinEditWidth := max(260, 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;
Visible := True;
if MaskInput then if MaskInput then
begin begin
EchoMode := emPassword; EchoMode := emPassword;
PasswordChar:='*'; PasswordChar := '*';
end else end else
begin begin
EchoMode := emNormal; EchoMode := emNormal;
PasswordChar:=#0; PasswordChar := #0;
end; end;
TabOrder := 0; TabOrder := 0;
end; end;
@ -67,8 +65,6 @@ begin
ShowBevel := False; ShowBevel := False;
ShowButtons := [pbOK, pbCancel]; ShowButtons := [pbOK, pbCancel];
Align := alTop; Align := alTop;
AnchorToNeighbour(akTop, 0, Edit);
Visible := True;
end; end;
ChildSizing.TopBottomSpacing := 6; ChildSizing.TopBottomSpacing := 6;