Changeset 58 for branches/ByteArray/Forms/FormScreen.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/FormScreen.lfm (modified) (2 diffs)

branches/ByteArray/Forms/FormScreen.lfm

@@ -1 +1 @@
 object FormScreen: TFormScreen
-  Left = 815
+  Left = 814
   Height = 676
-  Top = 406
+  Top = 382
   Width = 931
   Caption = 'Screen'
-  ClientHeight = 676
+  ClientHeight = 642
   ClientWidth = 931
   DesignTimePPI = 144
+  Menu = MainMenu1
+  OnClose = FormClose
   OnShow = FormShow
   LCLVersion = '2.2.6.0'
   object Image1: TImage
     Left = 0
-    Height = 676
+    Height = 642
     Top = 0
     Width = 931
@@ -26 +28 @@
     Top = 144
   end
+  object MainMenu1: TMainMenu
+    Left = 371
+    Top = 119
+    object MenuItem4: TMenuItem
+      Caption = 'File'
+      object MenuItem6: TMenuItem
+        Action = Core.AExit
+      end
+    end
+    object MenuItem1: TMenuItem
+      Caption = 'View'
+      object MenuItemViewConsole: TMenuItem
+        Action = Core.AConsole
+      end
+      object MenuItemViewStorage: TMenuItem
+        Action = Core.AStorage
+      end
+      object MenuItem7: TMenuItem
+        Action = Core.AMemory
+      end
+      object Separator1: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem9: TMenuItem
+        Action = Core.AFullscreen
+      end
+    end
+    object MenuItem2: TMenuItem
+      Caption = 'Tools'
+      object MenuItem10: TMenuItem
+        Action = Core.ASettings
+      end
+      object Separator2: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem3: TMenuItem
+        Action = Core.ASourceEditor
+      end
+      object MenuItem5: TMenuItem
+        Action = Core.ADebugger
+      end
+      object MenuItem8: TMenuItem
+        Action = Core.ADisassembler
+      end
+    end
+    object MenuItem11: TMenuItem
+      Caption = 'Help'
+      object MenuItem12: TMenuItem
+        Action = Core.AAbout
+      end
+    end
+  end
 end