Changeset 37 for trunk/UCore.pas

Timestamp:

May 9, 2018, 1:22:44 PM (7 years ago)

Author:

chronos

Message:

• Added: Multi-lingual support.

Location:

trunk

Files:

• . (modified) (1 prop)
• UCore.pas (modified) (8 diffs)

trunk

@@ -3 +3 @@
 lib
 backup
+LibrePaint.exe
+*.lrj

@@ -3 +3 @@
 lib
 backup
+LibrePaint.exe
+*.lrj

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, ActnList, UProject, UFGraphics, UPersistentForm,
-  Controls, Graphics, ExtDlgs, ExtCtrls, URegistry, UApplicationInfo, Registry;
+  Classes, SysUtils, FileUtil, ActnList, UProject, UCoolTranslator, UFGraphics,
+  UPersistentForm, Controls, Graphics, ExtDlgs, ExtCtrls, URegistry,
+  UApplicationInfo, Registry;
 
 const
@@ -16 +17 @@
 
   TCore = class(TDataModule)
+    ASettings: TAction;
     AToolMove: TAction;
     AToolPen: TAction;
@@ -36 +38 @@
     AFileNew: TAction;
     ActionList1: TActionList;
+    CoolTranslator1: TCoolTranslator;
     ImageList1: TImageList;
     OpenPictureDialog1: TOpenPictureDialog;
@@ -52 +55 @@
     procedure AImageNegativeExecute(Sender: TObject);
     procedure AImageRandomExecute(Sender: TObject);
+    procedure ASettingsExecute(Sender: TObject);
     procedure AToolMoveExecute(Sender: TObject);
     procedure AToolPenExecute(Sender: TObject);
@@ -82 +86 @@
 uses
   UFormNew, UFormMain, Forms, UColorRGBA8, UColorGray8, UColorGray1, UColorGray4,
-  UColorRGB565;
+  UColorRGB565, UFormSettings;
 
 { TCore }
@@ -151 +155 @@
     LastImageSize.X := ReadIntegerWithDefault('LastImageSizeX', 600);
     LastImageSize.Y := ReadIntegerWithDefault('LastImageSizeY', 400);
+    if ValueExists('LanguageCode') then
+      CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
+      else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
   finally
     Free;
@@ -166 +173 @@
     WriteInteger('LastImageSizeX', LastImageSize.X);
     WriteInteger('LastImageSizeY', LastImageSize.Y);
+    if Assigned(CoolTranslator1.Language) and (CoolTranslator1.Language.Code <> '') then
+      WriteString('LanguageCode', CoolTranslator1.Language.Code)
+      else DeleteValue('LanguageCode');
   finally
     Free;
@@ -300 +310 @@
 end;
 
+procedure TCore.ASettingsExecute(Sender: TObject);
+begin
+  FormSettings := TFormSettings.Create(nil);
+  try
+    FormSettings.Load;
+    if FormSettings.ShowModal = mrOk then begin
+      FormSettings.Save;
+    end;
+  finally
+    FormSettings.Free;
+  end;
+end;
+
 procedure TCore.AToolMoveExecute(Sender: TObject);
 begin

@@ -3 +3 @@
 lib
 backup
+LibrePaint.exe
+*.lrj