Changeset 34 for trunk/Forms/UMainForm.pas

Timestamp:

Feb 18, 2012, 11:17:14 PM (12 years ago)

Author:

chronos

Message:

• Removed: Action Compile and run. Now Compile is executed before Run action if not compiled yet.

File:

• trunk/Forms/UMainForm.pas (modified) (5 diffs)

trunk/Forms/UMainForm.pas

@@ -23 +23 @@
     AAbout: TAction;
     ABreakpointToggle: TAction;
-    ACompileAndRun: TAction;
     AViewCompilers: TAction;
     AGenerateNumber: TAction;
@@ -73 +72 @@
     MenuItem29: TMenuItem;
     MenuItem30: TMenuItem;
-    MenuItem31: TMenuItem;
     MenuItem32: TMenuItem;
     MenuItem33: TMenuItem;
@@ -113 +111 @@
     ToolButton9: TToolButton;
     procedure ABreakpointToggleExecute(Sender: TObject);
-    procedure ACompileAndRunExecute(Sender: TObject);
     procedure AProgramCompileExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
@@ -376 +373 @@
     TTargetInterpretter(CurrentTarget).Input := InterpreterForm.MemoInput.Lines.Text;
   CurrentTarget.SourceCode := MemoSource.Text;
+  if not CurrentTarget.Compiled then CurrentTarget.Compile;
   CurrentTarget.Run;
 end;
@@ -502 +500 @@
 end;
 
-procedure TMainForm.ACompileAndRunExecute(Sender: TObject);
-begin
-  with CurrentTarget do begin
-    Optimization := coNormal;
-    SourceCode := MemoSource.Text;
-    ProgramName := ExtractFileNameOnly(ProjectFileName);
-    ProjectFileName := Self.ProjectFileName;
-    Compile;
-    CompileToFile;
-    if CompiledExtension <> '' then Run;
-  end;
-end;
-
 procedure TMainForm.AProgramPauseExecute(Sender: TObject);
 begin