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

Timestamp:

Oct 25, 2023, 12:33:07 AM (7 months ago)

Author:

chronos

Message:

• Added: Common package.
• Modified: Improved BigInt class.

File:

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

branches/ByteArray/Forms/FormSourceEditor.lfm

@@ -5 +5 @@
   Width = 926
   Caption = 'Source editor'
-  ClientHeight = 681
+  ClientHeight = 647
   ClientWidth = 926
   DesignTimePPI = 144
+  Menu = MainMenu1
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -14 +15 @@
   object PanelCenter: TPanel
     Left = 0
-    Height = 513
+    Height = 479
     Top = 0
     Width = 926
@@ -25 +26 @@
     Left = 0
     Height = 8
-    Top = 513
+    Top = 479
     Width = 926
     Align = alBottom
@@ -33 +34 @@
     Left = 0
     Height = 160
-    Top = 521
+    Top = 487
     Width = 926
     Align = alBottom
@@ -39 +40 @@
     TabOrder = 2
   end
+  object MainMenu1: TMainMenu
+    Left = 472
+    Top = 144
+    object MenuItem1: TMenuItem
+      Caption = 'File'
+      object MenuItem2: TMenuItem
+        Action = ANew
+      end
+      object MenuItem3: TMenuItem
+        Action = AOpen
+      end
+      object MenuItem4: TMenuItem
+        Action = AOpenRecent
+      end
+      object MenuItem5: TMenuItem
+        Action = ASave
+      end
+      object MenuItem6: TMenuItem
+        Action = ASaveAs
+      end
+      object MenuItem7: TMenuItem
+        Action = AClose
+      end
+      object Separator1: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem8: TMenuItem
+        Action = AExit
+      end
+    end
+  end
+  object ActionList1: TActionList
+    Left = 618
+    Top = 147
+    object AExit: TAction
+      Caption = 'Exit'
+      OnExecute = AExitExecute
+    end
+    object ANew: TAction
+      Caption = 'New'
+      OnExecute = ANewExecute
+    end
+    object AOpen: TAction
+      Caption = 'Open'
+      OnExecute = AOpenExecute
+      ShortCut = 16463
+    end
+    object AOpenRecent: TAction
+      Caption = 'Open recent'
+    end
+    object ASave: TAction
+      Caption = 'Save'
+      OnExecute = ASaveExecute
+      ShortCut = 16467
+    end
+    object ASaveAs: TAction
+      Caption = 'Save as...'
+      OnExecute = ASaveAsExecute
+    end
+    object AClose: TAction
+      Caption = 'Close'
+      OnExecute = ACloseExecute
+    end
+  end
 end