Changeset 174 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• FormMain.lfm (modified) (3 diffs)
• FormMain.pas (modified) (4 diffs)

trunk/Forms/FormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
   Left = 534
-  Height = 993
+  Height = 1061
   Top = 223
   Width = 1491
   AllowDropFiles = True
   Caption = 'vCard Studio'
-  ClientHeight = 959
+  ClientHeight = 1061
   ClientWidth = 1491
   DesignTimePPI = 144
@@ -18 +18 @@
   OnResize = FormResize
   OnShow = FormShow
-  LCLVersion = '2.2.6.0'
+  LCLVersion = '3.4.0.0'
   object CoolBar1: TCoolBar
     Left = 0
@@ -196 +196 @@
         OnClick = MenuItemColumnsClick
       end
+      object MenuItem17: TMenuItem
+        Action = Core.AFullScreen
+      end
     end
     object MenuItemTools: TMenuItem

trunk/Forms/FormMain.pas

@@ -22 +22 @@
     MenuItem15: TMenuItem;
     MenuItem16: TMenuItem;
+    MenuItem17: TMenuItem;
     MenuItemColumns: TMenuItem;
     MenuItem3: TMenuItem;
@@ -80 +81 @@
     procedure UpdateInterface;
     procedure SettingsChanged;
+    procedure ToggleFullScreen;
   end;
 
@@ -249 +251 @@
   UpdateFormTitle;
   CoolBar1.Visible := MenuItemToolbar.Checked;
+  Core.Core.AFullScreen.Checked := FullScreen;
 end;
 
@@ -259 +262 @@
 end;
 
+procedure TFormMain.ToggleFullScreen;
+begin
+  FullScreen := not FullScreen;
+  Core.Core.AFullScreen.Checked := FullScreen;
+  TFormEx.PersistentForm.Save(Self);
+  TFormEx.PersistentForm.SetFullScreen(FullScreen);
+  UpdateInterface;
+end;
+
 end.