Changeset 63 for trunk/Forms/UFormMain.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Snap package definition.

File:

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

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;