Changeset 101 for trunk/Forms/FormMain.pas

Timestamp:

May 21, 2024, 12:27:46 PM (6 months ago)

Author:

chronos

Message:

• Fixed: Wrong directory in RPM spec file.
• Fixed: Visible menu line on the top of the screen with Gtk2.

File:

• trunk/Forms/FormMain.pas (modified) (1 diff)

trunk/Forms/FormMain.pas

@@ -145 +145 @@
 procedure TFormMain.UpdateInterface;
 begin
+  {$IFDEF LCLQT5}
   MenuItem1.Visible := not FullScreenEnabled;
   MenuItem4.Visible := not FullScreenEnabled;
   MenuItem7.Visible := not FullScreenEnabled;
+  {$ELSE}
+  if FullScreenEnabled then Menu := nil
+    else Menu := MainMenu1;
+  {$ENDIF}
   {$IFDEF DEBUG}
   StatusBar1.Visible := not FullScreenEnabled;