Changeset 29 for trunk/Forms

Timestamp:

Oct 6, 2019, 9:53:39 PM (5 years ago)

Author:

chronos

Message:

• Added: Computer player accessible from Tools menu in Debug mode. It is not able to win game yet.

Location:

trunk/Forms

Files:

• UFormComputer.lfm (added)
• UFormComputer.lrj (added)
• UFormComputer.pas (added)
• UFormHelp.lfm (added)
• UFormHelp.lrj (added)
• UFormHelp.pas (added)
• UFormMain.lfm (modified) (1 diff)
• UFormMain.lrj (modified) (1 diff)
• UFormMain.pas (modified) (5 diffs)

trunk/Forms/UFormMain.lfm

@@ -32 +32 @@
       end
     end
+    object MenuItemTools: TMenuItem
+      Caption = 'Tools'
+      object MenuItem4: TMenuItem
+        Action = Core.AComputer
+      end
+    end
     object MenuItemHelp: TMenuItem
       Caption = 'Help'

trunk/Forms/UFormMain.lrj

@@ -2 +2 @@
 {"hash":217976,"name":"tformmain.caption","sourcebytes":[50,48,52,56],"value":"2048"},
 {"hash":317493,"name":"tformmain.menuitemgame.caption","sourcebytes":[71,97,109,101],"value":"Game"},
+{"hash":5989939,"name":"tformmain.menuitemtools.caption","sourcebytes":[84,111,111,108,115],"value":"Tools"},
 {"hash":322608,"name":"tformmain.menuitemhelp.caption","sourcebytes":[72,101,108,112],"value":"Help"}
 ]}

trunk/Forms/UFormMain.pas

@@ -18 +18 @@
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItemTools: TMenuItem;
     MenuItemNew: TMenuItem;
     MenuItemExit: TMenuItem;
@@ -35 +37 @@
   public
     procedure Redraw;
+    procedure UpdateInterface;
   end;
 
@@ -53 +56 @@
   if Core.Game.Running and not Core.Game.Moving then begin
     case Key of
-      37: Core.Game.MoveAll(drLeft);
-      38: Core.Game.MoveAll(drUp);
-      39: Core.Game.MoveAll(drRight);
-      40: Core.Game.MoveAll(drDown);
+      37: Core.Game.MoveAllAndUpdate(drLeft);
+      38: Core.Game.MoveAllAndUpdate(drUp);
+      39: Core.Game.MoveAllAndUpdate(drRight);
+      40: Core.Game.MoveAllAndUpdate(drDown);
     end;
   end;
@@ -85 +88 @@
   if not Core.Game.Running then
     Core.Game.New;
+  UpdateInterface;
 end;
 
@@ -100 +104 @@
 end;
 
+procedure TFormMain.UpdateInterface;
+var
+  I: Integer;
+  ToolsVisible: Boolean;
+begin
+  ToolsVisible := False;
+  for I := 0 to MenuItemTools.Count - 1 do
+    if MenuItemTools.Items[I].Enabled then begin
+      ToolsVisible := True;
+      Break;
+    end;
+  MenuItemTools.Visible := ToolsVisible;
+end;
+
 end.