Changeset 60 for trunk/Forms/UFormMain.pas

Timestamp:

Dec 3, 2014, 10:45:24 PM (10 years ago)

Author:

chronos

Message:

• Added: Free Pascal Compiler as supported target.
• Added: Log window to examine output from background execute compilers.
• Fixed: Execution of targets except Java target.

File:

• trunk/Forms/UFormMain.pas (modified) (8 diffs)

trunk/Forms/UFormMain.pas

@@ -16 +16 @@
 
   TMainForm = class(TForm)
+    AViewLog: TAction;
     AProgramShowExecutionPoint: TAction;
     AShowSourcePosition: TAction;
@@ -51 +52 @@
     MenuItem17: TMenuItem;
     MenuItem18: TMenuItem;
+    MenuItem19: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem22: TMenuItem;
@@ -133 +135 @@
     procedure AViewCompilersExecute(Sender: TObject);
     procedure AViewInterpretterExecute(Sender: TObject);
+    procedure AViewLogExecute(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormCreate(Sender: TObject);
@@ -140 +143 @@
   private
     FCurrentTarget: TTarget;
+    procedure TargetLogExecute(Lines: TStrings);
     procedure SetCurrentTarget(AValue: TTarget);
     procedure AProjectOpenRecentExecute(Sender: TObject);
@@ -169 +173 @@
 uses
   UCore, UFormCPU, UFormOptions, UFormMessages, UFormTargets, UFormOutput, UFormInput,
-  UFormMemory, UFormSourceCode, UFormTargetCode, UTargetInterpretter;
+  UFormMemory, UFormSourceCode, UFormTargetCode, UTargetInterpretter, UFormLog;
 
 resourcestring
@@ -189 +193 @@
   for I := 0 to Core.Targets.Count - 1 do
     TTarget(Core.Targets[I]).OnChangeState := nil;
-  FCurrentTarget.OnChangeState := TargetStateChanged;
-  FCurrentTarget.Messages.OnChange := MessagesChanged;
+  if Assigned(FCurrentTarget) then begin
+    FCurrentTarget.OnChangeState := TargetStateChanged;
+    FCurrentTarget.OnLog := TargetLogExecute;
+    FCurrentTarget.Messages.OnChange := MessagesChanged;
+  end;
   UpdateTargetList;
   UpdateInterface;
@@ -218 +225 @@
   FormOutput.Reload;
   FormMemory.Reload;
+end;
+
+procedure TMainForm.TargetLogExecute(Lines: TStrings);
+begin
+  FormLog.Memo1.Lines.AddStrings(Lines);
 end;
 
@@ -438 +450 @@
 end;
 
+procedure TMainForm.AViewLogExecute(Sender: TObject);
+begin
+  FormLog.Show;
+end;
+
 procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
 begin