Changeset 40 for trunk/Forms/ULoginForm.pas

Timestamp:

Mar 9, 2012, 8:11:13 AM (12 years ago)

Author:

chronos

Message:

• Added: Remember last password in login dialog.
• Fixed: Some Add, Edit, View, Select dialog display.

File:

• trunk/Forms/ULoginForm.pas (modified) (2 diffs)

trunk/Forms/ULoginForm.pas

@@ -17 +17 @@
     ButtonCancel: TButton;
     ButtonLogin: TButton;
+    CheckBoxRememberPassword: TCheckBox;
     ComboBoxConnection: TComboBox;
     EditUserName: TEdit;
@@ -50 +51 @@
   Core.LastProfile := ComboBoxConnection.ItemIndex;
   Core.LastPassword := EditPassword.Text;
+  Core.RememberPassword := CheckBoxRememberPassword.Checked;
 end;
 
 procedure TLoginForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
-  MainForm.PersistentForm.Save(Self);
+  //MainForm.PersistentForm.Save(Self);
 end;
 
 procedure TLoginForm.FormShow(Sender: TObject);
 begin
-  MainForm.PersistentForm.Load(Self);
+  //MainForm.PersistentForm.Load(Self);
   EditUserName.Text := Core.LastUserName;
-  EditPassword.Text := '';
+  EditPassword.Text := Core.LastPassword;
   EditPassword.SetFocus;
+  CheckBoxRememberPassword.Checked := Core.RememberPassword;
   Core.Profiles.FillStrings(ComboBoxConnection.Items);
   ComboBoxConnection.ItemIndex := Core.LastProfile;