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

Timestamp:

Nov 9, 2010, 2:08:55 PM (14 years ago)

Author:

george

Message:

• Modified: Project saving.

File:

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

trunk/IDE/Forms/UCodeForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, UCoolDocking,
-  SynEdit, SynHighlighterPas;
+  SynEdit, SynHighlighterPas, UProject;
 
 type
@@ -17 +17 @@
     SynEditSource: TSynEdit;
     SynPasSyn1: TSynPasSyn;
+    procedure SynEditSourceChange(Sender: TObject);
   private
     { private declarations }
   public
-    { public declarations }
+    ProjectFile: TProjectFile;
   end; 
 
@@ -28 +29 @@
 implementation
 
+uses
+  UMainForm;
+
 {$R *.lfm}
+
+{ TCodeForm }
+
+procedure TCodeForm.SynEditSourceChange(Sender: TObject);
+begin
+  ProjectFile.Modified := True;
+end;
 
 end.