Changeset 21 for trunk/IDE/Forms

Timestamp:

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

Author:

george

Message:

• Modified: Project saving.

Location:

trunk/IDE/Forms

Files:

• UCodeForm.lfm (modified) (3 diffs)
• UCodeForm.pas (modified) (3 diffs)
• UMainForm.lfm (modified) (1 diff)
• UMainForm.pas (modified) (2 diffs)

trunk/IDE/Forms/UCodeForm.lfm

@@ -618 +618 @@
     )
     BracketHighlightStyle = sbhsBoth
+    OnChange = SynEditSourceChange
     inline SynGutterPartList1: TSynGutterPartList
       object SynGutterMarks1: TSynGutterMarks
@@ -725 +726 @@
       end
     end
-    inline SynRightGutterPartList1: TSynRightGutterPartList
-    end
   end
   object CoolDockClient1: TCoolDockClient
@@ -735 +734 @@
   end
   object SynPasSyn1: TSynPasSyn
+    Enabled = False
+    AsmAttri.FrameEdges = sfeAround
+    CommentAttri.FrameEdges = sfeAround
+    IdentifierAttri.FrameEdges = sfeAround
+    KeyAttri.FrameEdges = sfeAround
+    NumberAttri.FrameEdges = sfeAround
+    SpaceAttri.FrameEdges = sfeAround
+    StringAttri.FrameEdges = sfeAround
+    SymbolAttri.FrameEdges = sfeAround
+    CaseLabelAttri.FrameEdges = sfeAround
+    DirectiveAttri.FrameEdges = sfeAround
     CompilerMode = pcmDelphi
     NestedComments = False

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.

trunk/IDE/Forms/UMainForm.lfm

@@ -163 +163 @@
       Caption = 'Save'
       Hint = 'Save project to disk'
+      OnExecute = AProjectSaveExecute
     end
     object AProjectSaveAs: TAction

trunk/IDE/Forms/UMainForm.pas

@@ -54 +54 @@
     procedure AProjectOpenExecute(Sender: TObject);
     procedure AProjectSaveAsExecute(Sender: TObject);
+    procedure AProjectSaveExecute(Sender: TObject);
     procedure ComboBox1Change(Sender: TObject);
     procedure ComboBoxProducerChange(Sender: TObject);
@@ -292 +293 @@
   if SaveDialog1.Execute then begin
     Project.SaveToFile(SaveDialog1.FileName);
-  end;
+    Project.Save;
+  end;
+end;
+
+procedure TMainForm.AProjectSaveExecute(Sender: TObject);
+begin
+  Project.Save;
 end;