Changeset 275 for trunk/Forms/UFormNew.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/Forms/UFormNew.pas (modified) (9 diffs)

trunk/Forms/UFormNew.pas

@@ -25 +25 @@
     Button2: TButton;
     Button3: TButton;
+    ButtonGameSystems: TButton;
     ButtonRandomize: TButton;
     ButtonCancel: TButton;
@@ -41 +42 @@
     CheckBoxUnitsMoveImmediately: TCheckBox;
     CheckBoxVoid: TCheckBox;
+    ComboBoxGameSystem: TComboBox;
     ComboBoxGridType: TComboBox;
     ComboBoxMapShape: TComboBox;
@@ -54 +56 @@
     Label14: TLabel;
     Label15: TLabel;
+    Label16: TLabel;
     Label2: TLabel;
     Label3: TLabel;
@@ -117 +120 @@
     procedure AServerModifyExecute(Sender: TObject);
     procedure AServerRemoveExecute(Sender: TObject);
+    procedure ButtonGameSystemsClick(Sender: TObject);
     procedure ButtonImageBrowseClick(Sender: TObject);
     procedure ButtonRandomizeClick(Sender: TObject);
@@ -169 +173 @@
     procedure MapPreviewPaint;
     procedure MapPreviewRedraw;
+    procedure ReloadGameSystemsMenu;
   public
     procedure Translate;
@@ -186 +191 @@
 
 uses
-  UFormPlayer, UFormChat, UCore, UFormServer, UClientGUI, UFormClient;
+  UFormPlayer, UFormChat, UCore, UFormServer, UClientGUI, UFormClient,
+  UFormGameSystems;
 
 resourcestring
@@ -403 +409 @@
 end;
 
+procedure TFormNew.ReloadGameSystemsMenu;
+var
+  I: Integer;
+  LastSystem: Pointer;
+begin
+  if ComboBoxGameSystem.ItemIndex <> -1 then
+    LastSystem := ComboBoxGameSystem.Items.Objects[ComboBoxGameSystem.ItemIndex]
+    else LastSystem := nil;
+  ComboBoxGameSystem.Items.BeginUpdate;
+  try
+    while ComboBoxGameSystem.Items.Count > Core.GameSystems.Count do
+      ComboBoxGameSystem.Items.Delete(ComboBoxGameSystem.Items.Count - 1);
+    while ComboBoxGameSystem.Items.Count < Core.GameSystems.Count do
+      ComboBoxGameSystem.Items.Add('');
+    for I := 0 to Core.GameSystems.Count - 1 do begin
+      ComboBoxGameSystem.Items[I] := Core.GameSystems[I].Name;
+      ComboBoxGameSystem.Items.Objects[I] := Core.GameSystems[I];
+    end;
+    if Assigned(LastSystem) then
+      ComboBoxGameSystem.ItemIndex := ComboBoxGameSystem.Items.IndexOfObject(LastSystem);
+    if (ComboBoxGameSystem.ItemIndex = -1) and (ComboBoxGameSystem.Items.Count > 0) then
+      ComboBoxGameSystem.ItemIndex := 0;
+  finally
+    ComboBoxGameSystem.Items.EndUpdate;
+  end;
+end;
+
 procedure TFormNew.MapPreviewPaint;
 var
@@ -525 +558 @@
   Core.PersistentForm.Load(Self);
   Core.ThemeManager1.UseTheme(Self);
+  ReloadGameSystemsMenu;
   ReloadView;
   //Height := Trunc(1.5 * Height);
@@ -678 +712 @@
       ServerList.Items.Delete(I);
     ReloadView;
+  end;
+end;
+
+procedure TFormNew.ButtonGameSystemsClick(Sender: TObject);
+begin
+  FormGameSystems := TFormGameSystems.Create(nil);
+  try
+    FormGameSystems.GameSystems := Core.GameSystems;
+    FormGameSystems.ShowModal;
+    ReloadGameSystemsMenu;
+  finally
+    FreeAndNil(FormGameSystems);
   end;
 end;