Changeset 330 for trunk/LocalPlayer/Help.pas

Timestamp:

Mar 26, 2021, 2:16:04 PM (3 years ago)

Author:

chronos

Message:

• Modified: Reworker IsoEngine unit to support multiple iso maps with different tile sizes.
• Modified: Changing tile size in main windows map doesn't affect other tile drawing on panel and in other windows like help window.
• Modified: Optimized tile size switching. Graphic assets needed for given tile size is prepared only once. Then switching between them is just about changing references to objects and redrawing.
• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Help.pas (modified) (9 diffs)

trunk/LocalPlayer/Help.pas

@@ -7 +7 @@
   Protocol, ScreenTools, BaseWin, StringTables, Math, LCLIntf, LCLType,
   Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
-  ButtonB, PVSB, Types, fgl;
+  ButtonB, PVSB, Types, fgl, IsoEngine;
 
 const
@@ -102 +102 @@
     ExtPic, TerrIcon: TBitmap;
     ScrollBar: TPVScrollbar;
+    NoMap: TIsoMap;
     x0: array [-2..180] of Integer;
     procedure PaintTerrIcon(x, y, xSrc, ySrc: Integer);
@@ -273 +274 @@
 begin
   inherited;
+  NoMap := TIsoMap.Create;
+
   HistItems := THistItems.Create;
 
@@ -331 +334 @@
   // FreeAndNil(CaptionFont);
   FreeAndNil(HistItems);
+  FreeAndNil(NoMap);
 end;
 
@@ -502 +506 @@
 procedure THelpDlg.PaintTerrIcon(x, y, xSrc, ySrc: integer);
 begin
-  Frame(OffScreen.Canvas, x - 1, y - 1, x + xSizeBig, y + ySizeBig,
-    $000000, $000000);
-  if 2 * yyt < 40 then begin
-    Sprite(OffScreen, HGrTerrain, x, y, 56, 2 * yyt, xSrc, ySrc);
-    Sprite(OffScreen, HGrTerrain, x, y + 2 * yyt, 56, 40 - 2 * yyt,
+  with NoMap do begin
+    Frame(OffScreen.Canvas, x - 1, y - 1, x + xSizeBig, y + ySizeBig,
+      $000000, $000000);
+    if 2 * yyt < 40 then begin
+      Sprite(OffScreen, HGrTerrain, x, y, 56, 2 * yyt, xSrc, ySrc);
+      Sprite(OffScreen, HGrTerrain, x, y + 2 * yyt, 56, 40 - 2 * yyt,
+        xSrc, ySrc);
+    end else
+      Sprite(OffScreen, HGrTerrain, x, y, 56, 40, xSrc, ySrc);
+    Sprite(OffScreen, HGrTerrain, x, y, xxt, yyt, xSrc + xxt, ySrc + yyt);
+    Sprite(OffScreen, HGrTerrain, x, y + yyt, xxt, 40 - yyt, xSrc + xxt, ySrc);
+    Sprite(OffScreen, HGrTerrain, x + xxt, y, 56 - xxt, yyt, xSrc, ySrc + yyt);
+    Sprite(OffScreen, HGrTerrain, x + xxt, y + yyt, 56 - xxt, 40 - yyt,
       xSrc, ySrc);
-  end else
-    Sprite(OffScreen, HGrTerrain, x, y, 56, 40, xSrc, ySrc);
-  Sprite(OffScreen, HGrTerrain, x, y, xxt, yyt, xSrc + xxt, ySrc + yyt);
-  Sprite(OffScreen, HGrTerrain, x, y + yyt, xxt, 40 - yyt, xSrc + xxt, ySrc);
-  Sprite(OffScreen, HGrTerrain, x + xxt, y, 56 - xxt, yyt, xSrc, ySrc + yyt);
-  Sprite(OffScreen, HGrTerrain, x + xxt, y + yyt, 56 - xxt, 40 - yyt,
-    xSrc, ySrc);
+  end;
 end;
 
@@ -605 +611 @@
                     12 + x0[i], -7 + i * 24, 56, 40, 137, 127);
                 1:
-                  begin
+                  with NoMap do begin
                     PaintTerrIcon(12 + x0[i], -7 + i * 24,
                       1 + 3 * (xxt * 2 + 1), 1 + yyt);
@@ -618 +624 @@
                   end;
                 2:
-                  begin
+                  with NoMap do begin
                     PaintTerrIcon(12 + x0[i], -7 + i * 24,
                       1 + 7 * (xxt * 2 + 1), 1 + yyt + 4 * (yyt * 3 + 1));
@@ -703 +709 @@
             end;
           pkTer, pkBigTer:
-            begin
+            with NoMap do begin
               if HelpLineInfo.Format = pkBigTer then
                 y := i * 24 - 3 + yyt
@@ -758 +764 @@
             end;
           pkTerImp:
-            begin
+            with NoMap do begin
               ofs := 8;
               if HelpLineInfo.Picpix = 5 then