Changeset 33 for trunk/UCore.pas

Timestamp:

Mar 5, 2014, 12:01:04 AM (11 years ago)

Author:

chronos

Message:

• Added: Main application settings form.
• Added: CoolTranslator component for interface localization.

File:

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

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, ActnList, Controls, Dialogs, Forms, UGame;
+  Classes, SysUtils, FileUtil, ActnList, Controls, Dialogs, Forms, UGame,
+  UCoolTranslator;
 
 type
@@ -13 +14 @@
 
   TCore = class(TDataModule)
+    ASettings: TAction;
     ActionList1: TActionList;
     AExit: TAction;
@@ -19 +21 @@
     AGameNew: TAction;
     AGameRestart: TAction;
+    CoolTranslator1: TCoolTranslator;
     ImageList1: TImageList;
     procedure AExitExecute(Sender: TObject);
@@ -25 +28 @@
     procedure AGameNewExecute(Sender: TObject);
     procedure AGameRestartExecute(Sender: TObject);
+    procedure ASettingsExecute(Sender: TObject);
+    procedure CoolTranslator1Translate(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -49 +54 @@
 
 uses
-  UFormMove, UFormMain, UFormNew;
+  UFormMove, UFormMain, UFormNew, UFormSettings;
 
 resourcestring
@@ -125 +130 @@
 end;
 
+procedure TCore.ASettingsExecute(Sender: TObject);
+begin
+  FormSettings.Load;
+  if FormSettings.ShowModal = mrOk then
+    FormSettings.Save;
+end;
+
+procedure TCore.CoolTranslator1Translate(Sender: TObject);
+begin
+  UGame.InitStrings;
+end;
+
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin