Changeset 321 for trunk/LocalPlayer/Term.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/Term.pas (modified) (15 diffs)

trunk/LocalPlayer/Term.pas

@@ -19 +19 @@
   WM_EOT = WM_USER;
 
-  pltsNormal = 0;
-  pltsBlink = 1;
-
 type
+  TPaintLocTempStyle = (pltsNormal, pltsBlink);
+  TTileSize = (tsSmall, tsMedium, tsBig);
 
   { TMainScreen }
@@ -257 +256 @@
     procedure PaintLoc(Loc: integer; Radius: integer = 0);
     procedure PaintLoc_BeforeMove(FromLoc: integer);
-    procedure PaintLocTemp(Loc: integer; Style: integer = pltsNormal);
+    procedure PaintLocTemp(Loc: integer; Style: TPaintLocTempStyle = pltsNormal);
     procedure PaintBufferToScreen(xMap, yMap, width, height: integer);
     procedure PaintDestination;
@@ -277 +276 @@
     procedure SetViewpoint(p: integer);
     function LocationOfScreenPixel(x, y: integer): integer;
-    procedure SetTileSize(x, y: integer);
+    procedure SetTileSize(TileSize: TTileSize);
     procedure RectInvalidate(Left, Top, Rigth, Bottom: integer);
     procedure ShowEnemyShipChange(ShowShipChange: TShowShipChange);
@@ -312 +311 @@
     FileName: ShortString;
   end;
+
   TCityNameInfo = record
     ID: integer;
     NewName: ShortString;
   end;
+
   TModelNameInfo = record
     mix: integer;
     NewName: ShortString;
   end;
+
   TPriceSet = Set of $00 .. $FF;
 
@@ -413 +415 @@
   sbTurn = $10;
   sbAll = $FF;
+
+  TileSizes: array [TTileSize] of TPoint = ((X: 33; Y: 16), (X: 48; Y: 24), (X: 72; Y: 36));
 
 type
@@ -434 +438 @@
   AdvIcon: array [0 .. nAdv - 1] of Integer;
   { icons displayed with the technologies }
-  xxt, yyt, // half of tile size x/y
+  xxt: Integer; // half of tile size x/y
+  yyt: Integer; // half of tile size x/y
+  TileSize: TTileSize;
   GameMode: Integer;
   ClientMode: Integer;
@@ -1606 +1612 @@
       MiniColors[x, y] := HGrSystem.Data.Canvas.Pixels[66 + x, 67 + y];
   IsoEngine.Init(InitEnemyModel);
-  if not IsoEngine.ApplyTileSize(xxt, yyt) and ((xxt <> 48) or (yyt <> 24) or (xxt <> 72))
-  then
-    ApplyTileSize(48, 24);
+  if not IsoEngine.ApplyTileSize(TileSize) and (TileSize <> tsMedium) then
+    ApplyTileSize(tsMedium);
   // non-default tile size is missing a file, switch to default
   MainMap := TIsoMap.Create;
@@ -3537 +3542 @@
     PanelPaint;
     Update;
+  end else begin
+    if (WheelDelta > 0) and (TileSize < High(TTileSize)) then SetTileSize(Succ(TileSize))
+    else if (WheelDelta < 0) and (TileSize > Low(TTileSize)) then SetTileSize(Pred(TileSize));
   end;
 end;
@@ -3981 +3989 @@
 end;
 
-procedure TMainScreen.PaintLocTemp(Loc: integer; Style: integer);
+procedure TMainScreen.PaintLocTemp(Loc: integer; Style: TPaintLocTempStyle);
 var
   y0, x0, xMap, yMap: integer;
@@ -7295 +7303 @@
         end;
     end;
-    mSmallTiles.Checked := xxt = 33;
-    mNormalTiles.Checked := xxt = 48;
-    mBigTiles.Checked := xxt = 72;
+    mSmallTiles.Checked := TileSize = tsSmall;
+    mNormalTiles.Checked := TileSize = tsMedium;
+    mBigTiles.Checked := TileSize = tsBig;
   end
   else if Popup = StatPopup then
@@ -7759 +7767 @@
   with Reg do try
     OpenKey(AppRegistryKey, False);
-    if ValueExists('TileWidth') then xxt := ReadInteger('TileWidth') div 2
-      else xxt := 48;
-    if ValueExists('TileHeight') then yyt := ReadInteger('TileHeight') div 2
-      else yyt := 24;
+    if ValueExists('TileSize') then TileSize := TTileSize(ReadInteger('TileSize'))
+      else TileSize := tsMedium;
+    xxt := TileSizes[TileSize].X;
+    yyt := TileSizes[TileSize].Y;
     if ValueExists('OptionChecked') then OptionChecked := ReadInteger('OptionChecked')
       else OptionChecked := DefaultOptionChecked;
@@ -7991 +7999 @@
 procedure TMainScreen.mSmallTilesClick(Sender: TObject);
 begin
-  SetTileSize(33, 16);
+  SetTileSize(tsSmall);
 end;
 
 procedure TMainScreen.mNormalTilesClick(Sender: TObject);
 begin
-  SetTileSize(48, 24);
+  SetTileSize(tsMedium);
 end;
 
 procedure TMainScreen.mBigTilesClick(Sender: TObject);
 begin
-  SetTileSize(72, 36);
-end;
-
-procedure TMainScreen.SetTileSize(x, y: integer);
+  SetTileSize(tsBig);
+end;
+
+procedure TMainScreen.SetTileSize(TileSize: TTileSize);
 var
   i, CenterLoc: integer;
@@ -8010 +8018 @@
   CenterLoc := (xw + MapWidth div (xxt * 4)) mod G.lx +
     (yw + MapHeight div (yyt * 2)) * G.lx;
-  IsoEngine.ApplyTileSize(x, y);
+  IsoEngine.ApplyTileSize(TileSize);
   FormResize(nil);
   Centre(CenterLoc);
@@ -8036 +8044 @@
   try
     OpenKey(AppRegistryKey, true);
-    WriteInteger('TileWidth', xxt * 2);
-    WriteInteger('TileHeight', yyt * 2);
+    WriteInteger('TileSize', Integer(TileSize));
     WriteInteger('OptionChecked', OptionChecked);
     WriteInteger('MapOptionChecked', MapOptionChecked);
@@ -8061 +8068 @@
 
 end.
+