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

Timestamp:

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

Author:

chronos

Message:

• Modified: Testing interpretter.

File:

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

trunk/IDE/Forms/UFormSourceCode.pas

@@ -40 +40 @@
 procedure TFormSourceCode.SynEditSourceChange(Sender: TObject);
 begin
-  if Assigned(Core.Project) then
+  if Assigned(Core.Project) and Assigned(ProjectFile) then
     ProjectFile.Modified := True;
 end;