Changeset 75 for trunk/IDE/Forms/FormProject.pas

Timestamp:

Jun 4, 2024, 12:22:49 AM (5 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/IDE/Forms/FormProject.pas (moved) (moved from trunk/IDE/Forms/UFormProject.pas ) (9 diffs)

trunk/IDE/Forms/FormProject.pas

@@ -1 @@
-unit UFormProject;
+unit FormProject;
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  Menus, ActnList, UProject;
+  Classes, SysUtils, LazFileUtils, Forms, Controls, Graphics, Dialogs, ComCtrls,
+  Menus, ActnList, Project;
 
 type
+  TShowProjectEvent = procedure (ProjectFile: TProjectFile) of object;
 
   { TFormProject }
@@ -31 +32 @@
     procedure TreeViewProjectDblClick(Sender: TObject);
   private
-    procedure UpdateProjectFiles(Node: TTreeNode; Files: TProjectFileList);
+    FOnShowProject: TShowProjectEvent;
+    procedure UpdateProjectFiles(Node: TTreeNode; Files: TProjectFiles);
   public
     procedure UpdateProjectTree;
     procedure UpdateInterface;
+    property OnShowProject: TShowProjectEvent read FOnShowProject write FOnShowProject;
   end;
 
 var
   FormProject: TFormProject;
+
 
 implementation
@@ -45 +49 @@
 
 uses
-  UCore, UFormMain, UFormSourceCode, UFormTargetCode, UFormCodeTree;
+  Core, FormMain, FormSourceCode, FormTargetCode, FormCodeTree;
 
 resourcestring
@@ -56 +60 @@
   );
 begin
-  with FormMain, FormSourceCode do
   if Assigned(Node) then begin
     if TProjectFile(Node.Data) is TProjectFile then begin
@@ -107 +110 @@
 begin
   if Assigned(TreeViewProject.Selected) then
-    Core.Project.Files.Remove(TreeViewProject.Selected.Data);
+    Core.Core.Project.Files.Remove(TreeViewProject.Selected.Data);
   UpdateProjectTree;
 end;
@@ -126 +129 @@
 begin
   if Assigned(TreeViewProject.Selected) then begin
-    FormMain.TabSheetSource.Show;
-    FormSourceCode.ProjectFile := TProjectFile(TreeViewProject.Selected.Data);
+    if Assigned(FOnShowProject) then
+      FOnShowProject(TProjectFile(TreeViewProject.Selected.Data));
   end;
 end;
@@ -135 +138 @@
   NewNode: TTreeNode;
 begin
-  with Core, TreeViewProject, Items do
+  with Core.Core, TreeViewProject, Items do
   try
     BeginUpdate;
@@ -147 +150 @@
       (TreeViewProject.TopItem.Count > 0) then
       TreeViewProject.TopItem.Items[0].Selected := True
-      else FormSourceCode.ProjectFile := nil;
+      else begin
+        if Assigned(FOnShowProject) then
+          FOnShowProject(nil);
+      end;
   finally
     EndUpdate;
@@ -158 +164 @@
 end;
 
-procedure TFormProject.UpdateProjectFiles(Node: TTreeNode; Files: TProjectFileList);
+procedure TFormProject.UpdateProjectFiles(Node: TTreeNode; Files: TProjectFiles);
 var
   I: Integer;