Changeset 43 for trunk/IDE/Forms/UMainForm.pas

Timestamp:

Feb 29, 2012, 8:23:19 PM (13 years ago)

Author:

chronos

Message:

• Added: Debugging actions to Run menu.

File:

• trunk/IDE/Forms/UMainForm.pas (modified) (6 diffs)

trunk/IDE/Forms/UMainForm.pas

@@ -29 +29 @@
   TMainForm = class(TForm)
     ABuild: TAction;
+    ARunToCursor: TAction;
+    AStepOut: TAction;
+    AStepIn: TAction;
+    AStepOver: TAction;
+    AReset: TAction;
+    APause: TAction;
+    AStop: TAction;
     AViewTargets: TAction;
     AViewCompiledSoruce: TAction;
@@ -68 +75 @@
     MenuItem23: TMenuItem;
     MenuItem24: TMenuItem;
+    MenuItem25: TMenuItem;
+    MenuItem26: TMenuItem;
+    MenuItem27: TMenuItem;
+    MenuItem28: TMenuItem;
+    MenuItem29: TMenuItem;
+    MenuItem30: TMenuItem;
+    MenuItem31: TMenuItem;
+    MenuItem32: TMenuItem;
     MenuItemProducer: TMenuItem;
     MenuItem3: TMenuItem;
@@ -94 +109 @@
     ToolBar1: TToolBar;
     ToolButton1: TToolButton;
+    ToolButton10: TToolButton;
     ToolButton2: TToolButton;
     ToolButton3: TToolButton;
@@ -101 +117 @@
     ToolButton7: TToolButton;
     ToolButton8: TToolButton;
+    ToolButton9: TToolButton;
     procedure AAboutExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
@@ -156 +173 @@
 uses
   UMessagesForm, UCodeForm, UProjectManager, UCommon, UAboutForm, UFormOptions,
-  UFormTargets, UTarget, UAnalyzer, UProducer;
+  UFormTargets, UTarget, UAnalyzer, UProducer, UExecutor;
 
 resourcestring
@@ -302 +319 @@
   CodeForm.UpdateInterface;
   ProjectManager.UpdateInterface;
+  APause.Enabled := Project.Active and Assigned(Compiler.Target) and
+    Assigned(Compiler.Target.Executor) and (Compiler.Target.Executor.State = rsRunning);
+  ARun.Enabled := Project.Active and Assigned(Compiler.Target) and
+    Assigned(Compiler.Target.Executor) and ((Compiler.Target.Executor.State = rsStopped) or
+    (Compiler.Target.Executor.State = rsPaused));
+  AStop.Enabled := Project.Active and Assigned(Compiler.Target) and
+    Assigned(Compiler.Target.Executor) and ((Compiler.Target.Executor.State = rsRunning) or
+    (Compiler.Target.Executor.State = rsPaused));
+  AStepIn.Enabled := Project.Active and Assigned(Compiler.Target) and
+    Assigned(Compiler.Target.Executor) and ((Compiler.Target.Executor.State = rsRunning) or
+    (Compiler.Target.Executor.State = rsPaused));
+  AStepOut.Enabled := AStepIn.Enabled;
+  AStepOver.Enabled := AStepIn.Enabled;
+  ARunToCursor.Enabled := AStepIn.Enabled;
 end;