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

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/IDE/Forms/FormSourceCode.pas (moved) (moved from trunk/IDE/Forms/UFormSourceCode.pas ) (5 diffs)

trunk/IDE/Forms/FormSourceCode.pas

@@ -1 @@
-unit UFormSourceCode;
-
-{$mode objfpc}{$H+}
+unit FormSourceCode;
 
 interface
@@ -7 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
-  SynEdit, SynHighlighterPas, UProject;
+  SynEdit, SynHighlighterPas, Project;
 
 type
@@ -24 +22 @@
     procedure Save;
     procedure UpdateInterface;
+    procedure SelectFile(FileName: string; Position: TPoint);
   end; 
 
-var
-  FormSourceCode: TFormSourceCode;
 
 implementation
 
 uses
-  UFormMain, UCore;
+  FormMain, Core;
 
 {$R *.lfm}
@@ -41 +38 @@
 begin
   Save;
-  if Assigned(Core.Project) and Assigned(ProjectFile) then
+  if Assigned(Core.Core.Project) and Assigned(ProjectFile) then
     ProjectFile.Modified := True;
 end;
@@ -62 +59 @@
 procedure TFormSourceCode.UpdateInterface;
 begin
-  SynEditSource.Enabled := Assigned(Core.Project);
-  if not Assigned(Core.Project) then SynEditSource.ClearAll;
+  SynEditSource.Enabled := Assigned(Core.Core.Project);
+  if not Assigned(Core.Core.Project) then SynEditSource.ClearAll;
+end;
+
+procedure TFormSourceCode.SelectFile(FileName: string; Position: TPoint);
+var
+  ProjectFile: TProjectFile;
+begin
+  with Core.Core do begin
+    ProjectFile := Project.Files.SearchFile(FileName);
+    if Assigned(ProjectFile) then
+      SynEditSource.Lines.Assign(ProjectFile.Source)
+      else if FileExists(FileName) then
+        SynEditSource.Lines.LoadFromFile(FileName);
+    SynEditSource.CaretXY := Position;
+    TForm(SynEditSource.Owner).Show;
+    SynEditSource.SetFocus;
+  end;
 end;