Changeset 48 for branches/ByteArray/Forms/FormMain.pas

Timestamp:

Oct 26, 2023, 11:59:00 PM (7 months ago)

Author:

chronos

Message:

• Fixed: Resolved unit names conflict with Common package.

File:

• branches/ByteArray/Forms/FormMain.pas (modified) (5 diffs)

branches/ByteArray/Forms/FormMain.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, ActnList,
-  FormConsole, FormScreen, Machine, FormSourceEditor, FormMemory;
+  FormConsole, FormScreen, Machine, Common.PersistentForm, FormSourceEditor,
+  FormMemory, Common.FormEx;
 
 type
@@ -11 +12 @@
   { TFormMain }
 
-  TFormMain = class(TForm)
+  TFormMain = class(TFormEx)
+    AFullscreen: TAction;
     AMemory: TAction;
     AExit: TAction;
@@ -26 +28 @@
     MenuItem6: TMenuItem;
     MenuItem7: TMenuItem;
+    PersistentForm1: TPersistentForm;
+    Separator1: TMenuItem;
+    MenuItem9: TMenuItem;
     MenuItemViewScreen: TMenuItem;
     MenuItemViewStorage: TMenuItem;
@@ -31 +36 @@
     procedure ADebuggerExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
+    procedure AFullscreenExecute(Sender: TObject);
     procedure AMemoryExecute(Sender: TObject);
     procedure ASourceEditorExecute(Sender: TObject);
@@ -81 +87 @@
 begin
   Close;
+end;
+
+procedure TFormMain.AFullscreenExecute(Sender: TObject);
+begin
+  PersistentForm1.SetFullScreen(not PersistentForm1.FormFullScreen);
 end;