Changeset 247 for trunk/UMap.pas

Timestamp:

Sep 22, 2018, 1:27:09 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Allow only meaningful sizes for cyclic maps.

File:

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

trunk/UMap.pas

@@ -134 +134 @@
   TMap = class
   private
-    FSize: TPoint;
     function GetPixelRect: TRect;
     function GetSize: TPoint; virtual;
     function SearchDifferentCellArea(List: TCells; SourceArea,
       DestArea: TMapArea): TCell;
-    procedure SetSize(AValue: TPoint); virtual;
   protected
+    FSize: TPoint;
     FPixelRect: TRect;
     FNewCellId: Integer;
     function GetNewCellId: Integer; virtual;
     procedure SortNeighborsByAngle;
+    procedure SetSize(AValue: TPoint); virtual;
   public
     Game: TObject; //TGame;
@@ -563 +563 @@
   // Do not assign Game field
   MaxPower := Source.MaxPower;
+  Cyclic := Source.Cyclic;
   Size := Source.Size;
   DefaultCellSize := Source.DefaultCellSize;
   Shape := Source.Shape;
   Image.Picture.Bitmap.Assign(Source.Image.Picture.Bitmap);
-  Cyclic := Source.Cyclic;
 
   // TODO: How to copy cells