Changeset 40 for trunk/UCore.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -27 +27 @@
     LastProfile: Integer;
     LastPassword: string;
+    RememberPassword: Boolean;
     Profiles: TProfileList;
     RegistryKey: string;
@@ -84 +85 @@
     LastProfile := ReadIntegerWithDefault('LastConnectProfile', -1);
     LastUserName := ReadStringWithDefault('LastUserName', 'admin');
+    LastPassword := ReadStringWithDefault('LastPassword', '');
+    RememberPassword := ReadBoolWithDefault('RememberPassword', False);
   finally
     Free;
@@ -97 +100 @@
     WriteInteger('LastConnectProfile', LastProfile);
     WriteString('LastUserName', LastUserName);
+    if RememberPassword then WriteString('LastPassword', LastPassword)
+      else WriteString('LastPassword', '');
+    WriteBool('RememberPassword', RememberPassword);
   finally
     Free;