Changeset 36 for trunk/Forms

Timestamp:

Oct 13, 2019, 5:14:50 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Missing UFormHistory files.
• Added: Allow to disable moves history recording.

Location:

trunk/Forms

Files:

• UFormHistory.lfm (added)
• UFormHistory.lrj (added)
• UFormHistory.pas (added)
• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (3 diffs)
• UFormNew.lfm (modified) (4 diffs)
• UFormNew.lrj (modified) (1 diff)
• UFormNew.pas (modified) (3 diffs)
• UFormSettings.pas (modified) (1 diff)

trunk/Forms/UFormMain.lfm

@@ -37 +37 @@
         Action = Core.AComputer
       end
-      object MenuItem5: TMenuItem
+      object MenuItemMovesHistory: TMenuItem
         Action = Core.AHistory
       end

trunk/Forms/UFormMain.pas

@@ -19 +19 @@
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
-    MenuItem5: TMenuItem;
+    MenuItemMovesHistory: TMenuItem;
     MenuItemTools: TMenuItem;
     MenuItemNew: TMenuItem;
@@ -88 +88 @@
   Core.PersistentForm1.Load(Self);
   UpdateInterface;
+  if Core.Game.Board.GetEmptyTilesCount > Core.Game.Board.Size.X * Core.Game.Board.Size.Y - 2 then
+    Core.Game.New;
 end;
 
@@ -108 +110 @@
   ToolsVisible: Boolean;
 begin
+  MenuItemMovesHistory.Visible := Core.Game.RecordHistory;
   ToolsVisible := False;
   for I := 0 to MenuItemTools.Count - 1 do

trunk/Forms/UFormNew.lfm

@@ -1 +1 @@
 object FormNew: TFormNew
   Left = 703
-  Height = 212
-  Top = 748
-  Width = 487
+  Height = 266
+  Top = 694
+  Width = 501
   Caption = 'New game'
-  ClientHeight = 212
-  ClientWidth = 487
+  ClientHeight = 266
+  ClientWidth = 501
   DesignTimePPI = 144
   OnClose = FormClose
@@ -45 +45 @@
     Left = 120
     Height = 38
-    Top = 158
+    Top = 212
     Width = 113
     Anchors = [akLeft, akBottom]
@@ -55 +55 @@
     Left = 280
     Height = 38
-    Top = 158
+    Top = 212
     Width = 113
     Anchors = [akLeft, akBottom]
@@ -70 +70 @@
     TabOrder = 3
   end
+  object CheckBoxRecordHistory: TCheckBox
+    Left = 16
+    Height = 30
+    Top = 88
+    Width = 210
+    Caption = 'Record moves history'
+    TabOrder = 4
+  end
 end

trunk/Forms/UFormNew.lrj

@@ -4 +4 @@
 {"hash":77089212,"name":"tformnew.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"},
 {"hash":1339,"name":"tformnew.buttonok.caption","sourcebytes":[79,75],"value":"OK"},
-{"hash":260260820,"name":"tformnew.checkboxundoenabled.caption","sourcebytes":[85,110,100,111,32,101,110,97,98,108,101,100],"value":"Undo enabled"}
+{"hash":260260820,"name":"tformnew.checkboxundoenabled.caption","sourcebytes":[85,110,100,111,32,101,110,97,98,108,101,100],"value":"Undo enabled"},
+{"hash":146862089,"name":"tformnew.checkboxrecordhistory.caption","sourcebytes":[82,101,99,111,114,100,32,109,111,118,101,115,32,104,105,115,116,111,114,121],"value":"Record moves history"}
 ]}

trunk/Forms/UFormNew.pas

@@ -16 +16 @@
     ButtonCancel: TButton;
     ButtonOk: TButton;
+    CheckBoxRecordHistory: TCheckBox;
     CheckBoxUndoEnabled: TCheckBox;
     ComboBoxSize: TComboBox;
@@ -60 +61 @@
   ComboBoxSize.ItemIndex := Game.Board.Size.X - 2;
   CheckBoxUndoEnabled.Checked := Game.UndoEnabled;
+  CheckBoxRecordHistory.Checked := Game.RecordHistory;
 end;
 
@@ -66 +68 @@
   Game.Board.Size := Point(2 + ComboBoxSize.ItemIndex, 2 + ComboBoxSize.ItemIndex);
   Game.UndoEnabled := CheckBoxUndoEnabled.Checked;
+  Game.RecordHistory := CheckBoxRecordHistory.Checked;
 end;
 

trunk/Forms/UFormSettings.pas

@@ -62 +62 @@
     Core.Translator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
   end;
-  Close;
+  ModalResult := mrOk;
 end;