Changeset 10 for trunk/UFormMain.pas

Timestamp:

Apr 22, 2016, 9:59:52 PM (8 years ago)

Author:

chronos

Message:

• Added: Interface localization support.

File:

• trunk/UFormMain.pas (modified) (13 diffs)

trunk/UFormMain.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
   ComCtrls, StdCtrls, ExtCtrls, ActnList, UAcronym, UPersistentForm, Contnrs,
-  URegistry, ULastOpenedList, Registry;
+  URegistry, ULastOpenedList, UCoolTranslator, Registry;
 
 type
@@ -19 +19 @@
     AAcronymRemove: TAction;
     AAcronymRemoveAll: TAction;
+    ASettings: TAction;
     AFileSaveAs: TAction;
     AFileClose: TAction;
@@ -28 +29 @@
     AExit: TAction;
     ActionList1: TActionList;
+    CoolTranslator1: TCoolTranslator;
     EditSearch: TEdit;
     LastOpenedList1: TLastOpenedList;
@@ -41 +43 @@
     MenuItem16: TMenuItem;
     MenuItem17: TMenuItem;
+    MenuItem18: TMenuItem;
+    MenuItem19: TMenuItem;
     MenuItemOpenRecent: TMenuItem;
     MenuItem2: TMenuItem;
@@ -67 +71 @@
     procedure AFileSaveExecute(Sender: TObject);
     procedure AImportExecute(Sender: TObject);
+    procedure ASettingsExecute(Sender: TObject);
     procedure AShowExecute(Sender: TObject);
     procedure EditSearchChange(Sender: TObject);
@@ -101 +106 @@
 
 uses
-  UFormImport, UFormAcronym;
+  UFormImport, UFormAcronym, UFormSettings;
+
+resourcestring
+  SModified = 'modified';
+  SAppExit = 'Application exit';
+  SAppExitQuery = 'Acronyms were modified. Do you want to save them to file before exit?';
+  SRemoveAllAcronyms = 'Remove all acronyms';
+  SRemoveAllAcronymsQuery = 'Do you want to remove all acronyms?';
+  SRemoveAcronym = 'Remove acronym';
+  SRemoveAcronymQuery = 'Do you want to remove selected acronym?';
 
 const
@@ -133 +147 @@
 begin
   if Assigned(AcronymDb) and AcronymDb.Modified then begin
-    ModalResult := MessageDlg('Application exit',
-    'Acronyms were modified. Do you want to save them to file before exit?',
+    ModalResult := MessageDlg(SAppExit, SAppExitQuery,
       mtConfirmation, [mbYes, mbNo, mbCancel], 0);
     if ModalResult = mrYes then begin
@@ -237 +250 @@
 procedure TFormMain.AAcronymRemoveAllExecute(Sender: TObject);
 begin
-  if MessageDlg('Remove all acronyms', 'Do you want to remove all acronyms?',
+  if MessageDlg(SRemoveAllAcronyms, SRemoveAllAcronymsQuery,
   TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
     AcronymDb.Acronyms.Clear;
@@ -249 +262 @@
 begin
   if Assigned(ListViewAcronyms.Selected) then begin
-    if MessageDlg('Remove acronym', 'Do you want to remove selected acronym?',
+    if MessageDlg(SRemoveAcronym, SRemoveAcronymQuery,
     TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
       AcronymDb.RemoveAcronym(TAcronymMeaning(ListViewAcronyms.Selected.Data).Acronym.Name,
@@ -285 +298 @@
 end;
 
+procedure TFormMain.ASettingsExecute(Sender: TObject);
+begin
+  FormSettings.ShowModal;
+end;
+
 procedure TFormMain.AShowExecute(Sender: TObject);
 begin
@@ -387 +405 @@
   Title := Application.Title;
   if Assigned(AcronymDb) then Title := Title + ' - ' + ExtractFileName(AcronymDb.FileName);
-  if Assigned(AcronymDb) and AcronymDb.Modified then Title := Title + ' (modified)';
+  if Assigned(AcronymDb) and AcronymDb.Modified then Title := Title + ' (' + SModified + ')';
   Caption := Title;
 end;
@@ -396 +414 @@
   PersistentForm1.RegistryContext := RegistryContext;
   LastOpenedList1.LoadFromRegistry(RegistryContext);
+
+  with TRegistryEx.Create do
+  try
+    RootKey := HKEY_CURRENT_USER;
+    OpenKey(DefaultRegKey, True);
+    if ValueExists('LanguageCode') then
+      CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
+      else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
+  finally
+    Free;
+  end;
 end;
 
@@ -401 +430 @@
 begin
   LastOpenedList1.SaveToRegistry(RegistryContext);
+
+  with TRegistryEx.Create do
+  try
+    RootKey := HKEY_CURRENT_USER;
+    OpenKey(DefaultRegKey, True);
+    if Assigned(CoolTranslator1.Language) and (CoolTranslator1.Language.Code <> '') then
+      WriteString('LanguageCode', CoolTranslator1.Language.Code)
+      else DeleteValue('LanguageCode');
+  finally
+    Free;
+  end;
 end;