Changeset 25 for trunk/Forms/UMainForm.lfm

Timestamp:

Feb 13, 2012, 9:47:18 AM (12 years ago)

Author:

chronos

Message:

• Added: List of supported compiler targets.
• Added: Action to compile and run project.

File:

• trunk/Forms/UMainForm.lfm (modified) (12 diffs)

trunk/Forms/UMainForm.lfm

@@ -82 +82 @@
       Top = 2
       Width = 10
-      Caption = 'ToolButton5'
       Style = tbsSeparator
     end
@@ -412 +411 @@
           0000000000000000000000000000000000000000000000000000
         }
+      end
+      object MenuItem31: TMenuItem
+        Action = ACompileAndRun
       end
       object MenuItemTarget: TMenuItem
@@ -590 +592 @@
         }
       end
+      object MenuItem30: TMenuItem
+        Action = AViewCompilers
+      end
       object MenuItem19: TMenuItem
         Action = AViewInterpretter
@@ -648 +653 @@
     top = 96
     object AProjectOpen: TAction
+      Category = 'Project'
       Caption = 'Open'
       ImageIndex = 7
@@ -654 +660 @@
     end
     object AProjectSave: TAction
+      Category = 'Project'
       Caption = 'Save'
       ImageIndex = 0
@@ -660 +667 @@
     end
     object AProjectClose: TAction
+      Category = 'Project'
       Caption = 'Close'
       ImageIndex = 4
@@ -666 +674 @@
     end
     object AProjectSaveAs: TAction
+      Category = 'Project'
       Caption = 'Save as...'
       ImageIndex = 0
@@ -672 +681 @@
     end
     object AProjectNew: TAction
+      Category = 'Project'
       Caption = 'New'
       ImageIndex = 9
@@ -688 +698 @@
       OnExecute = ACompileExecute
     end
+    object ACompileAndRun: TAction
+      Caption = 'Compile and run'
+      OnExecute = ACompileAndRunExecute
+    end
     object AProgramRun: TAction
       Caption = 'Run'
@@ -711 +725 @@
     end
     object AViewInterpretter: TAction
+      Category = 'View'
       Caption = 'Interpretter'
       OnExecute = AViewInterpretterExecute
     end
     object AViewCompiled: TAction
+      Category = 'View'
       Caption = 'Compiled'
       OnExecute = AViewCompiledExecute
@@ -736 +752 @@
     end
     object AOptions: TAction
+      Category = 'View'
       Caption = 'Options'
       ImageIndex = 2
@@ -741 +758 @@
     end
     object AFormatSource: TAction
+      Category = 'Tool'
       Caption = 'Format source'
       OnExecute = AFormatSourceExecute
     end
     object AShrinkSource: TAction
+      Category = 'Tool'
       Caption = 'Shrink source'
       OnExecute = AShrinkSourceExecute
     end
     object AGenerateNumber: TAction
+      Category = 'Tool'
       Caption = 'Generate code for number'
       ImageIndex = 13
       OnExecute = AGenerateNumberExecute
+    end
+    object AViewCompilers: TAction
+      Category = 'View'
+      Caption = 'Compilers'
+      OnExecute = AViewCompilersExecute
     end
   end