Changeset 44 for trunk/Forms

Timestamp:

Mar 9, 2012, 3:02:00 PM (13 years ago)

Author:

chronos

Message:

• Fixed: Login profile manager can lost some values during edit.
• Added: Base initialization of TChronisClient.

Location:

trunk/Forms

Files:

• UFormLoginProfile.pas (modified) (7 diffs)
• UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormLoginProfile.pas

@@ -68 +68 @@
     procedure SpinEditPortChange(Sender: TObject);
   private
+    SelectedProfile: TConnectProfile;
     ProfileList: TProfileList;
   public
-
   end;
 
@@ -128 +128 @@
 procedure TLoginProfileForm.ComboBoxProtocolChange(Sender: TObject);
 begin
-  if ListBoxProfiles.ItemIndex <> - 1 then
-    TConnectProfile(ProfileList[ListBoxProfiles.ItemIndex]).Protocol :=
+  if Assigned(SelectedProfile) then
+    SelectedProfile.Protocol :=
       TConnectProtocol(ComboBoxProtocol.Items.Objects[ComboBoxProtocol.ItemIndex]);
 end;
@@ -135 +135 @@
 procedure TLoginProfileForm.EditNameChange(Sender: TObject);
 begin
-  if ListBoxProfiles.ItemIndex <> - 1 then begin
-    TConnectProfile(ProfileList[ListBoxProfiles.ItemIndex]).Name := EditName.Text;
+  if Assigned(SelectedProfile) then begin
+    SelectedProfile.Name := EditName.Text;
     ListBoxProfiles.Items[ListBoxProfiles.ItemIndex] := EditName.Text;
   end;
@@ -143 +143 @@
 procedure TLoginProfileForm.EditDatabaseChange(Sender: TObject);
 begin
-  if ListBoxProfiles.ItemIndex <> - 1 then
-    TConnectProfile(ProfileList[ListBoxProfiles.ItemIndex]).Database := EditDatabase.Text;
+  if Assigned(SelectedProfile) then
+    SelectedProfile.Database := EditDatabase.Text;
 end;
 
 procedure TLoginProfileForm.EditServerChange(Sender: TObject);
 begin
-  if ListBoxProfiles.ItemIndex <> - 1 then
-    TConnectProfile(ProfileList[ListBoxProfiles.ItemIndex]).HostName := EditServer.Text;
+  if Assigned(SelectedProfile) then
+    SelectedProfile.HostName := EditServer.Text;
 end;
 
@@ -202 +202 @@
   if ListBoxProfiles.ItemIndex <> -1 then
   with TConnectProfile(ProfileList[ListBoxProfiles.ItemIndex]) do begin
+    SelectedProfile := nil;
     EditServer.Text := HostName;
     EditDatabase.Text := Database;
@@ -207 +208 @@
     SpinEditPort.Value := Port;
     EditName.Text := Name;
+    SelectedProfile := TConnectProfile(ProfileList[ListBoxProfiles.ItemIndex]);
   end;
 end;
@@ -212 +214 @@
 procedure TLoginProfileForm.SpinEditPortChange(Sender: TObject);
 begin
-  if ListBoxProfiles.ItemIndex <> - 1 then
-    TConnectProfile(ProfileList[ListBoxProfiles.ItemIndex]).Port := SpinEditPort.Value;
+  if Assigned(SelectedProfile) then
+    SelectedProfile.Port := SpinEditPort.Value;
 end;
 

trunk/Forms/UFormMain.pas

@@ -307 +307 @@
     Core.System.Types.Clear;
     FreeAndNil(Core.Client);
-    UpdateInterface;
-  end;
+    Core.System.Client := Core.Client;
+  end;
+  UpdateInterface;
 end;