Changeset 330 for trunk/Core.pas

Timestamp:

Jul 19, 2024, 9:46:33 PM (4 months ago)

Author:

chronos

Message:

• Fixed: New game symetric map units calcualtion.
• Fixed: Map preview with cell and unit borders.
• Fixed: Allow to set preferred game system grid type.

File:

• trunk/Core.pas (modified) (3 diffs)

trunk/Core.pas

@@ -610 +610 @@
 procedure TCore.UpdateOtherForms;
 begin
-  if Assigned(FormMain.FormCharts) and FormMain.FormCharts.Visible then FormMain.FormCharts.Redraw;
-  if Assigned(FormMain.FormUnitMoves) and FormMain.FormUnitMoves.Visible then FormMain.FormUnitMoves.ReloadList;
-  if Assigned(FormMain.FormPlayersStats) and FormMain.FormPlayersStats.Visible then FormMain.FormPlayersStats.ReloadList;
+  if Assigned(FormMain.FormCharts) and FormMain.FormCharts.Visible then
+    FormMain.FormCharts.Redraw;
+  if Assigned(FormMain.FormUnitMoves) and FormMain.FormUnitMoves.Visible then
+    FormMain.FormUnitMoves.ReloadList;
+  if Assigned(FormMain.FormPlayersStats) and FormMain.FormPlayersStats.Visible then
+    FormMain.FormPlayersStats.ReloadList;
 end;
 
@@ -633 +636 @@
   NewUnitKind: TUnitKind;
   SystemsDir: string;
+const
+  GameSystemsDirName = 'Systems';
+  DefaultGameSystemName = 'Default';
 begin
   if GameFilesDir <> '' then
-    SystemsDir := GameFilesDir + DirectorySeparator + 'Systems'
-    else SystemsDir := 'Systems';
+    SystemsDir := GameFilesDir + DirectorySeparator + GameSystemsDirName
+    else SystemsDir := GameSystemsDirName;
   if DirectoryExists(SystemsDir) then begin
     GameSystems.LoadFromDir(SystemsDir);
@@ -642 +648 @@
     // Create default game system if the directory with definitions was not found
     NewGameSystem := TGameSystem.Create;
-    NewGameSystem.FileName := 'HexWars';
+    NewGameSystem.FileName := DefaultGameSystemName;
     NewUnitKind := TUnitKind.Create;
     NewUnitKind.Name := 'Unit';