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

Timestamp:

Jun 26, 2012, 7:41:11 AM (12 years ago)

Author:

chronos

Message:

• Modified: Project instance is now freed in closed state.
• Added: Toolbar button Open now provide dropdown list of recent opened projects.

File:

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

trunk/IDE/Forms/UFormSourceCode.pas

@@ -40 +40 @@
 procedure TFormSourceCode.SynEditSourceChange(Sender: TObject);
 begin
-  if Core.Project.Active then
+  if Assigned(Core.Project) then
     ProjectFile.Modified := True;
 end;
@@ -61 +61 @@
 procedure TFormSourceCode.UpdateInterface;
 begin
-  SynEditSource.Enabled := Core.Project.Active;
-  if not Core.Project.Active then SynEditSource.ClearAll;
+  SynEditSource.Enabled := Assigned(Core.Project);
+  if not Assigned(Core.Project) then SynEditSource.ClearAll;
 end;