Changeset 62 for trunk/Compiler/UCompiler.pas

Timestamp:

Jul 17, 2012, 10:14:41 AM (12 years ago)

Author:

chronos

Message:

• Modified: Show tab sheets of source code forms on file click in project manager.
• Fixed: Compilation error message line calculation on Windows.

File:

• trunk/Compiler/UCompiler.pas (modified) (3 diffs)

trunk/Compiler/UCompiler.pas

@@ -111 +111 @@
 begin
   I := 0;
-  while (I < Files.Count) and (ExtractFileNameOnly(Files[I]) <> Name) do Inc(I);
+  while (I < Files.Count) and (ExtractFileName(Files[I]) <> Name) do Inc(I);
   if I < Files.Count then begin
     if FileExistsUTF8(Files[I]) then begin
@@ -127 +127 @@
 begin
   I := 0;
-  while (I < Files.Count) and (ExtractFileNameOnly(Files[I]) <> Name) do Inc(I);
+  while (I < Files.Count) and (ExtractFileName(Files[I]) <> Name) do Inc(I);
   if I >= Files.Count then begin
     SaveStringToFile(Name, Content);
@@ -212 +212 @@
   if MainSource <> '' then begin
     Analyzer.FileName := MainSource;
-    Analyzer.OnGetSource(ExtractFileNameOnly(Analyzer.FileName), Analyzer.SourceCode);
+    Analyzer.OnGetSource(ExtractFileName(Analyzer.FileName), Analyzer.SourceCode);
     Analyzer.Process;
     //ShowMessage(IntToHex(Integer(Addr(Analyzer.OnGetSource)), 8));