Changeset 179 for trunk/UCore.pas

Timestamp:

Feb 6, 2018, 3:47:23 PM (7 years ago)

Author:

chronos

Message:

• Added: A preparation for gameplay over network.

File:

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

trunk/UCore.pas

@@ -228 +228 @@
     if (DesignDPI.X <> DPI.X) or (DesignDPI.Y <> DPI.Y) then begin
       //ApplyToAll(DesignDPI);
-      FormNew.Show;
-      FormNew.Hide;
       for I := 0 to Screen.FormCount - 1 do
       if (Screen.Forms[I].WindowState = wsNormal) or
@@ -318 +316 @@
 procedure TCore.AGameNewExecute(Sender: TObject);
 begin
-  FormNew.Load(Game);
-  if FormNew.ShowModal = mrOk then begin
-    FormNew.Save(Game);
-    StartNewGame;
+  FormNew := TFormNew.Create(nil);
+  try
+    FormNew.Load(Server);
+    if FormNew.ShowModal = mrOk then begin
+      FormNew.Save(Server);
+      StartNewGame;
+    end;
+  finally
+    FormNew.Free;
   end;
 end;
@@ -361 +364 @@
       FormSettings.Save;
       Game.SaveConfig(XMLConfig1, 'Game');
+      Server.SaveConfig(XMLConfig1, 'Server');
     end;
   finally
@@ -380 +384 @@
 begin
   UGame.InitStrings;
-  FormNew.Translate;
   FormPlayer.Translate;
 end;
@@ -404 +407 @@
   FreeAndNil(StoredDimension);
   Game.SaveConfig(XMLConfig1, 'Game');
+  Server.SaveConfig(XMLConfig1, 'Server');
   SaveConfig;
   FreeAndNil(Server);
@@ -478 +482 @@
     LoadConfig;
     Game.LoadConfig(XMLConfig1, 'Game');
+    Server.LoadConfig(XMLConfig1, 'Server');
 
     CommandLineParams;