Changeset 50 for trunk/IDE/Forms/UFormMain.pas

Timestamp:

Apr 5, 2012, 2:03:52 PM (13 years ago)

Author:

chronos

Message:

• Modified: Interpretter execution partial implementation.

File:

• trunk/IDE/Forms/UFormMain.pas (modified) (5 diffs)

trunk/IDE/Forms/UFormMain.pas

@@ -57 +57 @@
     DebugLog1: TDebugLog;
     ImageList1: TImageList;
-    MainMenu1: TMainMenu;
+    MainMenu: TMainMenu;
     MenuItem1: TMenuItem;
     MenuItem10: TMenuItem;
@@ -122 +122 @@
     procedure AExitExecute(Sender: TObject);
     procedure AHomepageExecute(Sender: TObject);
+    procedure APauseExecute(Sender: TObject);
     procedure AProjectCloseExecute(Sender: TObject);
     procedure AProjectNewExecute(Sender: TObject);
@@ -128 +129 @@
     procedure AProjectSaveExecute(Sender: TObject);
     procedure ABuildExecute(Sender: TObject);
+    procedure AResetExecute(Sender: TObject);
+    procedure ARunExecute(Sender: TObject);
+    procedure ARunToCursorExecute(Sender: TObject);
+    procedure AStepInExecute(Sender: TObject);
+    procedure AStepOutExecute(Sender: TObject);
+    procedure AStepOverExecute(Sender: TObject);
+    procedure AStopExecute(Sender: TObject);
     procedure AViewCodeTreeExecute(Sender: TObject);
     procedure AViewCompiledSoruceExecute(Sender: TObject);
@@ -254 +262 @@
 end;
 
+procedure TFormMain.AResetExecute(Sender: TObject);
+begin
+  Compiler.Target.Executor.Reset;
+end;
+
+procedure TFormMain.ARunExecute(Sender: TObject);
+begin
+  ABuildExecute(Self);
+  Compiler.Target.Executor.Run;
+end;
+
+procedure TFormMain.ARunToCursorExecute(Sender: TObject);
+begin
+  Compiler.Target.Executor.RunToCursor(0); // determine position
+end;
+
+procedure TFormMain.AStepInExecute(Sender: TObject);
+begin
+  Compiler.Target.Executor.StepIn;
+end;
+
+procedure TFormMain.AStepOutExecute(Sender: TObject);
+begin
+  Compiler.Target.Executor.StepOut;
+end;
+
+procedure TFormMain.AStepOverExecute(Sender: TObject);
+begin
+  Compiler.Target.Executor.StepOver;
+end;
+
+procedure TFormMain.AStopExecute(Sender: TObject);
+begin
+  Compiler.Target.Executor.Stop;
+end;
+
 procedure TFormMain.AViewCodeTreeExecute(Sender: TObject);
 begin
@@ -591 +635 @@
 end;
 
+procedure TFormMain.APauseExecute(Sender: TObject);
+begin
+  Compiler.Target.Executor.Pause;
+end;
+
 procedure TFormMain.AProjectNewExecute(Sender: TObject);
 var