Changeset 39 for trunk/UCore.pas

Timestamp:

Mar 10, 2014, 11:01:14 PM (10 years ago)

Author:

chronos

Message:

• Added: Option to create hexagonal or square map. This is implemented using object inheritance and virtual methods of class TMap.
• Added: Dummy actions to load and save map.

File:

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

trunk/UCore.pas

@@ -14 +14 @@
 
   TCore = class(TDataModule)
+    AGameSave: TAction;
+    AGameLoad: TAction;
     ASettings: TAction;
     ActionList1: TActionList;
@@ -24 +26 @@
     ImageListLarge: TImageList;
     ImageListSmall: TImageList;
+    OpenDialog1: TOpenDialog;
+    SaveDialog1: TSaveDialog;
     XMLConfig1: TXMLConfig;
     procedure AExitExecute(Sender: TObject);
     procedure AGameEndExecute(Sender: TObject);
     procedure AGameEndTurnExecute(Sender: TObject);
+    procedure AGameLoadExecute(Sender: TObject);
     procedure AGameNewExecute(Sender: TObject);
     procedure AGameRestartExecute(Sender: TObject);
+    procedure AGameSaveExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
     procedure CoolTranslator1Translate(Sender: TObject);
@@ -42 +48 @@
     Game: TGame;
     UseSingleView: Boolean;
+    LastMapFileName: string;
     View: TView;
     procedure Init;
@@ -114 +121 @@
 end;
 
+procedure TCore.AGameLoadExecute(Sender: TObject);
+begin
+  OpenDialog1.FileName := LastMapFileName;
+  if OpenDialog1.Execute then begin
+    Game.Map.LoadFromFile(OpenDialog1.FileName);
+    LastMapFileName := OpenDialog1.FileName;
+    FormMain.Redraw;
+  end;
+end;
+
 procedure TCore.AGameNewExecute(Sender: TObject);
 begin
@@ -132 +149 @@
 end;
 
+procedure TCore.AGameSaveExecute(Sender: TObject);
+begin
+  SaveDialog1.FileName := ExtractFileDir(LastMapFileName);
+  if SaveDialog1.Execute then begin
+    Game.Map.SaveToFile(SaveDialog1.FileName);
+    LastMapFileName := SaveDialog1.FileName;
+  end;
+end;
+
 procedure TCore.ASettingsExecute(Sender: TObject);
 begin
@@ -155 +181 @@
   Game.SaveConfig(XMLConfig1, 'Game');
   XMLConfig1.SetValue('Language', CoolTranslator1.Language.Code);
+  XMLConfig1.SetValue('LastMapFileName', LastMapFileName);
   FreeAndNil(Game);
 end;
@@ -163 +190 @@
 begin
   FInitialized := True;
+  LastMapFileName := XMLConfig1.GetValue('LastMapFileName', '');
   CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(XMLConfig1.GetValue('Language', ''));
   for I := 0 to Game.Players.Count - 1 do