Changeset 58 for branches/ByteArray/Forms/FormSourceEditor.lfm

Timestamp:

Nov 23, 2023, 11:18:42 PM (13 months ago)

Author:

chronos

Message:

• Modified: Source editor with main menu can't be docked into another form with main menu. Source enditor and Screen have own main menu.

File:

• branches/ByteArray/Forms/FormSourceEditor.lfm (modified) (5 diffs)

branches/ByteArray/Forms/FormSourceEditor.lfm

@@ -1 +1 @@
 object FormSourceEditor: TFormSourceEditor
-  Left = 818
+  Left = 817
   Height = 681
-  Top = 403
+  Top = 379
   Width = 926
   Caption = 'Source editor'
@@ -9 +9 @@
   DesignTimePPI = 144
   Menu = MainMenu1
+  OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -67 +68 @@
       end
       object MenuItem8: TMenuItem
-        Action = AExit
+        Action = Core.AExit
+      end
+    end
+    object MenuItem20: TMenuItem
+      Caption = 'View'
+      object MenuItem21: TMenuItem
+        Action = Core.AScreen
+      end
+      object MenuItem22: TMenuItem
+        Action = Core.AConsole
+      end
+      object MenuItem24: TMenuItem
+        Action = Core.AStorage
+      end
+      object MenuItem23: TMenuItem
+        Action = Core.AMemory
+      end
+      object Separator3: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem28: TMenuItem
+        Action = Core.AFullscreen
       end
     end
@@ -95 +117 @@
       object MenuItem16: TMenuItem
         Action = ARunToCursor
+      end
+    end
+    object MenuItem25: TMenuItem
+      Caption = 'Tools'
+      object MenuItem27: TMenuItem
+        Action = Core.ASettings
+      end
+      object Separator2: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem26: TMenuItem
+        Action = Core.ADebugger
+      end
+      object MenuItem29: TMenuItem
+        Action = Core.ADisassembler
+      end
+    end
+    object MenuItem18: TMenuItem
+      Caption = 'Help'
+      object MenuItem19: TMenuItem
+        Action = Core.AAbout
       end
     end
@@ -103 +146 @@
     object AExit: TAction
       Caption = 'Exit'
-      OnExecute = AExitExecute
     end
     object ANew: TAction