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

Timestamp:

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

Author:

chronos

Message:

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

File:

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

trunk/Client/Forms/UFormMain.pas

@@ -182 +182 @@
   try
     SettingForm := TSettingForm.Create(nil);
+    Core.CoolTranslator1.TranslateComponentRecursive(SettingForm);
     SettingForm.ShowModal;
   finally
@@ -224 +225 @@
   try
     ImportStructureForm := TImportStructureForm.Create(MainForm);
+    Core.CoolTranslator1.TranslateComponentRecursive(ImportStructureForm);
     ImportStructureForm.ShowModal;
   finally
@@ -234 +236 @@
   try
     LoginForm := TLoginForm.Create(MainForm);
+    Core.CoolTranslator1.TranslateComponentRecursive(LoginForm);
     Core.Profiles.LoadFromRegistry(Core.RegistryRootKey, Core.RegistryKey);
     if LoginForm.ShowModal = mrOK then begin
@@ -274 +277 @@
   try
     AboutForm := TAboutForm.Create(nil);
+    Core.CoolTranslator1.TranslateComponentRecursive(AboutForm);
     AboutForm.ShowModal;
   finally