Changeset 143 for trunk/Forms/UFormSourceCode.lfm

Timestamp:

Mar 8, 2022, 10:55:43 AM (2 years ago)

Author:

chronos

Message:

• Added: Action to generate text as brainfuck code.
• Modified: Used loop in number generation.

File:

• trunk/Forms/UFormSourceCode.lfm (modified) (9 diffs)

trunk/Forms/UFormSourceCode.lfm

@@ -1 +1 @@
 object FormSourceCode: TFormSourceCode
   Left = 459
-  Height = 589
+  Height = 614
   Top = 278
-  Width = 672
+  Width = 700
   Caption = 'Source code'
-  ClientHeight = 589
-  ClientWidth = 672
-  DesignTimePPI = 144
+  ClientHeight = 614
+  ClientWidth = 700
+  DesignTimePPI = 150
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -13 +13 @@
   inline SynEditSource: TSynEdit
     Left = 0
-    Height = 589
+    Height = 614
     Top = 0
-    Width = 672
+    Width = 700
     Align = alClient
-    Font.Height = -16
+    Font.Height = -17
     Font.Name = 'Courier New'
     Font.Pitch = fpFixed
@@ -29 +29 @@
     OnKeyUp = MemoSourceKeyUp
     OnMouseDown = MemoSourceMouseDown
-    Gutter.Width = 80
+    Gutter.Width = 83
     Gutter.MouseActions = <>
     RightGutter.Width = 0
@@ -479 +479 @@
     inline SynLeftGutterPartList1: TSynGutterPartList
       object SynGutterMarks1: TSynGutterMarks
-        Width = 36
+        Width = 38
         MouseActions = <>
       end
@@ -506 +506 @@
       object SynGutterCodeFolding1: TSynGutterCodeFolding
         AutoSize = False
-        Width = 14
+        Width = 15
         MouseActions = <>
         MarkupInfo.Background = clNone
@@ -517 +517 @@
   object PopupMenuSource: TPopupMenu
     Images = Core.ImageListMain
-    Left = 154
-    Top = 154
+    Left = 160
+    Top = 160
     object MenuItem23: TMenuItem
       Action = FormMain.ABreakpointToggle
-    end
-    object MenuItem26: TMenuItem
-      Action = AFormatSource
-    end
-    object MenuItem21: TMenuItem
-      Action = AGenerateNumber
     end
     object MenuItem29: TMenuItem
@@ -567 +561 @@
       }
     end
+    object Separator1: TMenuItem
+      Caption = '-'
+    end
+    object MenuItem26: TMenuItem
+      Action = AFormatSource
+    end
     object MenuItem36: TMenuItem
       Action = AShrinkSource
+    end
+    object MenuItem21: TMenuItem
+      Action = AGenerateNumber
+    end
+    object MenuItem7: TMenuItem
+      Action = AGenerateText
     end
     object MenuItem1: TMenuItem
@@ -591 +597 @@
   object ActionList1: TActionList
     Images = Core.ImageListMain
-    Left = 152
-    Top = 67
+    Left = 158
+    Top = 70
     object AGenerateNumber: TAction
       Caption = 'Generate number'
@@ -641 +647 @@
       ShortCut = 16472
     end
+    object AGenerateText: TAction
+      Caption = 'Generate text'
+      ImageIndex = 29
+      OnExecute = AGenerateTextExecute
+    end
   end
   object SynJavaSyn1: TSynJavaSyn
     DefaultFilter = 'Soubory Java (*.java)|*.java'
     Enabled = False
-    Left = 486
-    Top = 316
+    Left = 506
+    Top = 329
   end
 end