Changeset 37 for trunk/IDE/Forms/UCodeForm.pas

Timestamp:

Feb 14, 2012, 7:33:51 AM (13 years ago)

Author:

chronos

Message:

• Added: Form containing list of supported compiler producers. Path to real compiler can be changed.

File:

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

trunk/IDE/Forms/UCodeForm.pas

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