Changeset 128 for trunk/UView.pas

Timestamp:

May 1, 2023, 11:21:30 AM (13 months ago)

Author:

chronos

Message:

• Added: Ability to save and load a game.

File:

• trunk/UView.pas (modified) (5 diffs)

trunk/UView.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, UItems, DOM;
 
 type
   { TView }
 
-  TView = class
+  TView = class(TItem)
   private
     FDestRect: TRect;
@@ -18 +18 @@
     procedure SetZoom(AValue: Double);
   public
-    procedure Assign(Source: TView);
+    procedure Assign(Source: TItem); override;
     function PointDestToSrc(Pos: TPoint): TPoint;
     function PointSrcToDest(Pos: TPoint): TPoint;
     constructor Create;
+    procedure LoadFromXmlNode(Node: TDOMNode); override;
+    procedure SaveToXmlNode(Node: TDOMNode); override;
     property SourceRect: TRect read FSourceRect write SetSourceRect;
     property DestRect: TRect read FDestRect write SetDestRect;
@@ -31 +33 @@
 
 uses
-  UGeometric;
+  UGeometric, UXMLUtils;
 
 resourcestring
@@ -80 +82 @@
 end;
 
-procedure TView.Assign(Source: TView);
+procedure TView.Assign(Source: TItem);
 begin
-  FDestRect := Source.FDestRect;
-  FSourceRect := Source.FSourceRect;
-  FZoom := Source.FZoom;
+  if Source is TView then begin
+    FDestRect := TView(Source).FDestRect;
+    FSourceRect := TView(Source).FSourceRect;
+    FZoom := TView(Source).FZoom;
+  end;
 end;
 
@@ -104 +108 @@
 end;
 
+procedure TView.LoadFromXmlNode(Node: TDOMNode);
+begin
+  inherited;
+  FZoom := ReadDouble(Node, 'Zoom', 0);
+  FSourceRect.Left := ReadInteger(Node, 'SourceRectLeft', 0);
+  FSourceRect.Top := ReadInteger(Node, 'SourceRectTop', 0);
+  FSourceRect.Right := ReadInteger(Node, 'SourceRectRight', 0);
+  FSourceRect.Bottom := ReadInteger(Node, 'SourceRectBottom', 0);
+  FDestRect.Left := ReadInteger(Node, 'DestRectLeft', 0);
+  FDestRect.Top := ReadInteger(Node, 'DestRectTop', 0);
+  FDestRect.Right := ReadInteger(Node, 'DestRectRight', 0);
+  FDestRect.Bottom := ReadInteger(Node, 'DestRectBottom', 0);
+end;
+
+procedure TView.SaveToXmlNode(Node: TDOMNode);
+begin
+  inherited;
+  WriteDouble(Node, 'Zoom', FZoom);
+  WriteInteger(Node, 'SourceRectLeft', FSourceRect.Left);
+  WriteInteger(Node, 'SourceRectTop', FSourceRect.Top);
+  WriteInteger(Node, 'SourceRectRight', FSourceRect.Right);
+  WriteInteger(Node, 'SourceRectBottom', FSourceRect.Bottom);
+  WriteInteger(Node, 'DestRectLeft', FDestRect.Left);
+  WriteInteger(Node, 'DestRectTop', FDestRect.Top);
+  WriteInteger(Node, 'DestRectRight', FDestRect.Right);
+  WriteInteger(Node, 'DestRectBottom', FDestRect.Bottom);
+end;
+
 end.