Changeset 75 for trunk/IDE/Forms/FormMessages.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/FormMessages.pas (moved) (moved from trunk/IDE/Forms/UFormMessages.pas ) (8 diffs)

trunk/IDE/Forms/FormMessages.pas

@@ -1 @@
-unit UFormMessages;
-
-{$mode objfpc}{$H+}
+unit FormMessages;
 
 interface
@@ -7 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, UProject, UCompiler;
+  ComCtrls, Project, Compiler;
 
 type
+  TSelectFileEvent = procedure(FileName: string; Position: TPoint);
 
   { TFormMessages }
@@ -15 +14 @@
   TFormMessages = class(TForm)
     ListView1: TListView;
-    procedure ListBoxMessagesSelectionChange(Sender: TObject; User: boolean);
+    procedure ListBoxMessagesSelectionChange(Sender: TObject; User: Boolean);
     procedure ListView1Click(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
@@ -21 +20 @@
       Selected: Boolean);
   private
-    { private declarations }
+    FOnSelectFile: TSelectFileEvent;
   public
     procedure Reload;
+    property OnSelectFile: TSelectFileEvent read FOnSelectFile write FOnSelectFile;
   end; 
 
-var
-  FormMessages: TFormMessages;
 
 implementation
@@ -34 +32 @@
 
 uses
-  UCore, UFormMain, UFormSourceCode;
+  Core, FormMain, FormSourceCode;
 
 { TFormMessages }
 
 procedure TFormMessages.ListBoxMessagesSelectionChange(Sender: TObject;
-  User: boolean);
+  User: Boolean);
 begin
-
 end;
 
@@ -52 +49 @@
 procedure TFormMessages.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  with Core, FormMain, FormSourceCode do
+  with Core.Core, FormMain.FormMain do
   with TErrorMessage(Compiler.ErrorMessages[Item.Index]) do begin
     if FileName = '' then Item.Caption := ' '
@@ -68 +65 @@
   P: TPoint;
 begin
-  with Core, FormSourceCode do
+  with Core.Core do
   if Assigned(ListView1.Selected) then
   with TErrorMessage(ListView1.Selected.Data) do
   if FileName <> '' then 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;
+    if Assigned(FOnSelectFile) then
+      FOnSelectFile(FileName, Position);
   end;
 end;
@@ -85 +76 @@
 procedure TFormMessages.Reload;
 begin
-  ListView1.Items.Count := Core.Compiler.ErrorMessages.Count;
+  ListView1.Items.Count := Core.Core.Compiler.ErrorMessages.Count;
   ListView1.Refresh;
 end;