Changeset 66 for trunk/IDE/Forms/UFormMessages.pas

Timestamp:

Jul 19, 2012, 8:16:57 AM (12 years ago)

Author:

chronos

Message:

• Added: Information text about completion of build process including elapsed time.

File:

• trunk/IDE/Forms/UFormMessages.pas (modified) (2 diffs)

trunk/IDE/Forms/UFormMessages.pas

@@ -54 +54 @@
   with Core, FormMain, FormSourceCode do
   with TErrorMessage(Compiler.ErrorMessages[Item.Index]) do begin
-    Item.Caption := FileName;
+    if FileName = '' then Item.Caption := ' '
+      else Item.Caption := FileName;
     Item.Data := Compiler.ErrorMessages[Item.Index];
     Item.SubItems.Add(IntToStr(Position.X) + ',' + IntToStr(Position.Y));
@@ -69 +70 @@
   with Core, FormSourceCode do
   if Assigned(ListView1.Selected) then
-  with TErrorMessage(ListView1.Selected.Data) do begin
+  with TErrorMessage(ListView1.Selected.Data) do
+  if FileName <> '' then begin
     ProjectFile := Project.Files.SearchFile(FileName);
     if Assigned(ProjectFile) then