Changeset 79 for trunk/UCore.pas

Timestamp:

Nov 4, 2014, 8:57:21 AM (10 years ago)

Author:

chronos

Message:

• Removed: Useless old method GetCellNeighbors. Cell neigbours can be now accessed directly.
• Modified: Optimized canvas TextOut to not move pointer after text displaying.
• Fixed: Computer inner moves were calculated incorrectly multiple times for same cells. This was slowing down calculation in particular for large maps.
• Added: Used PersistentForm component to keep forms position and size. So far it not supports xmlconfig class.

File:

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

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms,
-  UGame, UApplicationInfo, UCoolTranslator;
+  UGame, UApplicationInfo, UPersistentForm, UCoolTranslator;
 
 type
@@ -29 +29 @@
     ImageListSmall: TImageList;
     OpenDialog1: TOpenDialog;
+    PersistentForm: TPersistentForm;
     SaveDialog1: TSaveDialog;
     XMLConfig1: TXMLConfig;
@@ -51 +52 @@
     procedure GameNewTurnExecute(Sender: TObject);
     procedure AutoSave;
+    procedure LoadConfig;
+    procedure SaveConfig;
   public
     Game: TGame;
@@ -143 +146 @@
 end;
 
+procedure TCore.LoadConfig;
+begin
+  LastMapFileName := XMLConfig1.GetValue('LastMapFileName', '');
+  DevelMode := XMLConfig1.GetValue('DevelMode', false);
+  AnimationSpeed := XMLConfig1.GetValue('AnimationSpeed', 50);
+  AutoSaveEnabled := XMLConfig1.GetValue('AutoSave', True);
+  CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(XMLConfig1.GetValue('Language', ''));
+end;
+
+procedure TCore.SaveConfig;
+begin
+  XMLConfig1.SetValue('Language', CoolTranslator1.Language.Code);
+  XMLConfig1.SetValue('LastMapFileName', LastMapFileName);
+  XMLConfig1.SetValue('DevelMode', DevelMode);
+  XMLConfig1.SetValue('AnimationSpeed', AnimationSpeed);
+  XMLConfig1.SetValue('AutoSave', AutoSaveEnabled);
+end;
+
 procedure TCore.UpdateActions;
 begin
@@ -269 +290 @@
 begin
   Game.SaveConfig(XMLConfig1, 'Game');
-  XMLConfig1.SetValue('Language', CoolTranslator1.Language.Code);
-  XMLConfig1.SetValue('LastMapFileName', LastMapFileName);
-  XMLConfig1.SetValue('DevelMode', DevelMode);
-  XMLConfig1.SetValue('AnimationSpeed', AnimationSpeed);
-  XMLConfig1.SetValue('AutoSave', AutoSaveEnabled);
+  SaveConfig;
   FreeAndNil(Game);
 end;
@@ -282 +299 @@
 begin
   FInitialized := True;
-  LastMapFileName := XMLConfig1.GetValue('LastMapFileName', '');
-  DevelMode := XMLConfig1.GetValue('DevelMode', false);
-  AnimationSpeed := XMLConfig1.GetValue('AnimationSpeed', 50);
-  AutoSaveEnabled := XMLConfig1.GetValue('AutoSave', True);
-  CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(XMLConfig1.GetValue('Language', ''));
+  LoadConfig;
   for I := 0 to Game.Players.Count - 1 do
     TPlayer(Game.Players[I]).View.DestRect := Rect(0, 0, FormMain.PaintBox1.Width,