Changeset 24 for trunk/IDE/UProject.pas

Timestamp:

Nov 10, 2010, 9:42:27 AM (14 years ago)

Author:

george

Message:

• Added: Parsing type parameters.
• Fixed: Saving edited files.

File:

• trunk/IDE/UProject.pas (modified) (3 diffs)

trunk/IDE/UProject.pas

@@ -14 +14 @@
 
   TProjectNode = class
+  private
+    FModified: Boolean;
+    procedure SetModified(const AValue: Boolean);
+  public
     Parent: TProjectNode;
     Name: string;
     ProducedFileName: string;
-    Modified: Boolean;
     procedure SaveToXMLNode(Node: TDOMNode); virtual;
     procedure LoadFromXMLNode(Node: TDOMNode); virtual;
@@ -23 +26 @@
     procedure Save; virtual;
     function GetDir(IncludeRoot: Boolean = False): string; virtual;
+    property Modified: Boolean read FModified write SetModified;
   end;
 
@@ -197 +201 @@
 procedure TProjectFile.Save;
 begin
+  if Modified then
+    Source.SaveToFile(Parent.GetDir(True) + Name);
   inherited Save;
-  Source.SaveToFile(Parent.GetDir(True) + Name);
 end;
 
 { TProjectNode }
+
+procedure TProjectNode.SetModified(const AValue: Boolean);
+begin
+  if FModified=AValue then exit;
+  FModified:=AValue;
+  if Assigned(Parent) then Parent.Modified := AValue;
+end;
 
 procedure TProjectNode.SaveToXMLNode(Node: TDOMNode);