Changeset 9 for trunk/UCore.pas

Timestamp:

Mar 14, 2013, 10:59:07 PM (11 years ago)

Author:

chronos

Message:

• Přidáno: Systém pro překládání angličtiny do češtiny.

File:

• trunk/UCore.pas (modified) (5 diffs)

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, ExtCtrls, Controls, ActnList, Menus,
-  UFioAPI, URegistry, UApplicationInfo, Registry, DateUtils, Forms, Dialogs;
+  Classes, SysUtils, FileUtil, ExtCtrls, Controls, ActnList, Menus, UFioAPI,
+  URegistry, UApplicationInfo, UCoolTranslator, Registry, DateUtils, Forms,
+  Dialogs;
 
 type
@@ -23 +24 @@
     ASettings: TAction;
     AShow: TAction;
+    CoolTranslator1: TCoolTranslator;
     ImageList1: TImageList;
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
     PopupMenuTray: TPopupMenu;
     TrayIcon1: TTrayIcon;
@@ -63 +71 @@
 
 resourcestring
-  SDownloadNotSuccess = 'StaÅŸení nebylo úspěšné';
+  SDownloadNotSuccess = 'Download failed';
 
 { TCore }
@@ -103 +111 @@
     WriteInteger('ReportYear', ReportYear);
     WriteInteger('ReportId', ReportId);
+    WriteString('Language', CoolTranslator1.Language.Code);
   finally
     Free;
@@ -121 +130 @@
     ReportYear := ReadIntegerWithDefault('ReportYear', YearOf(Now));
     ReportId := ReadIntegerWithDefault('ReportId', MonthOf(Now));
+    CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('Language', 'cs'));
   finally
     Free;