Changeset 314 for trunk/LocalPlayer/IsoEngine.pas

Timestamp:

Mar 18, 2021, 9:46:52 PM (4 years ago)

Author:

chronos

Message:

• Added: Graphic set can now load dimensions of its graphic set items from a file. This effort should help with elimination of hardcoded graphic items dimensions in graphics sets. Gradually all graphic sets should have description of their items.

File:

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

trunk/LocalPlayer/IsoEngine.pas

@@ -6 +6 @@
 uses
   Protocol, ClientTools, ScreenTools, Tribes, {$IFNDEF SCR}Term, {$ENDIF}
-  LCLIntf, LCLType, SysUtils, Classes, Graphics, UPixelPointer;
+  LCLIntf, LCLType, SysUtils, Classes, Graphics, UPixelPointer, UGraphicSet;
 
 type
@@ -51 +51 @@
     procedure FillRect(x, y, Width, Height, Color: integer);
     procedure Textout(x, y, Color: integer; const s: string);
-    procedure Sprite(HGr: TGrExtDescr; xDst, yDst, Width, Height, xGr, yGr: integer);
+    procedure Sprite(HGr: TGraphicSet; xDst, yDst, Width, Height, xGr, yGr: integer);
     procedure TSprite(xDst, yDst, grix: integer; PureBlack: boolean = false);
 
@@ -144 +144 @@
   xSrc: Integer;
   ySrc: Integer;
-  HGrTerrainNew: TGrExtDescr;
-  HGrCitiesNew: TGrExtDescr;
+  HGrTerrainNew: TGraphicSet;
+  HGrCitiesNew: TGraphicSet;
   Age: Integer;
   Size: Integer;
@@ -534 +534 @@
 end;
 
-procedure TIsoMap.Sprite(HGr: TGrExtDescr; xDst, yDst, Width, Height, xGr, yGr: integer);
+procedure TIsoMap.Sprite(HGr: TGraphicSet; xDst, yDst, Width, Height, xGr, yGr: integer);
 begin
   BitBltBitmap(HGr.Mask, xDst, yDst, Width, Height, xGr, yGr, SRCAND);
@@ -640 +640 @@
 var
   age: Integer;
-  cHGr: TGrExtDescr;
+  cHGr: TGraphicSet;
   cpix: Integer;
   xGr: Integer;