Changeset 21 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UMainForm.lfm (moved) (moved from trunk/UMainForm.lfm ) (2 diffs)
• UMainForm.lrt (added)
• UMainForm.pas (moved) (moved from trunk/UMainForm.pas ) (5 diffs)
• UMapForm.lfm (moved) (moved from trunk/UMapForm.lfm )
• UMapForm.lrt (added)
• UMapForm.pas (moved) (moved from trunk/UMapForm.pas )
• UNewGameForm.lfm (added)
• UNewGameForm.lrt (added)
• UNewGameForm.pas (added)

trunk/Forms/UMainForm.lfm

@@ -94 +94 @@
   end
   object ActionList1: TActionList
-    left = 272
-    top = 24
+    left = 288
+    top = 32
     object AFullScreen: TAction
       Caption = 'Fullscreen mode'
@@ -124 +124 @@
     end
   end
+  object CoolTranslator1: TCoolTranslator
+    POFilesFolder = 'Languages'
+    left = 288
+    top = 104
+  end
 end

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;