Changeset 43 for trunk/Forms/UFormLogin.pas

Timestamp:

Mar 9, 2012, 1:09:52 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Selection of available protocols in profile manager.
• Modified: Initialization of persistent data structures rewrited to more native structures.

File:

• trunk/Forms/UFormLogin.pas (modified) (1 diff)

trunk/Forms/UFormLogin.pas

@@ -79 +79 @@
 procedure TLoginForm.ButtonChangeClick(Sender: TObject);
 begin
-  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;
+  try
+    LoginProfileForm := TLoginProfileForm.Create(MainForm);
+    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;
+  finally
+    LoginProfileForm.Free;
   end;
 end;