Changeset 21 for trunk/IDE/UProject.pas

Timestamp:

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

Author:

george

Message:

• Modified: Project saving.

File:

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

trunk/IDE/UProject.pas

@@ -17 +17 @@
     Name: string;
     ProducedFileName: string;
+    Modified: Boolean;
     procedure SaveToXMLNode(Node: TDOMNode); virtual;
     procedure LoadFromXMLNode(Node: TDOMNode); virtual;
@@ -120 +121 @@
 
 procedure TProjectGroup.SaveToXMLNode(Node: TDOMNode);
+var
+  I: Integer;
+  NewNode: TDOMNode;
 begin
   inherited SaveToXMLNode(Node);
+  with Node do begin
+    NewNode := OwnerDocument.CreateElement('File');
+    TDOMElement(NewNode).SetAttribute('Name', UTF8Decode(Name));
+    TDOMElement(NewNode).SetAttribute('Type', 'File');
+    AppendChild(NewNode);
+  end;
+  for I := 0 to Items.Count - 1 do begin
+    TProjectNode(Items[I]).SaveToXMLNode(NewNode);
+  end
 end;
 
@@ -160 +173 @@
 begin
   inherited SaveToXMLNode(Node);
+  Save;
 end;
 
@@ -199 +213 @@
 procedure TProjectNode.Save;
 begin
-
+  Modified := False;
 end;
 
@@ -260 +274 @@
 
 procedure TProject.SaveToFile(FileName: string);
-begin
-
+var
+  Doc: TXMLDocument;
+  RootNode: TDOMNode;
+  NewNode: TDOMNode;
+  NewSubNode: TDOMNode;
+  I: Integer;
+  Text: string;
+begin
+  Doc := TXMLDocument.Create;
+  with Doc do try
+    RootNode := CreateElement('Project');
+    AppendChild(RootNode);
+    with RootNode do begin
+      NewNode := OwnerDocument.CreateElement('Files');
+      SaveToXMLNode(NewNode);
+    end;
+    WriteXMLFile(Doc, UTF8Decode(FileName));
+  finally
+    Free;
+  end;
+  inherited Save;
 end;