Changeset 321 for trunk/LocalPlayer/IsoEngine.pas

Timestamp:

Mar 22, 2021, 10:51:43 PM (4 years ago)

Author:

chronos

Message:

• Added: Allow to switch between three tile sizes by mouse wheel over map to perform zoom in or zoom out.

File:

• trunk/LocalPlayer/IsoEngine.pas (modified) (4 diffs)

trunk/LocalPlayer/IsoEngine.pas

@@ -77 +77 @@
 function IsJungle(y: integer): boolean;
 procedure Init(InitEnemyModelHandler: TInitEnemyModelEvent);
-function ApplyTileSize(xxtNew, yytNew: integer): boolean;
+function ApplyTileSize(ATileSize: TTileSize): boolean;
 procedure Done;
 procedure Reset;
@@ -137 +137 @@
 end;
 
-function ApplyTileSize(xxtNew, yytNew: integer): boolean;
+function ApplyTileSize(ATileSize: TTileSize): boolean;
 var
   i: Integer;
@@ -151 +151 @@
   MaskLine: array [0 .. 50 * 3 - 1] of TPixelPointer; // 32 = assumed maximum for yyt
   Border: boolean;
-begin
+  xxtNew: Integer;
+  yytNew: Integer;
+begin
+  xxtNew := TileSizes[ATileSize].X;
+  yytNew := TileSizes[ATileSize].Y;
   result := false;
   HGrTerrainNew := LoadGraphicSet(Format('Terrain%dx%d.png',
@@ -163 +167 @@
   xxt := xxtNew;
   yyt := yytNew;
+  TileSize := ATileSize;
   HGrTerrain := HGrTerrainNew;
   HGrCities := HGrCitiesNew;