Changeset 275 for trunk/UGame.pas

Timestamp:

Feb 3, 2019, 11:28:03 PM (6 years ago)

Author:

chronos

Message:

• Added: New forms for game systems management.
• Added: Allow to load/save game system from/to file system as .xts file.

File:

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

trunk/UGame.pas

@@ -24 +24 @@
     class procedure PolygonEx(Canvas: TCanvas; const Points: array of Classes.TPoint; Winding: Boolean);
     class procedure PolyLineEx(Canvas: TCanvas; const Points: array of Classes.TPoint);
-    class procedure Ellipse(Canvas: TCanvas; const ARect: TRect);
+    class procedure EllipseEx(Canvas: TCanvas; const ARect: TRect);
   end;
 
@@ -87 +87 @@
     StoredRandSeed: Cardinal;
     GeneratePlayers: Boolean;
+    GameSystemName: string;
     procedure PostConfig;
     procedure Assign(Source: TGame);
@@ -192 +193 @@
 end;
 
-class procedure TCanvasEx.Ellipse(Canvas: TCanvas; const ARect: TRect);
+class procedure TCanvasEx.EllipseEx(Canvas: TCanvas; const ARect: TRect);
 begin
   LCLIntf.Ellipse(Canvas.Handle, ARect.P1.X, ARect.P1.Y, ARect.P2.X, ARect.P2.Y);
@@ -526 +527 @@
     SetValue(DOMString(Path + '/MaxPower'), MaxPower);
     Players.SaveConfig(Config, Path + '/Players');
-    GameSystem.SaveConfig(Config, Path + '/GameSystem');
+    SetValue(DOMString(Path + '/GameSystemName'), DOMString(GameSystemName));
   end;
 end;
@@ -565 +566 @@
     MaxPower := GetValue(DOMString(Path + '/MaxPower'), 99);
     Players.LoadConfig(Config, Path + '/Players');
-    GameSystem.LoadConfig(Config, Path + '/GameSystem');
+    GameSystemName := string(GetValue(DOMString(Path + '/GameSystemName'), DOMString('')));
   end;
 end;
@@ -788 +789 @@
   R: Boolean;
   I: Integer;
-  PlayersCount: Integer;
 begin
   Winner := nil;