Changeset 79 for trunk/Forms/UFormMain.pas

Timestamp:

Feb 11, 2021, 11:20:18 PM (4 years ago)

Author:

chronos

Message:

• Added: Toggle full screen mode (F11) from View main menu.
• Modified: Updated Common package files.

File:

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

trunk/Forms/UFormMain.pas

@@ -28 +28 @@
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItemFullScreen: TMenuItem;
     MenuItemMovesHistory: TMenuItem;
     MenuItemTools: TMenuItem;
@@ -47 +49 @@
     procedure FormPaint(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure MenuItemFullScreenClick(Sender: TObject);
     procedure TimerDrawTimer(Sender: TObject);
     procedure EraseBackground(DC: HDC); override;
@@ -56 +59 @@
     MoveBuffer: array of TMoveDirection;
     MoveBufferLock: TCriticalSection;
+    FullScreen: Boolean;
     procedure AddToMoveBuffer(Direction: TMoveDirection);
     procedure ProcessMoveBuffer;
+    procedure ToggleFullscreen;
   public
     MoveThread: TMoveThread;
@@ -87 +92 @@
 
 procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+const
+  KeyLeft = 37;
+  KeyUp = 38;
+  KeyRight = 39;
+  KeyDown = 40;
 begin
   if Core.Game.Running then begin
     case Key of
-      37: AddToMoveBuffer(drLeft);
-      38: AddToMoveBuffer(drUp);
-      39: AddToMoveBuffer(drRight);
-      40: AddToMoveBuffer(drDown);
+      KeyLeft: AddToMoveBuffer(drLeft);
+      KeyUp: AddToMoveBuffer(drUp);
+      KeyRight: AddToMoveBuffer(drRight);
+      KeyDown: AddToMoveBuffer(drDown);
     end;
     //ProcessMoveBuffer;
@@ -184 +194 @@
   Core.PersistentForm1.RegistryContext := Core.ApplicationInfo1.GetRegistryContext;
   Core.PersistentForm1.Load(Self);
+  FullScreen := Core.PersistentForm1.FormFullScreen;
   Core.ThemeManager1.UseTheme(Self);
   UpdateInterface;
@@ -189 +200 @@
     InitialTileCount then
     Core.Game.New;
+end;
+
+procedure TFormMain.MenuItemFullScreenClick(Sender: TObject);
+begin
+  ToggleFullscreen;
 end;
 
@@ -235 +251 @@
 end;
 
+procedure TFormMain.ToggleFullscreen;
+begin
+  FullScreen := not FullScreen;
+  Core.PersistentForm1.SetFullScreen(FormMain.FullScreen);
+  UpdateInterface;
+end;
+
 procedure TFormMain.Redraw;
 begin
@@ -245 +268 @@
   ToolsVisible: Boolean;
 begin
+  MenuItemFullScreen.Checked := FullScreen;
   MenuItemMovesHistory.Visible := Core.Game.RecordHistory;
   ToolsVisible := False;