Changeset 75 for trunk/IDE/Forms/FormTargetProject.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/FormTargetProject.pas (moved) (moved from trunk/IDE/Forms/UFormTargetProject.pas ) (6 diffs)

trunk/IDE/Forms/FormTargetProject.pas

@@ -1 @@
-unit UFormTargetProject;
-
-{$mode delphi}
+unit FormTargetProject;
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  UProject;
+  Classes, SysUtils, LazFileUtils, Forms, Controls, Graphics, Dialogs, ComCtrls,
+  Project;
 
 type
+  TShowTargetCodeEvent = procedure(ProjectFile: TProjectFile) of object;
 
   { TFormTargetProject }
@@ -17 +16 @@
     procedure TreeViewProjectChange(Sender: TObject; Node: TTreeNode);
   private
-    procedure UpdateProjectFiles(Node: TTreeNode; Files: TProjectFileList);
+    FOnShowTargetCode: TShowTargetCodeEvent;
+    procedure UpdateProjectFiles(Node: TTreeNode; Files: TProjectFiles);
     procedure UpdateProjectTree;
   public
     procedure UpdateInterface;
+    property OnShowTargetCode: TShowTargetCodeEvent read FOnShowTargetCode
+      write FOnShowTargetCode;
   end;
-
-var
-  FormTargetProject: TFormTargetProject;
 
 
@@ -32 +31 @@
 
 uses
-  UCore, UFormMain, UFormTargetCode;
+  Core, FormMain, FormTargetCode;
 
 procedure TFormTargetProject.UpdateProjectTree;
@@ -38 +37 @@
   NewNode: TTreeNode;
 begin
-  with Core, FormMain, TreeViewProject, Items do begin
+  with Core.Core, FormMain.FormMain, TreeViewProject, Items do begin
     BeginUpdate;
     Clear;
@@ -50 +49 @@
       (TreeViewProject.TopItem.Count > 0) then
       TreeViewProject.TopItem.Items[0].Selected := True
-      else FormTargetCode.ProjectFile := nil;
+      else begin
+        if Assigned(FOnShowTargetCode) then
+          FOnShowTargetCode(nil);
+      end;
   end;
 end;
@@ -62 +64 @@
   Node: TTreeNode);
 begin
-  with FormMain, FormTargetCode do
+  with FormMain.FormMain do
   if Assigned(Node) then begin
     if TProjectFile(Node.Data) is TProjectFile then begin
-      ProjectFile := TProjectFile(Node.Data);
-      FormMain.TabSheetTarget.Show;
-      SynEdit1.Lines.Assign(TProjectFile(Node.Data).Source);
+      if Assigned(FOnShowTargetCode) then
+        FOnShowTargetCode(TProjectFile(Node.Data))
     end;
   end;
 end;
 
-procedure TFormTargetProject.UpdateProjectFiles(Node: TTreeNode; Files: TProjectFileList);
+procedure TFormTargetProject.UpdateProjectFiles(Node: TTreeNode; Files: TProjectFiles);
 var
   I: Integer;