Changeset 62 for trunk/Forms

Timestamp:

Jan 5, 2023, 10:14:31 PM (23 months ago)

Author:

chronos

Message:

• Modified: Hide main menu in full screen mode.
• Modified: Use colors as player names.
• Modified: Use black background around player frames.

Location:

trunk/Forms

Files:

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

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
   Left = 692
-  Height = 536
+  Height = 617
   Top = 479
-  Width = 668
+  Width = 770
   Caption = 'Tunneler'
-  ClientHeight = 506
-  ClientWidth = 668
-  DesignTimePPI = 125
+  ClientHeight = 583
+  ClientWidth = 770
+  DesignTimePPI = 144
   Menu = MainMenu1
   OnClose = FormClose
@@ -19 +19 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 24
-    Top = 482
-    Width = 668
+    Height = 28
+    Top = 555
+    Width = 770
     Panels = <    
       item
-        Width = 64
+        Width = 74
       end    
       item
-        Width = 64
+        Width = 74
       end    
       item
-        Width = 64
+        Width = 74
       end    
       item
-        Width = 64
+        Width = 74
       end    
       item
-        Width = 64
+        Width = 74
       end    
       item
-        Width = 64
+        Width = 74
       end    
       item
-        Width = 64
+        Width = 74
       end>
     ParentFont = False
@@ -50 +50 @@
   object Image1: TImage
     Left = 0
-    Height = 482
+    Height = 555
     Top = 0
-    Width = 668
+    Width = 770
     Align = alClient
     OnResize = Image1Resize
@@ -59 +59 @@
     Interval = 50
     OnTimer = TimerDrawTimer
-    Left = 129
-    Top = 66
+    Left = 149
+    Top = 76
   end
   object MainMenu1: TMainMenu
-    Left = 240
-    Top = 21
+    Left = 276
+    Top = 24
     object MenuItem1: TMenuItem
       Caption = 'Game'
@@ -92 +92 @@
   object TimerEngineTick: TTimer
     Interval = 20
-    OnTimer = TimerEngineTickTimer
-    Left = 125
-    Top = 135
+    Left = 144
+    Top = 156
   end
   object ActionList1: TActionList
-    Left = 375
-    Top = 42
+    Left = 432
+    Top = 48
     object AFullScreen: TAction
       Caption = 'Fullscreen mode'
@@ -132 +131 @@
     RootName = 'CONFIG'
     ReadOnly = False
-    Left = 129
-    Top = 313
+    Left = 149
+    Top = 361
   end
   object AboutDialog1: TAboutDialog
@@ -139 +138 @@
     ThemeManager = Core.ThemeManager1
     ApplicationInfo = Core.ApplicationInfo
-    Left = 267
-    Top = 157
+    Left = 308
+    Top = 181
   end
 end

trunk/Forms/UFormMain.pas

@@ -51 +51 @@
     procedure Image1Resize(Sender: TObject);
     procedure TimerDrawTimer(Sender: TObject);
-    procedure TimerEngineTickTimer(Sender: TObject);
   private
     StartTime: TDateTime;
@@ -58 +57 @@
     procedure LoadConfig;
     procedure SaveConfig;
+    procedure UpdateInterface;
   public
     PersistentForm: TPersistentForm;
@@ -110 +110 @@
 end;
 
-procedure TFormMain.TimerEngineTickTimer(Sender: TObject);
-begin
-  //Engine.Tick;
-end;
-
 procedure TFormMain.LoadConfig;
 begin
@@ -134 +129 @@
   ForceDirectories(ExtractFileDir(XMLConfig1.Filename));
   XMLConfig1.Flush;
+end;
+
+procedure TFormMain.UpdateInterface;
+begin
+  if FullScreenEnabled then Menu := nil
+    else Menu := MainMenu1;
+  {$IFDEF DEBUG}
+  StatusBar1.Visible := not FullScreenEnabled;
+  {$ENDIF}
 end;
 
@@ -169 +173 @@
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
+  TimerDraw.Enabled := False;
   FreeAndNil(PersistentForm);
   FreeAndNil(Engine);
@@ -177 +182 @@
   FullScreenEnabled := not FullScreenEnabled;
   PersistentForm.SetFullScreen(FullScreenEnabled);
+  UpdateInterface;
 end;
 
@@ -238 +244 @@
   PersistentForm.Load(Self, False, True);
   FullScreenEnabled := PersistentForm.FormFullScreen;
-  {$IFDEF DEBUG}
-  StatusBar1.Visible := True;
-  {$ENDIF}
+  UpdateInterface
 end;