Changeset 61 for trunk/IDE/Forms/UFormMain.pas

Timestamp:

Jul 17, 2012, 9:15:42 AM (12 years ago)

Author:

chronos

Message:

• Added: Form with text output of executed external producer tool.
• Fixed: Template for new unit mustn't initialize new project but only add unit file to project.
• Added: Project manager file deletion and rename.

File:

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

trunk/IDE/Forms/UFormMain.pas

@@ -90 +90 @@
     Splitter2: TSplitter;
     Splitter3: TSplitter;
+    TabSheetExternalProducer: TTabSheet;
     TabSheetProject: TTabSheet;
     TabSheetCodeTree: TTabSheet;
@@ -143 +144 @@
     procedure UpdateMenu;
     procedure UpdateTitle;
+    procedure ProducerProcessOutput(Text: string);
   public
     procedure LoadFromRegistry(Root: HKEY; Key: string);
@@ -162 +164 @@
   UCore, UFormMessages, UFormSourceCode, UFormProject, UCommon, UFormAbout, UFormOptions,
   UFormTargets, UTarget, UExecutor, UFormProjectNew,
-  UFormTargetProject;
+  UFormTargetProject, UFormExternalProducerOutput;
 
 { TFormMain }
@@ -189 +191 @@
       Compiler.Compile;
       TargetProject.Files.LoadFromList(Compiler.TargetFiles.Files);
+      TargetProject.MainSource := TProjectFile(TargetProject.Files.First);
       FormTargetProject.UpdateInterface;
+
+      FormExternalProducerOutput.Memo1.Clear;
+      if Assigned(Compiler.Target.Producer) then
+      with Compiler.Target.Producer do begin
+        FormExternalProducerOutput.Memo1.Lines.Add(CompilerPath + ' ' + Format(CompilerParameters, [TargetProject.MainSource.AbsoluteFileName]));
+        ExternalExecute(CompilerPath + ' ' + Format(CompilerParameters, [TargetProject.MainSource.AbsoluteFileName]));
+      end;
     end;
     FormProject.TreeViewProjectChange(Self, FormProject.TreeViewProject.Selected);
@@ -344 +354 @@
   FormTargetCode.Align := alClient;
   FormTargetCode.Show;
+  FormExternalProducerOutput.ManualDock(TabSheetExternalProducer, nil, alClient);
+  FormExternalProducerOutput.Align := alClient;
+  FormExternalProducerOutput.Show;
   PageControlRight.TabIndex := 0;
   PageControlBottom.TabIndex := 0;
@@ -446 +459 @@
 end;
 
+procedure TFormMain.ProducerProcessOutput(Text: string);
+begin
+  FormExternalProducerOutput.Memo1.Lines.Add(Text);
+end;
+
 procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
@@ -453 +471 @@
 
 procedure TFormMain.FormCreate(Sender: TObject);
-begin
+var
+  I: Integer;
+begin
+  with Core.Compiler.Targets do
+  for I := 0 to Count - 1 do
+  with TTarget(Items[I]) do
+  if Assigned(Producer) then
+    Producer.OnProcessOutput := ProducerProcessOutput;
 end;
 
@@ -517 +542 @@
   if FormProjectNew.ShowModal = mrOk then begin
     if Assigned(FormProjectNew.ListView1.Selected) then begin
-      Core.ProjectNew;
+      if TProjectTemplate(FormProjectNew.ListView1.Selected.Data).IsProject then
+        Core.ProjectNew;
       TProjectTemplate(FormProjectNew.ListView1.Selected.Data).InitProject(Core.Project);
     end;