Changeset 244 for trunk/UMap.pas

Timestamp:

Sep 22, 2018, 11:25:47 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Lost controls handler assignment in New form.
• Fixed: Cyclic map flag was not properly loaded from save map file.

File:

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

trunk/UMap.pas

@@ -567 +567 @@
   Shape := Source.Shape;
   Image.Picture.Bitmap.Assign(Source.Image.Picture.Bitmap);
+  Cyclic := Source.Cyclic;
 
   // TODO: How to copy cells
@@ -598 +599 @@
   DefaultCellSize.Y := ReadInteger(Node, 'DefaultCellSizeY', 1);
   MaxPower := ReadInteger(Node, 'MaxPower', DefaultMaxPower);
+  Cyclic := ReadBoolean(Node, 'Cyclic', False);
   Shape := TMapShape(ReadInteger(Node, 'Shape', Integer(msRectangle)));
   Node2 := Node.FindNode('Cells');
@@ -615 +617 @@
   WriteInteger(Node, 'DefaultCellSizeY', DefaultCellSize.Y);
   WriteInteger(Node, 'MaxPower', MaxPower);
+  WriteBoolean(Node, 'Cyclic', Cyclic);
   WriteInteger(Node, 'Shape', Integer(Shape));
   WriteInteger(Node, 'SizeX', Size.X);