Changeset 27 for trunk/Forms/ULoginForm.pas

Timestamp:

Nov 9, 2011, 4:11:56 PM (13 years ago)

Author:

george

Message:

• Added: Partial client-server protocol layer implementation.

File:

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

trunk/Forms/ULoginForm.pas

@@ -19 +19 @@
     ComboBoxConnection: TComboBox;
     EditUserName: TEdit;
+    EditPassword: TEdit;
     Image1: TImage;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
-    MaskEditPassword: TMaskEdit;
     procedure ButtonCancelClick(Sender: TObject);
     procedure ButtonChangeClick(Sender: TObject);
@@ -49 +49 @@
   Core.LastUserName := EditUserName.Text;
   Core.LastProfile := ComboBoxConnection.ItemIndex;
-  Core.LastPassword := MaskEditPassword.Text;
+  Core.LastPassword := EditPassword.Text;
 end;
 
@@ -60 +60 @@
 begin
   MainForm.PersistentForm.Load(Self);
+  EditUserName.Text := Core.LastUserName;
+  EditPassword.Text := '';
+  Core.Profiles.FillStrings(ComboBoxConnection.Items);
   ComboBoxConnection.ItemIndex := Core.LastProfile;
-  EditUserName.Text := Core.LastUserName;
-  MaskEditPassword.Text := '';
-  Core.Profiles.FillStrings(ComboBoxConnection.Items);
+  if (ComboBoxConnection.Items.Count > 0) and
+    (ComboBoxConnection.ItemIndex = -1) then ComboBoxConnection.ItemIndex := 0;
 end;
 
@@ -75 +77 @@
   if LoginProfileForm.ShowModal = mrOk then begin
     Core.Profiles.FillStrings(ComboBoxConnection.Items);
+    Core.LastProfile := ComboBoxConnection.ItemIndex;
+    ComboBoxConnection.ItemIndex := Core.LastProfile;
+    if (ComboBoxConnection.Items.Count > 0) and
+      (ComboBoxConnection.ItemIndex = -1) then ComboBoxConnection.ItemIndex := 0;
   end;
 end;