Changeset 21 for trunk/Forms/UMainForm.pas

Timestamp:

Sep 27, 2011, 11:01:18 PM (13 years ago)

Author:

george

Message:

• Moved: Forms to subdirectory.
• Added: Preliminary multi language support.
• Added: New game customization form.

File:

• trunk/Forms/UMainForm.pas (moved) (moved from trunk/UMainForm.pas ) (5 diffs)

trunk/Forms/UMainForm.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
   ComCtrls, Menus, ActnList, UCore, UPlatform, Math, DateUtils, GraphType,
-  UPersistentForm, UApplicationInfo;
+  UPersistentForm, UApplicationInfo, UCoolTranslator;
 
 type
@@ -22 +22 @@
     AFullScreen: TAction;
     ActionList1: TActionList;
+    CoolTranslator1: TCoolTranslator;
     Image1: TImage;
     MainMenu1: TMainMenu;
@@ -69 +70 @@
 
 uses
-  UMapForm;
+  UMapForm, UNewGameForm;
 
 { TMainForm }
@@ -186 +187 @@
 procedure TMainForm.ANewGameExecute(Sender: TObject);
 begin
-  Engine.NewGame;
+  if NewGameForm.ShowModal = mrOk then Engine.NewGame;
 end;
 
@@ -225 +226 @@
 begin
   PersistentForm.Load(Self);
+  CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('cs');
 end;