Changeset 50 for trunk/Client/Forms/UFormLoginProfile.pas

Timestamp:

Mar 21, 2012, 6:18:39 PM (14 years ago)

Author:

chronos

Message:

• Fixed: Translation of runtime craeted forms.
• Fixed: Do not enable controls if condition not met.

File:

• trunk/Client/Forms/UFormLoginProfile.pas (modified) (5 diffs)

trunk/Client/Forms/UFormLoginProfile.pas

@@ -71 +71 @@
     ProfileList: TProfileList;
   public
+    procedure UpdateInterface;
   end;
 
@@ -157 +158 @@
 begin
   MainForm.PersistentForm.Save(Self);
+  Core.Profiles.SaveToRegistry(Core.RegistryRootKey, Core.RegistryKey);
 end;
 
@@ -195 +197 @@
   if (ListBoxProfiles.Items.Count > 0) and
     (ListBoxProfiles.ItemIndex = -1) then ListBoxProfiles.ItemIndex := 0;
+  UpdateInterface;
 end;
 
@@ -209 +212 @@
     EditName.Text := Name;
     SelectedProfile := TConnectProfile(ProfileList[ListBoxProfiles.ItemIndex]);
+    UpdateInterface;
   end;
 end;
@@ -216 +220 @@
   if Assigned(SelectedProfile) then
     SelectedProfile.Port := SpinEditPort.Value;
+end;
+
+procedure TLoginProfileForm.UpdateInterface;
+begin
+  EditName.Enabled := ListBoxProfiles.ItemIndex <> -1;
+  EditServer.Enabled := ListBoxProfiles.ItemIndex <> -1;
+  EditDatabase.Enabled := ListBoxProfiles.ItemIndex <> -1;
+  SpinEditPort.Enabled := ListBoxProfiles.ItemIndex <> -1;
+  ComboBoxProtocol.Enabled := ListBoxProfiles.ItemIndex <> -1;
 end;