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

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Client/Forms/UFormLogin.pas (modified) (4 diffs)

trunk/Client/Forms/UFormLogin.pas

@@ -32 +32 @@
   private
   public
+    procedure UpdateInterface;
   end;
 
@@ -70 +71 @@
   if (ComboBoxConnection.Items.Count > 0) and
     (ComboBoxConnection.ItemIndex = -1) then ComboBoxConnection.ItemIndex := 0;
+  UpdateInterface;
+end;
+
+procedure TLoginForm.UpdateInterface;
+begin
+  ButtonLogin.Enabled := ComboBoxConnection.ItemIndex >= 0;
 end;
 
@@ -81 +88 @@
   try
     LoginProfileForm := TLoginProfileForm.Create(MainForm);
+    Core.CoolTranslator1.TranslateComponentRecursive(LoginProfileForm);
     if LoginProfileForm.ShowModal = mrOk then begin
       Core.Profiles.FillStrings(ComboBoxConnection.Items);
@@ -91 +99 @@
     LoginProfileForm.Free;
   end;
+  UpdateInterface;
 end;