Changeset 59 for trunk/Forms/UFormMain.pas

Timestamp:

Dec 25, 2022, 2:30:52 PM (21 months ago)

Author:

chronos

Message:

• Added: Main menu, new round screen, terrain map screen.

File:

• trunk/Forms/UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -219 +219 @@
   Shift: TShiftState);
 begin
-  Engine.KeyBoard.KeyState[Key] := True;
+  Engine.KeyDown(Key);
   StatusBar1.Panels[0].Text := IntToStr(Key);
 end;
@@ -225 +225 @@
 procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
   );
-const
-  KeyF11 = 112;
-var
-  I: Integer;
-begin
-  Engine.KeyBoard.KeyState[Key] := False;
-  {$IFDEF DEBUG}
-  if Key = KeyF11 then begin
-    // Destroy first alive player
-    for I := 0 to Engine.Players.Count - 1 do
-    with Engine.Players[I] do begin
-      if not Exploded then begin
-        Energy := -100;
-        Break;
-      end;
-    end;
-  end;
-  {$ENDIF}
+begin
+  Engine.KeyUp(Key);
 end;
 
@@ -250 +234 @@
   PersistentForm.Load(Self, False, True);
   FullScreenEnabled := PersistentForm.FormFullScreen;
+  {$IFDEF DEBUG}
+  StatusBar1.Visible := True;
+  {$ENDIF}
 end;