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

Timestamp:

Oct 18, 2010, 12:39:37 PM (14 years ago)

Author:

george

Message:

• Fixed: Parsing of strings.
• Modified: Now supported C target "Dynamic C" dialect.

File:

• branches/Transpascal/Forms/UMessagesForm.pas (modified) (1 diff)

branches/Transpascal/Forms/UMessagesForm.pas

@@ -43 +43 @@
   if ListBoxMessages.ItemIndex <> -1 then
   with TErrorMessage(Compiler.ErrorMessages[ListBoxMessages.ItemIndex]) do begin
-    ProjectFile := Project.SearchFile(fileName);
+    ProjectFile := Project.SearchFile(FileName);
     if Assigned(ProjectFile) then
       SynEditSource.Lines.Assign(ProjectFile.Source);
     SynEditSource.CaretXY := Position;
+    TForm(SynEditSource.Owner).Show;
     SynEditSource.SetFocus;
   end;