Changeset 61 for trunk/IDE/Forms/UFormProject.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/UFormProject.pas (modified) (5 diffs)

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;