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

branches/Transpascal/UProject.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Contnrs, Dialogs, DOM, XMLWrite, XMLRead;
+  Classes, SysUtils, Contnrs, Dialogs, DOM, XMLWrite, XMLRead, FileUtil;
 
 type
@@ -106 +106 @@
     else NamePart := FileName;
   I := 0;
-  while (I < Items.Count) and (TProjectNode(Items[I]).Name <> NamePart) do Inc(I);
+  while (I < Items.Count) and (ExtractFileNameOnly(TProjectNode(Items[I]).Name) <> NamePart) do Inc(I);
   if I < Items.Count then begin
-    if TProjectNode(Items[I]) is TProjectFile then Result := TProjectFile(Items[I])
+    if TProjectNode(Items[I]) is TProjectFile then
+      Result := TProjectFile(Items[I])
     else begin
       Delete(FileName, 1, Length(FileName) + 1);