paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:19: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;
Caption := InputPrompt;
Align := alTop;
Visible := True;
AutoSize := True;
end;
Position := poScreenCenter;
@ -43,20 +42,19 @@ begin
begin
Parent := Form;
Align := alTop;
AnchorToNeighbour(akTop, 6, Prompt);
BorderSpacing.Top := 3;
MinEditWidth := max(260, Screen.Width div 4);
Constraints.MinWidth := MinEditWidth;
Text := Value;
TabStop := True;
Visible := True;
if MaskInput then
begin
EchoMode := emPassword;
PasswordChar:='*';
PasswordChar := '*';
end else
begin
EchoMode := emNormal;
PasswordChar:=#0;
PasswordChar := #0;
end;
TabOrder := 0;
end;
@ -67,8 +65,6 @@ begin
ShowBevel := False;
ShowButtons := [pbOK, pbCancel];
Align := alTop;
AnchorToNeighbour(akTop, 0, Edit);
Visible := True;
end;
ChildSizing.TopBottomSpacing := 6;