Changeset 69 for branches/Transpascal/Forms/UMessagesForm.pas

Timestamp:

Oct 19, 2010, 7:19:53 AM (14 years ago)

Author:

george

Message:

• Modified: Error messsage window reworked to use TListView instead of ListBox.
• Fixed: Focusing caret to position of error message source in code.
• Fixed: Loading other units during parsing.

File:

• branches/Transpascal/Forms/UMessagesForm.pas (modified) (4 diffs)

branches/Transpascal/Forms/UMessagesForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  UCoolDocking, UProject, UCompiler;
+  ComCtrls, UCoolDocking, UProject, UCompiler;
 
 type
@@ -15 +15 @@
   TMessagesForm = class(TForm)
     CoolDockClient1: TCoolDockClient;
-    ListBoxMessages: TListBox;
+    ListView1: TListView;
     procedure ListBoxMessagesSelectionChange(Sender: TObject; User: boolean);
+    procedure ListView1Click(Sender: TObject);
+    procedure ListView1Data(Sender: TObject; Item: TListItem);
+    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
+      Selected: Boolean);
   private
     { private declarations }
   public
-    { public declarations }
+    procedure Reload;
   end; 
 
@@ -37 +41 @@
 procedure TMessagesForm.ListBoxMessagesSelectionChange(Sender: TObject;
   User: boolean);
+begin
+
+end;
+
+procedure TMessagesForm.ListView1Click(Sender: TObject);
+begin
+  ListView1SelectItem(Self, ListView1.Selected, ListView1.Selected.Selected);
+end;
+
+procedure TMessagesForm.ListView1Data(Sender: TObject; Item: TListItem);
+begin
+  with MainForm, CodeForm do
+  with TErrorMessage(Compiler.ErrorMessages[Item.Index]) do begin
+    Item.Caption := FileName;
+    Item.Data := Compiler.ErrorMessages[Item.Index];
+    Item.SubItems.Add(IntToStr(Position.X) + ',' + IntToStr(Position.Y));
+    Item.SubItems.Add(Text);
+  end;
+end;
+
+procedure TMessagesForm.ListView1SelectItem(Sender: TObject; Item: TListItem;
+  Selected: Boolean);
 var
   ProjectFile: TProjectFile;
 begin
   with MainForm, CodeForm do
-  if ListBoxMessages.ItemIndex <> -1 then
-  with TErrorMessage(Compiler.ErrorMessages[ListBoxMessages.ItemIndex]) do begin
+  if Assigned(ListView1.Selected) then
+  with TErrorMessage(ListView1.Selected.Data) do begin
     ProjectFile := Project.SearchFile(FileName);
     if Assigned(ProjectFile) then
@@ -52 +78 @@
 end;
 
+procedure TMessagesForm.Reload;
+begin
+  ListView1.Items.Count := MainForm.Compiler.ErrorMessages.Count;
+  ListView1.Refresh;
+end;
+
 end.