Changeset 6 for trunk/UMainForm.pas

Timestamp:

Feb 9, 2012, 3:22:38 PM (13 years ago)

Author:

chronos

Message:

• Modified: Interpretter now wait for key press if Read instruction is executed and no input character is available.
• Added: Actions to control program executions.

File:

• trunk/UMainForm.pas (modified) (10 diffs)

trunk/UMainForm.pas

@@ -16 +16 @@
     ACompile: TAction;
     AAbout: TAction;
+    AProgramPause: TAction;
+    AProgramStop: TAction;
     AHelp: TAction;
-    ARun: TAction;
+    AProgramRun: TAction;
     AProjectNew: TAction;
     AExit: TAction;
@@ -34 +36 @@
     MenuItem13: TMenuItem;
     MenuItem14: TMenuItem;
+    MenuItem15: TMenuItem;
+    MenuItem16: TMenuItem;
+    MenuItem17: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -55 +60 @@
     ToolButton7: TToolButton;
     procedure AExitExecute(Sender: TObject);
+    procedure AProgramPauseExecute(Sender: TObject);
+    procedure AProgramStopExecute(Sender: TObject);
     procedure AProjectCloseExecute(Sender: TObject);
     procedure AProjectNewExecute(Sender: TObject);
@@ -60 +67 @@
     procedure AProjectSaveAsExecute(Sender: TObject);
     procedure AProjectSaveExecute(Sender: TObject);
-    procedure ARunExecute(Sender: TObject);
+    procedure AProgramRunExecute(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormCreate(Sender: TObject);
@@ -67 +74 @@
     procedure MemoSourceChange(Sender: TObject);
   private
-    { private declarations }
+    procedure BrainFuckInterpreterChangeState(Sender: TObject);
   public
     Modified: Boolean;
@@ -95 +102 @@
 begin
   Modified := True;
+  UpdateInterface;
+end;
+
+procedure TMainForm.BrainFuckInterpreterChangeState(Sender: TObject);
+begin
   UpdateInterface;
 end;
@@ -109 +121 @@
   MemoSource.Enabled := ProjectFileName <> '';
   AProjectClose.Enabled := ProjectFileName <> '';
-  ARun.Enabled := ProjectFileName <> '';
+  AProgramRun.Enabled := (ProjectFileName <> '') and (BrainFuckInterpreter.State = rsStopped);
+  AProgramPause.Enabled := (ProjectFileName <> '') and (BrainFuckInterpreter.State = rsRunning);
+  AProgramStop.Enabled := (ProjectFileName <> '') and (BrainFuckInterpreter.State <> rsStopped);
   ACompile.Enabled := ProjectFileName <> '';
 end;
@@ -116 +130 @@
 begin
   BrainFuckInterpreter := TBrainFuckInterpreter.Create;
+  BrainFuckInterpreter.OnChangeState := BrainFuckInterpreterChangeState;
 end;
 
@@ -123 +138 @@
 end;
 
-procedure TMainForm.ARunExecute(Sender: TObject);
+procedure TMainForm.AProgramRunExecute(Sender: TObject);
 begin
   InterpreterForm.Show;
@@ -138 +153 @@
 begin
   Close;
+end;
+
+procedure TMainForm.AProgramPauseExecute(Sender: TObject);
+begin
+  MainForm.BrainFuckInterpreter.Pause
+end;
+
+procedure TMainForm.AProgramStopExecute(Sender: TObject);
+begin
+  MainForm.BrainFuckInterpreter.Stop;
 end;