Changeset 61 for trunk/IDE/Forms

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.

Location:

trunk/IDE/Forms

Files:

• UFormExternalProducerOutput.lfm (added)
• UFormExternalProducerOutput.lrt (added)
• UFormExternalProducerOutput.pas (added)
• UFormMain.lfm (modified) (2 diffs)
• UFormMain.lrt (modified) (1 diff)
• UFormMain.pas (modified) (8 diffs)
• UFormProject.lfm (modified) (1 diff)
• UFormProject.pas (modified) (5 diffs)
• UFormProjectNew.pas (modified) (1 diff)

trunk/IDE/Forms/UFormMain.lfm

@@ -116 +116 @@
     Top = 26
     Width = 200
-    ActivePage = TabSheetTargetProject
+    ActivePage = TabSheetExternalProducer
     Align = alRight
-    TabIndex = 2
+    TabIndex = 3
     TabOrder = 3
     TabPosition = tpRight
@@ -129 +129 @@
     object TabSheetTargetProject: TTabSheet
       Caption = 'Target project'
+    end
+    object TabSheetExternalProducer: TTabSheet
+      Caption = 'External producer'
     end
   end

trunk/IDE/Forms/UFormMain.lrt

@@ -3 +3 @@
 TFORMMAIN.TABSHEETCODETREE.CAPTION=Code Tree
 TFORMMAIN.TABSHEETTARGETPROJECT.CAPTION=Target project
+TFORMMAIN.TABSHEETEXTERNALPRODUCER.CAPTION=External producer
 TFORMMAIN.TABSHEETMESSAGES.CAPTION=Messages
 TFORMMAIN.TABSHEETBREAKPOINTS.CAPTION=Breakpoints

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;

trunk/IDE/Forms/UFormProject.lfm

@@ -19 +19 @@
     TabOrder = 0
     OnChange = TreeViewProjectChange
+    OnDblClick = TreeViewProjectDblClick
     Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
   end

trunk/IDE/Forms/UFormProject.pas

@@ -29 +29 @@
     procedure AShowExecute(Sender: TObject);
     procedure TreeViewProjectChange(Sender: TObject; Node: TTreeNode);
+    procedure TreeViewProjectDblClick(Sender: TObject);
   private
     procedure UpdateProjectFiles(Node: TTreeNode; Files: TProjectFileList);
@@ -46 +47 @@
   UCore, UFormMain, UFormSourceCode, UFormTargetCode, UFormCodeTree;
 
+resourcestring
+  SRenameSourceFile = 'Rename source file';
+  SEnterNewFileName = 'Enter new file name';
+
 { TFormProject }
 
@@ -54 +59 @@
   if Assigned(Node) then begin
     if TProjectFile(Node.Data) is TProjectFile then begin
-      ProjectFile := TProjectFile(Node.Data);
-      SynEditSource.Lines.Assign(TProjectFile(Node.Data).Source);
+      TreeViewProject.PopupMenu := PopupMenuFile;
+      AShow.Execute;
 (*        if FileExists(TProjectFile(Node.Data).ProducedFileName) then
         CompiledForm.SynEdit1.Lines.LoadFromFile(FileName) else
@@ -78 +83 @@
       //CodeTreeForm.TreeView1.Assign(TProducerTreeView(Compiler.Producer).TreeView);
       *)
-    end;
+    end else
+      TreeViewProject.PopupMenu := nil;
   end;
+end;
+
+procedure TFormProject.TreeViewProjectDblClick(Sender: TObject);
+begin
+  AShow.Execute;
 end;
 
@@ -95 +106 @@
 procedure TFormProject.ADeleteExecute(Sender: TObject);
 begin
-
+  if Assigned(TreeViewProject.Selected) then
+    Core.Project.Files.Remove(TreeViewProject.Selected.Data);
+  UpdateProjectTree;
 end;
 
 procedure TFormProject.ARenameExecute(Sender: TObject);
+var
+  NewName: string;
 begin
-
+  if Assigned(TreeViewProject.Selected) then begin
+    NewName := TProjectFile(TreeViewProject.Selected.Data).FileName;
+    if InputQuery(SRenameSourceFile, SEnterNewFileName, NewName) then
+      TProjectFile(TreeViewProject.Selected.Data).FileName := NewName;
+    UpdateProjectTree;
+  end;
 end;
 
 procedure TFormProject.AShowExecute(Sender: TObject);
 begin
-
+  if Assigned(TreeViewProject.Selected) then
+  FormSourceCode.SynEditSource.Lines.Assign(TProjectFile(TreeViewProject.Selected.Data).Source);
 end;
 

trunk/IDE/Forms/UFormProjectNew.pas

@@ -74 +74 @@
     with Core do
     for I := 0 to ProjectTemplates.Count - 1 do
-    with TProjectTemplate(ProjectTemplates[I]) do begin
+    with TProjectTemplate(ProjectTemplates[I]) do
+    if (not Assigned(Core.Project) and IsProject) or Assigned(Core.Project) then begin
       NewItem := ListView1.Items.Add;
       NewItem.Caption := Name;