Changeset 157 for trunk/Forms/FormMain.pas

Timestamp:

Aug 19, 2024, 10:58:23 AM (5 weeks ago)

Author:

chronos

Message:

• Added: Allow to hide main toolbar.
• Fixed: Update cursor position in status bar.
• Fixed: Memory leak in target code form.

File:

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

trunk/Forms/FormMain.pas

@@ -71 +71 @@
     MenuItem34: TMenuItem;
     MenuItem35: TMenuItem;
+    MenuItemViewToolbar: TMenuItem;
     MenuItemOpenRecent: TMenuItem;
     MenuItemTarget: TMenuItem;
@@ -153 +154 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure MenuItemViewToolbarClick(Sender: TObject);
     procedure TimerRefreshTimer(Sender: TObject);
   private
@@ -172 +174 @@
     procedure LastOpenedListChange(Sender: TObject);
     procedure CurrentTargetChangeExecute(Sender: TObject);
+    procedure UpdateStatusBarExecute(Sender: TObject);
+    procedure UpdateInterfaceExecute(Sender: TObject);
   public
     procedure MessagesChanged(Sender: TObject);
@@ -213 +217 @@
   try
     if Core.Core.LastOpenedList.Items.Count = 0 then
-      Core.Core.LastOpenedList.Items.Add(CombinePaths(Core.Core.DataDir, ExamplesDir + DirectorySeparator + 'Sierpinski.b'));
+      Core.Core.LastOpenedList.Items.Add(CombinePaths(Core.Core.DataDir, ExamplesDir +
+      DirectorySeparator + 'Sierpinski.b'));
 
     if Core.Core.OpenProjectOnStart and (Core.Core.LastOpenedList.Items.Count > 0) and
@@ -230 +235 @@
 end;
 
+procedure TFormMain.MenuItemViewToolbarClick(Sender: TObject);
+begin
+  Core.Core.ShowToolbar := MenuItemViewToolbar.Checked;
+  UpdateInterface;
+end;
+
 procedure TFormMain.TimerRefreshTimer(Sender: TObject);
 begin
@@ -321 +332 @@
 begin
   UpdateTargetList;
+  UpdateInterface;
+end;
+
+procedure TFormMain.UpdateStatusBarExecute(Sender: TObject);
+begin
+  UpdateStatusBar;
+end;
+
+procedure TFormMain.UpdateInterfaceExecute(Sender: TObject);
+begin
   UpdateInterface;
 end;
@@ -357 +378 @@
     AShowTargetPosition.Enabled := CurrentTarget.Compiled;
     AFullScreen.Checked := FullScreen;
+    MenuItemViewToolbar.Checked := Core.Core.ShowToolbar;
+    ToolBarMain.Visible := Core.Core.ShowToolbar;
   end;
   UpdateStatusBar;
@@ -387 +410 @@
 begin
   FormSourceCode := TFormSourceCode.Create(nil);
+  FormSourceCode.OnUpdateStatusBar := UpdateStatusBarExecute;
+  FormSourceCode.OnUpdateInterface := UpdateInterfaceExecute;
   FormCPU := TFormCPU.Create(nil);
   FormInput := TFormInput.Create(nil);