Changeset 276 for trunk/Forms/UFormGameSystem.pas

Timestamp:

Feb 3, 2019, 11:55:30 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Load/save game syste name correctly from/to file.

File:

• trunk/Forms/UFormGameSystem.pas (modified) (5 diffs)

trunk/Forms/UFormGameSystem.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  UGameSystem;
+  ComCtrls, UGameSystem;
 
 type
@@ -18 +18 @@
     ButtonSave: TButton;
     ButtonLoad: TButton;
+    CheckBoxEmptyCellsNeutral: TCheckBox;
+    CheckBoxUnitsMoveImmediately: TCheckBox;
+    CheckBoxUnitsSplitMerge: TCheckBox;
     OpenDialog1: TOpenDialog;
+    PageControl1: TPageControl;
     SaveDialog1: TSaveDialog;
+    TabSheetGeneral: TTabSheet;
+    TabSheetUnits: TTabSheet;
     procedure ButtonLoadClick(Sender: TObject);
     procedure ButtonSaveClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     FGameSystem: TGameSystem;
@@ -38 +47 @@
 implementation
 
+{$R *.lfm}
+
+uses
+  UCore;
+
 resourcestring
   SFileDialogFilter = 'xTactics game system (.xts)|*.xts|All files|*.*';
-
-
-{$R *.lfm}
 
 { TFormGameSystem }
@@ -62 +73 @@
   SaveDialog1.InitialDir := ExtractFileDir(GameSystem.FileName);
   SaveDialog1.FileName := ExtractFileName(GameSystem.FileName);
+  SaveDialog1.DefaultExt := GameSystemExt;
   if SaveDialog1.Execute then begin
     GameSystem.SaveToFile(SaveDialog1.FileName);
   end;
+end;
+
+procedure TFormGameSystem.FormClose(Sender: TObject;
+  var CloseAction: TCloseAction);
+begin
+  Core.PersistentForm.Save(Self);
+end;
+
+procedure TFormGameSystem.FormCreate(Sender: TObject);
+begin
+  Core.ThemeManager1.UseTheme(Self);
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
+end;
+
+procedure TFormGameSystem.FormShow(Sender: TObject);
+begin
+  Core.PersistentForm.Load(Self);
 end;
 
@@ -75 +104 @@
 procedure TFormGameSystem.LoadData(GameSystem: TGameSystem);
 begin
-
+  Self.GameSystem := GameSystem;
+  CheckBoxEmptyCellsNeutral.Checked := GameSystem.EmptyCellsNeutral;
+  CheckBoxUnitsSplitMerge.Checked := GameSystem.UnitsSplitMerge;
+  CheckBoxUnitsMoveImmediately.Checked := GameSystem.UnitsMoveImmediately;
 end;
 
 procedure TFormGameSystem.SaveData(GameSystem: TGameSystem);
 begin
-
+  GameSystem.EmptyCellsNeutral := CheckBoxEmptyCellsNeutral.Checked;
+  GameSystem.UnitsSplitMerge := CheckBoxUnitsSplitMerge.Checked;
+  GameSystem.UnitsMoveImmediately := CheckBoxUnitsMoveImmediately.Checked;
 end;