Changeset 23 for trunk/IDE/UProject.pas

Timestamp:

Nov 10, 2010, 7:26:52 AM (14 years ago)

Author:

george

Message:

• Fixed: Saving project file.

File:

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

trunk/IDE/UProject.pas

@@ -125 +125 @@
   NewNode: TDOMNode;
 begin
+  TDOMElement(Node).SetAttribute('Name', UTF8Decode(Name));
   inherited SaveToXMLNode(Node);
   with Node do begin
-    NewNode := OwnerDocument.CreateElement('File');
+    NewNode := OwnerDocument.CreateElement('Folder');
     TDOMElement(NewNode).SetAttribute('Name', UTF8Decode(Name));
-    TDOMElement(NewNode).SetAttribute('Type', 'File');
     AppendChild(NewNode);
   end;
@@ -171 +171 @@
 
 procedure TProjectFile.SaveToXMLNode(Node: TDOMNode);
+var
+  NewNode: TDOMNode;
 begin
   inherited SaveToXMLNode(Node);
+  with Node do begin
+    NewNode := OwnerDocument.CreateElement('File');
+    TDOMElement(NewNode).SetAttribute('Name', UTF8Decode(Name));
+    AppendChild(NewNode);
+  end;
   Save;
 end;
@@ -235 +242 @@
     Clear;
     RootDir := ExtractFileDir(FileName) + '/';
+    //NewNode := Doc.DocumentElement.FindNode('Files');
     Name := ExtractFileName(FileName);
     Name := Copy(Name, 1, Length(Name) - Length(ExtractFileExt(FileName)));
@@ -240 +248 @@
     ReadXMLFile(Doc, UTF8Decode(FileName));
 
-    NewNode := Doc.DocumentElement.FindNode('Files');
+    NewNode := Doc.DocumentElement.FindNode('Folder');
     if Assigned(NewNode) then
       LoadFromXMLNode(NewNode);
@@ -257 +265 @@
   Child := Node.FirstChild;
   while Assigned(Child) do begin
-    NodeType := TDOMElement(Child).GetAttribute('Type');
-    if NodeType = 'Folder' then
+    if Child.NodeName = 'Folder' then
       ProjectNode := TProjectGroup.Create
-    else if NodeType = 'File' then
+    else if Child.NodeName = 'File' then
       ProjectNode := TProjectFile.Create
     else ProjectNode := nil;
@@ -287 +294 @@
     AppendChild(RootNode);
     with RootNode do begin
-      NewNode := OwnerDocument.CreateElement('Files');
-      SaveToXMLNode(NewNode);
     end;
+    SaveToXMLNode(RootNode);
     WriteXMLFile(Doc, UTF8Decode(FileName));
   finally