Changeset 66 for branches/Transpascal/UProject.pas

Timestamp:

Oct 18, 2010, 10:00:00 AM (14 years ago)

Author:

george

Message:

• Added: Storing application setting in system registry.
• Added: Loading project files.
• Added: Remembering last opened files.

File:

• branches/Transpascal/UProject.pas (modified) (10 diffs)

branches/Transpascal/UProject.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Contnrs, Dialogs;
+  Classes, SysUtils, Contnrs, Dialogs, DOM, XMLWrite, XMLRead;
 
 type
@@ -15 +15 @@
     Parent: TProjectNode;
     Name: string;
+    procedure SaveToXMLNode(Node: TDOMNode); virtual;
+    procedure LoadFromXMLNode(Node: TDOMNode); virtual;
     procedure Load; virtual;
     procedure Save; virtual;
@@ -26 +28 @@
     constructor Create;
     destructor Destroy; override;
+    procedure SaveToXMLNode(Node: TDOMNode); override;
+    procedure LoadFromXMLNode(Node: TDOMNode); override;
     procedure Load; override;
     procedure Save; override;
@@ -38 +42 @@
     procedure Load; override;
     procedure Save; override;
+    procedure SaveToXMLNode(Node: TDOMNode); override;
+    procedure LoadFromXMLNode(Node: TDOMNode); override;
     function SearchFile(FileName: string): TProjectFile;
   end;
@@ -43 +49 @@
   TProject = class(TProjectGroup)
     RootDir: string;
+    procedure LoadFromFile(FileName: string);
+    procedure SaveToFile(FileName: string);
     function GetDir(IncludeRoot: Boolean = False): string; override;
+    procedure Load; override;
+    procedure Save; override;
+    procedure SaveToXMLNode(Node: TDOMNode); override;
+    procedure LoadFromXMLNode(Node: TDOMNode); override;
+    procedure Clear;
   end;
 
@@ -77 +90 @@
   for I := 0 to Items.Count - 1 do
     TProjectNode(Items[I]).Save;
+end;
+
+procedure TProjectGroup.SaveToXMLNode(Node: TDOMNode);
+begin
+  inherited SaveToXMLNode(Node);
 end;
 
@@ -111 +129 @@
 end;
 
+procedure TProjectFile.SaveToXMLNode(Node: TDOMNode);
+begin
+  inherited SaveToXMLNode(Node);
+end;
+
+procedure TProjectFile.LoadFromXMLNode(Node: TDOMNode);
+begin
+  inherited LoadFromXMLNode(Node);
+  Load;
+end;
+
 procedure TProjectFile.Load;
 begin
@@ -125 +154 @@
 { TProjectNode }
 
+procedure TProjectNode.SaveToXMLNode(Node: TDOMNode);
+begin
+
+end;
+
+procedure TProjectNode.LoadFromXMLNode(Node: TDOMNode);
+begin
+  Name := UTF8Encode(string(TDOMElement(Node).GetAttribute('Name')));
+end;
+
 procedure TProjectNode.Load;
 begin
@@ -143 +182 @@
 { TProject }
 
+procedure TProject.LoadFromFile(FileName: string);
+var
+  Doc: TXMLDocument;
+  NewNode: TDOMNode;
+  NewSubNode: TDOMNode;
+  I: Integer;
+  Text: string;
+begin
+  try
+    Clear;
+    RootDir := ExtractFileDir(FileName) + '/';
+    Name := ExtractFileName(FileName);
+    Name := Copy(Name, 1, Length(Name) - Length(ExtractFileExt(FileName)));
+
+    ReadXMLFile(Doc, UTF8Decode(FileName));
+
+    NewNode := Doc.DocumentElement.FindNode('Files');
+    if Assigned(NewNode) then
+      LoadFromXMLNode(NewNode);
+  finally
+    Doc.Free;
+  end;
+end;
+
+procedure TProjectGroup.LoadFromXMLNode(Node: TDOMNode);
+var
+  Child: TDOMNode;
+  ProjectNode: TProjectNode;
+  NodeType: string;
+begin
+  Name := UTF8Encode(TDOMElement(Node).GetAttribute('Name'));
+  Child := Node.FirstChild;
+  while Assigned(Child) do begin
+    NodeType := TDOMElement(Child).GetAttribute('Type');
+    if NodeType = 'Folder' then
+      ProjectNode := TProjectGroup.Create
+    else if NodeType = 'File' then
+      ProjectNode := TProjectFile.Create
+    else ProjectNode := nil;
+    if Assigned(ProjectNode) then begin
+      ProjectNode.Parent := Self;
+      ProjectNode.LoadFromXMLNode(Child);
+      Items.Add(ProjectNode);
+    end;
+
+    Child := Child.NextSibling;
+  end;
+end;
+
+procedure TProject.SaveToFile(FileName: string);
+begin
+
+end;
+
 function TProject.GetDir(IncludeRoot: Boolean): string;
 begin
@@ -148 +241 @@
 end;
 
+procedure TProject.Load;
+begin
+  inherited Load;
+end;
+
+procedure TProject.Save;
+begin
+  inherited Save;
+end;
+
+procedure TProject.SaveToXMLNode(Node: TDOMNode);
+begin
+  inherited SaveToXMLNode(Node);
+end;
+
+procedure TProject.LoadFromXMLNode(Node: TDOMNode);
+begin
+  inherited LoadFromXMLNode(Node);
+end;
+
+procedure TProject.Clear;
+begin
+  Items.Clear;
+end;
+
 end.