Changeset 204

Timestamp:

May 20, 2018, 10:23:13 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Zoom all action was not working if a map was loaded from a file.

File:

• trunk/UGame.pas (modified) (6 diffs)

trunk/UGame.pas

@@ -184 +184 @@
   private
     FSize: TPoint;
+    function GetPixelRect: TRect;
     function GetSize: TPoint; virtual;
     procedure PaintCell(Canvas: TCanvas; Pos: TPoint; Text: string; View: TView;
@@ -230 +231 @@
     procedure ForEachCells(Method: TMethod); virtual;
     property Size: TPoint read GetSize write SetSize;
-    property PixelRect: TRect read FPixelRect;
+    property PixelRect: TRect read GetPixelRect;
   end;
 
@@ -1255 +1256 @@
 end;
 
+function TMap.GetPixelRect: TRect;
+begin
+  if FPixelRect.Empty then FPixelRect := CalculatePixelRect;
+  Result := FPixelRect;
+end;
+
 procedure TMap.SetSize(AValue: TPoint);
 begin
@@ -1415 +1422 @@
   if Assigned(Node2) then
     CellLinks.LoadFromNode(Node2);
+  FPixelRect := CalculatePixelRect;
 end;
 
@@ -1576 +1584 @@
     Cells[Y * FSize.X + X] := NewCell;
   end;
-  FPixelRect := CalculatePixelRect;
+  FPixelRect := FPixelRect;
 end;
 
@@ -1656 +1664 @@
   Cells.Clear;
   FNewCellId := 1;
+  FPixelRect.SetEmpty;
 end;