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

Timestamp:

Jul 16, 2012, 4:11:47 PM (12 years ago)

Author:

chronos

Message:

• Modified: Testing interpretter.

File:

• trunk/IDE/Forms/UFormMessages.pas (modified) (1 diff)

trunk/IDE/Forms/UFormMessages.pas

@@ -72 +72 @@
     ProjectFile := Project.Files.SearchFile(FileName);
     if Assigned(ProjectFile) then
-      SynEditSource.Lines.Assign(ProjectFile.Source);
+      SynEditSource.Lines.Assign(ProjectFile.Source)
+      else if FileExistsUTF8(FileName) then
+        SynEditSource.Lines.LoadFromFile(FileName);
     SynEditSource.CaretXY := Position;
     TForm(SynEditSource.Owner).Show;