Changeset 153 for trunk/Forms/FormMain.pas

Timestamp:

Aug 14, 2024, 1:05:13 PM (3 months ago)

Author:

chronos

Message:

• Added: Full screen switching support.
• Added: Help form.
• Modified: Updated Common package.
• Fixed: Execution of compiled Java and C# programs.
• Fixed: Removed interlanced empty lines in Console form on Unix.

File:

• trunk/Forms/FormMain.pas (modified) (8 diffs)

trunk/Forms/FormMain.pas

@@ -14 +14 @@
 
   TFormMain = class(TFormEx)
+    AFullScreen: TAction;
     AProgramCompileMultiple: TAction;
     AViewLog: TAction;
@@ -55 +56 @@
     MenuItem21: TMenuItem;
     MenuItem22: TMenuItem;
+    MenuItem23: TMenuItem;
     MenuItem24: TMenuItem;
     MenuItem25: TMenuItem;
+    MenuItem26: TMenuItem;
     MenuItem27: TMenuItem;
     MenuItem28: TMenuItem;
@@ -117 +120 @@
     procedure ABreakpointToggleExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
+    procedure AFullScreenExecute(Sender: TObject);
+    procedure AHelpExecute(Sender: TObject);
     procedure AOptionsExecute(Sender: TObject);
     procedure AProgramCompileExecute(Sender: TObject);
@@ -138 +143 @@
     procedure AViewInterpreterExecute(Sender: TObject);
     procedure AViewLogExecute(Sender: TObject);
+    procedure FormActivate(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
@@ -176 +182 @@
 
 uses
-  Core, TargetInterpreter, BFTarget, Common, FormAbout;
+  Core, TargetInterpreter, BFTarget, Common, FormAbout, FormHelp;
 
 resourcestring
@@ -342 +348 @@
     AShowSourcePosition.Enabled := CurrentTarget.Compiled;
     AShowTargetPosition.Enabled := CurrentTarget.Compiled;
+    AFullScreen.Checked := FullScreen;
   end;
   UpdateStatusBar;
@@ -453 +460 @@
 end;
 
+procedure TFormMain.FormActivate(Sender: TObject);
+begin
+  AFullScreen.Checked := FullScreen;
+end;
+
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
@@ -469 +481 @@
 begin
   Close;
+end;
+
+procedure TFormMain.AFullScreenExecute(Sender: TObject);
+begin
+  FullScreen := not FullScreen;
+  AFullScreen.Checked := FullScreen;
+  TFormEx.PersistentForm.Save(Self);
+  TFormEx.PersistentForm.SetFullScreen(FullScreen);
+  UpdateInterface;
+end;
+
+procedure TFormMain.AHelpExecute(Sender: TObject);
+var
+  FormHelp: TFormHelp;
+begin
+  FormHelp := TFormHelp.Create(nil);
+  FormHelp.ShowModal;
+  FormHelp.Free;
 end;