Bugfix: After click on password generator button, user was not marked as modified.

This commit is contained in:
Ansgar Becker
2010-05-14 22:37:53 +00:00
parent ab210d5758
commit f1ae13770d

View File

@@ -588,7 +588,9 @@ procedure TUserManagerForm.editPasswordRightButtonClick(Sender: TObject);
begin
// Auto generate a random password, display it for a second and copy it to clipboard
Screen.Cursor := crHourglass;
editPassword.SetFocus;
editPassword.Text := GeneratePassword(8);
editPassword.Modified := True;
editPassword.PasswordChar := #0;
editPassword.Repaint;
Sleep(1000);