Changeset 63 for trunk/Forms

Timestamp:

Nov 26, 2020, 1:18:19 PM (4 years ago)

Author:

chronos

Message:

• Added: Support for full screen mode.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (2 diffs)
• UFormMain.pas (modified) (7 diffs)

trunk/Forms/UFormMain.lfm

@@ -8 +8 @@
   ClientWidth = 1276
   DesignTimePPI = 144
+  OnActivate = FormActivate
+  OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnKeyPress = FormKeyPress
+  OnKeyUp = FormKeyUp
   OnShow = FormShow
   LCLVersion = '2.0.10.0'
-  WindowState = wsMaximized
   object PaintBox1: TPaintBox
     Left = 0
@@ -57 +59 @@
     Top = 460
   end
+  object PersistentForm1: TPersistentForm
+    MinVisiblePart = 50
+    EntireVisible = False
+    Left = 488
+    Top = 536
+  end
 end

trunk/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ExtCtrls, UEngine, LCLType, types, UTranslator, UApplicationInfo, URegistry;
+  ExtCtrls, UEngine, LCLType, types, UTranslator, UApplicationInfo, URegistry,
+  UPersistentForm;
 
 type
@@ -16 +17 @@
     ApplicationInfo1: TApplicationInfo;
     PaintBox1: TPaintBox;
+    PersistentForm1: TPersistentForm;
     Timer1: TTimer;
     Translator1: TTranslator;
+    procedure FormActivate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormKeyPress(Sender: TObject; var Key: char);
+    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormShow(Sender: TObject);
     procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
@@ -36 +41 @@
     procedure Timer1Timer(Sender: TObject);
   private
+    Initialized: Boolean;
     procedure LoadConfig;
     procedure SaveConfig;
   public
+    FullScreen: Boolean;
     Engine: TEngine;
     procedure EraseBackground(DC: HDC); override;
@@ -45 +52 @@
 var
   FormMain: TFormMain;
+
 
 implementation
@@ -63 +71 @@
 end;
 
+procedure TFormMain.FormActivate(Sender: TObject);
+begin
+  if not Initialized then begin
+    Initialized := True;
+  end;
+end;
+
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  PersistentForm1.Save(Self);
+end;
+
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
@@ -71 +91 @@
 procedure TFormMain.FormKeyPress(Sender: TObject; var Key: char);
 begin
-  if (Key = #32) then begin
+  if Key = #32 then begin
     if Engine.State = gsRunning then Engine.State := gsPaused
     else if Engine.State = gsPaused then Engine.State := gsRunning;
@@ -77 +97 @@
 end;
 
+procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
+  );
+const
+  KeyF11 = 122;
+begin
+  if Key = KeyF11 then begin
+    FormMain.FullScreen := not FormMain.FullScreen;
+    FormMain.PersistentForm1.SetFullScreen(FormMain.FullScreen);
+  end;
+end;
+
 procedure TFormMain.FormShow(Sender: TObject);
 begin
+  PersistentForm1.RegistryContext := ApplicationInfo1.GetRegistryContext;
+  PersistentForm1.Load(Self, False, True);
   Randomize;
   Engine.ImagePassenger.Picture.Assign(FormImages.ImagePassenger.Picture);