Changeset 127 for trunk/UCore.pas

Timestamp:

Jun 17, 2017, 3:14:16 PM (7 years ago)

Author:

chronos

Message:

• Added: Load recent menu action to load recently opened/saved files.
• Fixed: Init clients after loading game from file.

File:

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

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms,
-  UGame, UApplicationInfo, UPersistentForm, UScaleDPI, UCoolTranslator, URegistry,
-  Registry;
+  UGame, UApplicationInfo, UPersistentForm, UScaleDPI, UCoolTranslator,
+  URegistry, ULastOpenedList, Registry, Menus;
 
 type
@@ -30 +30 @@
     ImageListLarge: TImageList;
     ImageListSmall: TImageList;
+    LastOpenedList1: TLastOpenedList;
     OpenDialog1: TOpenDialog;
     PersistentForm: TPersistentForm;
@@ -48 +49 @@
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
+    procedure LastOpenedList1Change(Sender: TObject);
   private
     FInitialized: Boolean;
     StoredDimension: TControlDimension;
     RegistryContext: TRegistryContext;
+    procedure LoadRecentExecute(Sender: TObject);
     procedure StartNewGame;
     procedure DoPlayerChange(Sender: TObject);
@@ -66 +69 @@
     procedure ScaleDPI;
     procedure SelectClient;
+    procedure LoadGame(FileName: string);
   public
     Game: TGame;
     UseSingleView: Boolean;
     DevelMode: Boolean;
-    LastMapFileName: string;
     AnimationSpeed: Integer;
     AutoSaveEnabled: Boolean;
@@ -175 +178 @@
   XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
 
-  LastMapFileName := XMLConfig1.GetValue('LastMapFileName', '');
+  LastOpenedList1.LoadFromXMLConfig(XMLConfig1, 'RecentFiles');
   DevelMode := XMLConfig1.GetValue('DevelMode', false);
   AnimationSpeed := XMLConfig1.GetValue('AnimationSpeed', 50);
@@ -187 +190 @@
 begin
   XMLConfig1.SetValue('Language', CoolTranslator1.Language.Code);
-  XMLConfig1.SetValue('LastMapFileName', LastMapFileName);
+  LastOpenedList1.SaveToXMLConfig(XMLConfig1, 'RecentFiles');
   XMLConfig1.SetValue('DevelMode', DevelMode);
   XMLConfig1.SetValue('AnimationSpeed', AnimationSpeed);
@@ -203 +206 @@
   if (ParamCount > 0) then begin
     FileName := UTF8Encode(ParamStr(1));
-    if FileExists(FileName) then begin
-      Game.LoadFromFile(FileName);
-      SelectClient;
-      LastMapFileName := OpenDialog1.FileName;
-      with Core.CurrentClient do
-        View.DestRect := Bounds(0, 0, FormMain.PaintBox1.Width, FormMain.PaintBox1.Height);
-      FormMain.AZoomAll.Execute;
-      FormMain.Redraw;
-    end;
+    if FileExists(FileName) then LoadGame(FileName);
   end;
 end;
@@ -305 +300 @@
 procedure TCore.AGameLoadExecute(Sender: TObject);
 begin
-  if Game.FileName = '' then
-    OpenDialog1.FileName := LastMapFileName
+  if (Game.FileName = '') and (LastOpenedList1.Items.Count > 0) then
+    OpenDialog1.FileName := LastOpenedList1.Items[0]
     else OpenDialog1.FileName := Game.FileName;
   if OpenDialog1.Execute then begin
-    Game.LoadFromFile(OpenDialog1.FileName);
-    SelectClient;
-    LastMapFileName := OpenDialog1.FileName;
-    with Core.CurrentClient do
-      View.DestRect := Bounds(0, 0, FormMain.PaintBox1.Width, FormMain.PaintBox1.Height);
-    FormMain.AZoomAll.Execute;
-    FormMain.Redraw;
+    LoadGame(OpenDialog1.FileName);
   end;
 end;
@@ -337 +326 @@
 procedure TCore.AGameSaveExecute(Sender: TObject);
 begin
-  if Game.FileName = '' then
-    SaveDialog1.FileName := ExtractFileDir(LastMapFileName)
+  if (Game.FileName = '') and (LastOpenedList1.Items.Count > 0) then
+    SaveDialog1.FileName := ExtractFileDir(LastOpenedList1.Items[0])
     else SaveDialog1.FileName := Game.FileName;
   if SaveDialog1.Execute then begin
     Game.SaveToFile(SaveDialog1.FileName);
-    LastMapFileName := SaveDialog1.FileName;
+    LastOpenedList1.AddItem(SaveDialog1.FileName);
   end;
 end;
@@ -392 +381 @@
 end;
 
+procedure TCore.LastOpenedList1Change(Sender: TObject);
+begin
+  LastOpenedList1.LoadToMenuItem(FormMain.MenuItemLoadRecent, LoadRecentExecute);
+end;
+
+procedure TCore.LoadRecentExecute(Sender: TObject);
+begin
+  LoadGame((Sender as TMenuItem).Caption);
+end;
+
+procedure TCore.LoadGame(FileName: string);
+begin
+  Game.LoadFromFile(FileName);
+  SelectClient;
+  LastOpenedList1.AddItem(FileName);
+  with Core.CurrentClient do
+    View.DestRect := Bounds(0, 0, FormMain.PaintBox1.Width, FormMain.PaintBox1.Height);
+  FormMain.AZoomAll.Execute;
+  FormMain.Redraw;
+end;
+
 procedure TCore.StartNewGame;
 begin
@@ -408 +418 @@
 
 procedure TCore.Init;
-var
-  I: Integer;
 begin
   {$IFDEF Linux}