Changeset 96 for trunk/Forms/UFormMain.pas

Timestamp:

Aug 22, 2016, 9:31:44 AM (8 years ago)

Author:

chronos

Message:

• Fixed: Dynamically created forms were not translated.

File:

• trunk/Forms/UFormMain.pas (modified) (7 diffs)

trunk/Forms/UFormMain.pas

@@ -34 +34 @@
     ActionList1: TActionList;
     CheckBoxExactMath: TCheckBox;
-    CoolTranslator1: TCoolTranslator;
     ImageList1: TImageList;
     JobProgressView1: TJobProgressView;
@@ -71 +70 @@
     OpenDialog1: TOpenDialog;
     Panel1: TPanel;
-    PersistentForm1: TPersistentForm;
     PopupMenuOpenRecent: TPopupMenu;
     PopupMenuTryIcon: TPopupMenu;
@@ -184 +182 @@
 procedure TFormMain.FormHide(Sender: TObject);
 begin
-  if Core.InitializeFinished then PersistentForm1.Save(Self);
+  if Core.InitializeFinished then Core.PersistentForm1.Save(Self);
 end;
 
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
-  PersistentForm1.Save(Self);
+  Core.PersistentForm1.Save(Self);
   Core.SaveConfig;
 end;
@@ -421 +419 @@
 
   if Visible then begin
-    PersistentForm1.Load(Self);
+    Core.PersistentForm1.Load(Self);
     UpdateInterface;
     ListViewFilter1.StringGrid.Col := 1;
@@ -612 +610 @@
 begin
   RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey);
-  PersistentForm1.RegistryContext := RegistryContext;
+  Core.PersistentForm1.RegistryContext := RegistryContext;
   RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey + '\RecentFiles');
   LastOpenedList1.LoadFromRegistry(RegistryContext);
@@ -627 +625 @@
     OpenKey(DefaultRegKey, True);
     if ValueExists('LanguageCode') then
-      CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
-      else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
+      Core.CoolTranslator1.Language := Core.CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
+      else Core.CoolTranslator1.Language := Core.CoolTranslator1.Languages.SearchByCode('');
     Core.AlwaysOnTop := ReadBoolWithDefault('AlwaysOnTop', False);
     Core.StartMinimizedToTray := ReadBoolWithDefault('StartMinimizedToTray', False);
@@ -656 +654 @@
     RootKey := HKEY_CURRENT_USER;
     OpenKey(DefaultRegKey, True);
-    if Assigned(CoolTranslator1.Language) and (CoolTranslator1.Language.Code <> '') then
-      WriteString('LanguageCode', CoolTranslator1.Language.Code)
+    if Assigned(Core.CoolTranslator1.Language) and (Core.CoolTranslator1.Language.Code <> '') then
+      WriteString('LanguageCode', Core.CoolTranslator1.Language.Code)
       else DeleteValue('LanguageCode');
     WriteBool('AlwaysOnTop', Core.AlwaysOnTop);