Changeset 62 for trunk/Forms/UFormMain.pas

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.

File:

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

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;