Changeset 63 for trunk/Forms

Timestamp:

Jan 5, 2023, 11:03:33 PM (23 months ago)

Author:

chronos

Message:

• Added: Snap package definition.

Location:

trunk/Forms

Files:

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

trunk/Forms/UFormMain.lfm

@@ -82 +82 @@
         Action = AFullScreen
       end
+      object MenuItem8: TMenuItem
+        Action = AShowRawImageDesc
+      end
     end
     object MenuItem7: TMenuItem
@@ -112 +115 @@
       OnExecute = ANewGameExecute
       ShortCut = 16462
+      Visible = False
     end
     object AShowMap: TAction
@@ -117 +121 @@
       OnExecute = AShowMapExecute
       ShortCut = 123
+      Visible = False
     end
     object AAbout: TAction
@@ -125 +130 @@
       Caption = 'Show RawImage Description'
       OnExecute = AShowRawImageDescExecute
+      Visible = False
     end
   end

trunk/Forms/UFormMain.pas

@@ -31 +31 @@
     MenuItem6: TMenuItem;
     MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
     MenuItem9: TMenuItem;
     StatusBar1: TStatusBar;
@@ -137 +138 @@
   {$IFDEF DEBUG}
   StatusBar1.Visible := not FullScreenEnabled;
+  AShowMap.Visible := True;
+  ANewGame.Visible := True;
+  AShowRawImageDesc.Visible := True;
   {$ENDIF}
 end;
@@ -148 +152 @@
 begin
   XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
+  FullScreenEnabled := True;
 
   PersistentForm := TPersistentForm.Create(nil);
@@ -244 +249 @@
   PersistentForm.Load(Self, False, True);
   FullScreenEnabled := PersistentForm.FormFullScreen;
-  UpdateInterface
+  PersistentForm.SetFullScreen(FullScreenEnabled);
+  UpdateInterface;
 end;