fix: no password field creating a new account

This commit is contained in:
Massimo Melina 2020-05-05 15:02:00 +02:00
parent b262569812
commit a9eea87f30
2 changed files with 2 additions and 1 deletions

View File

@ -203,7 +203,7 @@ object optionsFrm: ToptionsFrm
TabOrder = 2 TabOrder = 2
end end
object pwdBox: TLabeledEdit object pwdBox: TLabeledEdit
Left = 13 Left = 11
Top = 63 Top = 63
Width = 198 Width = 198
Height = 22 Height = 22

View File

@ -602,6 +602,7 @@ var
begin begin
a.user:=getUniqueName('new user', userExists); a.user:=getUniqueName('new user', userExists);
a.pwd:=''; a.pwd:='';
a.group:=FALSE;
a.enabled:=TRUE; a.enabled:=TRUE;
a.noLimits:=FALSE; a.noLimits:=FALSE;
a.redir:=''; a.redir:='';