Changeset 133 for trunk/Forms/UFormMain.pas

Timestamp:

Mar 4, 2022, 10:57:08 PM (2 years ago)

Author:

chronos

Message:

• Added: Compile multiple action for compilation of code with mutliple compilers at once.

File:

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

trunk/Forms/UFormMain.pas

@@ -15 +15 @@
 
   TFormMain = class(TForm)
+    AProgramCompileMultiple: TAction;
     AViewLog: TAction;
     AProgramShowExecutionPoint: TAction;
@@ -52 +53 @@
     MenuItem19: TMenuItem;
     MenuItem2: TMenuItem;
+    MenuItem20: TMenuItem;
     MenuItem22: TMenuItem;
     MenuItem24: TMenuItem;
@@ -117 +119 @@
     procedure AOptionsExecute(Sender: TObject);
     procedure AProgramCompileExecute(Sender: TObject);
+    procedure AProgramCompileMultipleExecute(Sender: TObject);
     procedure AProgramPauseExecute(Sender: TObject);
     procedure AProgramRunToCursorExecute(Sender: TObject);
@@ -171 +174 @@
   UCore, UFormCPU, UFormOptions, UFormMessages, UFormTargets, UFormOutput, UFormInput,
   UFormMemory, UFormSourceCode, UFormTargetCode, UTargetInterpretter, UFormLog,
-  UBFTarget, UCommon;
+  UBFTarget, UCommon, UFormCompileMultiple;
 
 resourcestring
@@ -206 +209 @@
     FormSourceCode.UpdateTheme;
   end;
+  Core.Messages.OnChange := FormMain.MessagesChanged;
 end;
 
@@ -227 +231 @@
     AProgramShowExecutionPoint.Execute;
   if Core.CurrentTarget.State = rsStopped then
-    Core.CurrentTarget.Messages.AddMessage(SProgramStopped);
+    Core.Messages.AddMessage(SProgramStopped);
 end;
 
@@ -405 +409 @@
   if not Core.CurrentTarget.Compiled then AProgramCompile.Execute;
   Core.CurrentTarget.Run;
-  Core.CurrentTarget.Messages.AddMessage(SProgramStarted);
+  Core.Messages.AddMessage(SProgramStarted);
 end;
 
@@ -432 +436 @@
 procedure TFormMain.AViewCompilersExecute(Sender: TObject);
 begin
-  if not Assigned(FormTargets) then FormTargets := TFormTargets.Create(Self);
-  FormTargets.Show;
+  with TFormTargets.Create(nil) do
+  try
+    ShowModal;
+  finally
+    Free;
+  end;
 end;
 
@@ -493 +501 @@
   with Core.CurrentTarget do
   try
+    Core.Messages.Clear;
     AProgramStop.Execute;
     SourceCode := FormSourceCode.SynEditSource.Text;
@@ -499 +508 @@
     if Core.CurrentTarget is TBFTarget then
       TBFTarget(Core.CurrentTarget).Optimizations := Core.Optimizations;
-    Core.CurrentTarget.Messages.AddMessage(SCompileStart);
+    DebugEnabled := Core.DebugEnabled;
+    Core.Messages.AddMessage(SCompileStart);
     Application.ProcessMessages;
     Compile;
-    Core.CurrentTarget.Messages.AppendMessage(SDone);
+    Core.Messages.AppendMessage(SDone);
     FormTargetCode.SynEditTarget.Text := TargetCode;
     FormTargetCode.SetHighlighter(Core.CurrentTarget.SourceExtension);
@@ -509 +519 @@
     on E: Exception do
       MessageDlg(SError, E.Message, mtError, [mbOk], 0);
+  end;
+end;
+
+procedure TFormMain.AProgramCompileMultipleExecute(Sender: TObject);
+var
+  I: Integer;
+begin
+  AProgramStop.Execute;
+  with TFormCompileMultiple.Create(nil) do
+  try
+    Targets := Core.Targets;
+    if ShowModal = mrOk then begin
+      Core.Messages.Clear;
+      for I := 0 to Targets.Count - 1 do
+      with Targets[I] do
+      if Selected then
+      try
+        AProgramStop.Execute;
+        SourceCode := FormSourceCode.SynEditSource.Text;
+        ProjectFileName := Core.Project.FileName;
+        ProgramName := ExtractFileNameOnly(Core.Project.FileName);
+        if Targets[I] is TBFTarget then
+          TBFTarget(Targets[I]).Optimizations := Core.Optimizations;
+        DebugEnabled := Core.DebugEnabled;
+        Core.Messages.AddMessage(Name + ' ' + SCompileStart);
+        Application.ProcessMessages;
+        Compile;
+        Core.Messages.AppendMessage(SDone);
+        FormTargetCode.SynEditTarget.Text := TargetCode;
+        FormTargetCode.SetHighlighter(Core.CurrentTarget.SourceExtension);
+        UpdateInterface;
+      except
+        on E: Exception do
+          MessageDlg(SError, E.Message, mtError, [mbOk], 0);
+      end;
+    end;
+  finally
+    Free;
   end;
 end;