Changeset 174 for trunk/Core.pas

Timestamp:

Jul 19, 2024, 3:51:57 PM (4 months ago)

Author:

chronos

Message:

• Added: Menu action View - Fullscreen for switching into full screen mode.
• Fixed: Save main form dimensions if application Exit action is selected.

File:

• trunk/Core.pas (modified) (4 diffs)

trunk/Core.pas

@@ -15 +15 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AFullScreen: TAction;
     AFileImport: TAction;
     AFileExport: TAction;
@@ -62 +63 @@
     procedure AFindDuplicateExecute(Sender: TObject);
     procedure AFindExecute(Sender: TObject);
+    procedure AFullScreenExecute(Sender: TObject);
     procedure AGenerateExecute(Sender: TObject);
     procedure AHomePageExecute(Sender: TObject);
@@ -150 +152 @@
 procedure TCore.AExitExecute(Sender: TObject);
 begin
+  FormMain.Close;
   Application.Terminate;
 end;
@@ -302 +305 @@
     Free;
   end;
+end;
+
+procedure TCore.AFullScreenExecute(Sender: TObject);
+begin
+  FormMain.ToggleFullScreen;
 end;