Changeset 69 for branches/Transpascal/Forms/UMainForm.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/UMainForm.pas (modified) (2 diffs)

branches/Transpascal/Forms/UMainForm.pas

@@ -59 +59 @@
     ReopenLastOpenedFile: Boolean;
     procedure OpenRecentClick(Sender: TObject);
-    procedure LoadErrorMessages;
     procedure DockInit;
     procedure LoadFromRegistry;
@@ -112 +111 @@
 
   ProjectManager.TreeViewProjectChange(Self, ProjectManager.TreeViewProject.Selected);
-  LoadErrorMessages;
-end;
-
-procedure TMainForm.LoadErrorMessages;
-var
-  I: Integer;
-begin
-  with MessagesForm do begin
-    ListBoxMessages.Clear;
-    for I := 0 to Compiler.ErrorMessages.Count - 1 do
-    with TErrorMessage(Compiler.ErrorMessages[I]) do
-      ListBoxMessages.Items.Add(FileName + '(' + IntToStr(Position.X) +
-        ',' + IntToStr(Position.Y) + ') ' + Text);
-  end;
+  MessagesForm.Reload;
 end;