Changeset 131 for branches/generator/Forms/UFormMain.lfm

Timestamp:

Dec 24, 2017, 3:54:08 PM (7 years ago)

Author:

chronos

Message:

• Added: Open recent files menu action.
• Added: Generate BNF and EBNF output separately.
• Added: Allow to hide main toolbar.

File:

• branches/generator/Forms/UFormMain.lfm (modified) (9 diffs)

branches/generator/Forms/UFormMain.lfm

@@ -29 +29 @@
       Height = 28
       Top = 5
-      Width = 125
+      Width = 171
       Align = alNone
       AutoSize = True
@@ -42 +42 @@
       Transparent = True
       object ToolButton2: TToolButton
-        Left = 96
+        Left = 142
         Top = 0
         Action = ABuildCompiler
@@ -55 +55 @@
         Top = 0
         Action = AProjectOpen
+        DropdownMenu = PopupMenuOpenRecent
+        Style = tbsButtonDrop
       end
       object ToolButton5: TToolButton
-        Left = 59
+        Left = 76
         Top = 0
         Action = AProjectSave
       end
       object ToolButton6: TToolButton
-        Left = 88
+        Left = 134
         Height = 28
         Top = 0
         Style = tbsSeparator
+      end
+      object ToolButton1: TToolButton
+        Left = 105
+        Top = 0
+        Action = AGrammerSettings
       end
     end
@@ -124 +131 @@
         Action = AProjectOpen
       end
+      object MenuItemRecent: TMenuItem
+        Caption = 'Open recent'
+      end
       object MenuItem10: TMenuItem
         Action = AProjectSave
@@ -151 +161 @@
     object MenuItem1: TMenuItem
       Caption = 'View'
+      object MenuItemToolbar: TMenuItem
+        Action = AToolbarVisible
+        AutoCheck = True
+      end
     end
   end
@@ -175 +189 @@
       OnExecute = AProjectOpenExecute
     end
+    object AProjectOpenRecent: TAction
+      Caption = 'Open recent'
+      OnExecute = AProjectOpenRecentExecute
+    end
     object AProjectSaveAs: TAction
       Caption = 'Save as...'
@@ -181 +199 @@
       OnExecute = AProjectSaveAsExecute
     end
+    object AProjectSave: TAction
+      Caption = 'Save'
+      ImageIndex = 5
+      OnExecute = AProjectSaveExecute
+    end
+    object AProjectNew: TAction
+      Caption = 'New'
+      ImageIndex = 10
+      OnExecute = AProjectNewExecute
+    end
+    object AProjectClose: TAction
+      Caption = 'Close'
+      OnExecute = AProjectCloseExecute
+    end
+    object AGrammerSettings: TAction
+      Caption = 'Settings'
+      ImageIndex = 3
+      OnExecute = AGrammerSettingsExecute
+    end
     object ABuildCompiler: TAction
       Caption = 'Build compiler'
@@ -186 +223 @@
       OnExecute = ABuildCompilerExecute
     end
-    object AProjectSave: TAction
-      Caption = 'Save'
-      ImageIndex = 5
-      OnExecute = AProjectSaveExecute
-    end
-    object AProjectNew: TAction
-      Caption = 'New'
-      ImageIndex = 10
-      OnExecute = AProjectNewExecute
-    end
-    object AGrammerSettings: TAction
-      Caption = 'Settings'
-      OnExecute = AGrammerSettingsExecute
-    end
-    object AProjectClose: TAction
-      Caption = 'Close'
-      OnExecute = AProjectCloseExecute
+    object AToolbarVisible: TAction
+      AutoCheck = True
+      Caption = 'Toolbar'
+      OnExecute = AToolbarVisibleExecute
     end
   end
@@ -217 +241 @@
     top = 414
   end
+  object LastOpenedList1: TLastOpenedList
+    MaxCount = 10
+    OnChange = LastOpenedList1Change
+    left = 155
+    top = 131
+  end
+  object PopupMenuOpenRecent: TPopupMenu
+    left = 149
+    top = 234
+  end
 end