Changeset 7 for trunk/UBlockMap.pas

Timestamp:

Mar 30, 2016, 11:32:54 PM (8 years ago)

Author:

chronos

Message:

• Added: Main menu with available actions.
• Added: Basic functionality to save project to file and open project from file.

File:

• trunk/UBlockMap.pas (modified) (3 diffs)

trunk/UBlockMap.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Graphics, Math, Contnrs, Dialogs;
+  Classes, SysUtils, Graphics, Math, Contnrs, Dialogs, DOM, XMLRead, XMLWrite,
+  UXMLUtils;
 
 type
@@ -43 +44 @@
     constructor Create;
     destructor Destroy; override;
+    procedure SaveToNode(Node: TDOMNode);
+    procedure LoadFromNode(Node: TDOMNode);
     property BlockSize: TPoint read FBlockSize write SetBlockSize;
     property DrawSize: TPoint read FDrawSize write SetDrawSize;
@@ -321 +324 @@
 end;
 
+procedure TBlockMap.SaveToNode(Node: TDOMNode);
+var
+  NewNode: TDOMNode;
+  NewNode2: TDOMNode;
+  I: Integer;
+begin
+  WriteInteger(Node, 'SectorCount', SectorCount);
+
+  NewNode := Node.OwnerDocument.CreateElement('Changes');
+  Node.AppendChild(NewNode);
+  for I := 0 to FChanges.Count - 1 do begin
+    NewNode2 := NewNode.OwnerDocument.CreateElement('Change');
+    NewNode.AppendChild(NewNode2);
+    WriteInteger(NewNode2, 'Index', TChange(FChanges[I]).Index);
+    WriteInteger(NewNode2, 'Value', Integer(TChange(FChanges[I]).Value));
+  end;
+end;
+
+procedure TBlockMap.LoadFromNode(Node: TDOMNode);
+var
+  NewNode: TDOMNode;
+  NewNode2: TDOMNode;
+  NewChange: TChange;
+begin
+  SectorCount := ReadInteger(Node, 'SectorCount', 0);
+
+  NewNode := Node.FindNode('Changes');
+  if Assigned(NewNode) then begin
+    FChanges.Count := 0;
+    NewNode2 := NewNode.FirstChild;
+    while Assigned(NewNode2) and (NewNode2.NodeName = 'Change') do begin
+      NewChange := TChange.Create;
+      NewChange.Index := ReadInteger(NewNode2, 'Index', 0);
+      NewChange.Value := TSectorState(ReadInteger(NewNode2, 'Value', 0));
+      FChanges.Add(NewChange);
+      NewNode2 := NewNode2.NextSibling;
+    end;
+  end;
+end;
 
 end.