Changeset 60 for trunk/Forms

Timestamp:

Dec 3, 2014, 10:45:24 PM (9 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.

Location:

trunk/Forms

Files:

• UFormLog.lfm (added)
• UFormLog.lrt (added)
• UFormLog.pas (added)
• UFormMain.lfm (modified) (2 diffs)
• UFormMain.lrt (modified) (1 diff)
• UFormMain.pas (modified) (8 diffs)

trunk/Forms/UFormMain.lfm

@@ -889 +889 @@
         }
       end
+      object MenuItem19: TMenuItem
+        Action = AViewLog
+      end
       object MenuItem30: TMenuItem
         Action = AViewCompilers
@@ -1076 +1079 @@
       Caption = 'Show execution point'
       OnExecute = AProgramShowExecutionPointExecute
+    end
+    object AViewLog: TAction
+      Category = 'View'
+      Caption = 'Log'
+      OnExecute = AViewLogExecute
     end
   end

trunk/Forms/UFormMain.lrt

@@ -37 +37 @@
 TMAINFORM.ASHOWSOURCEPOSITION.CAPTION=Show position in source
 TMAINFORM.APROGRAMSHOWEXECUTIONPOINT.CAPTION=Show execution point
+TMAINFORM.AVIEWLOG.CAPTION=Log

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