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

Timestamp:

Jun 26, 2012, 7:23:47 AM (12 years ago)

Author:

chronos

Message:

• Modified: Created main UCore unit and moved non visual code from UFormMain to it.

File:

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

trunk/IDE/Forms/UFormSourceCode.pas

@@ -32 +32 @@
 
 uses
-  UFormMain;
+  UFormMain, UCore;
 
 {$R *.lfm}
@@ -40 +40 @@
 procedure TFormSourceCode.SynEditSourceChange(Sender: TObject);
 begin
-  if FormMain.Project.Active then
+  if Core.Project.Active then
     ProjectFile.Modified := True;
 end;
@@ -61 +61 @@
 procedure TFormSourceCode.UpdateInterface;
 begin
-  SynEditSource.Enabled := FormMain.Project.Active;
-  if not FormMain.Project.Active then SynEditSource.ClearAll;
+  SynEditSource.Enabled := Core.Project.Active;
+  if not Core.Project.Active then SynEditSource.ClearAll;
 end;