Changeset 314 for trunk/LocalPlayer/Tribes.pas

Timestamp:

Mar 18, 2021, 9:46:52 PM (3 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/Tribes.pas (modified) (8 diffs)

trunk/LocalPlayer/Tribes.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ScreenTools, LazFileUtils, Classes, Graphics, SysUtils, Global;
+  Protocol, ScreenTools, LazFileUtils, Classes, Graphics, SysUtils, Global,
+  UGraphicSet;
 
 type
@@ -14 +15 @@
 
   TModelPicture = record
-    HGr: TGrExtDescr;
+    HGr: TGraphicSet;
     pix: Integer;
     xShield: Integer;
@@ -29 +30 @@
 
   TTribe = class
-    symHGr: TGrExtDescr;
+    symHGr: TGraphicSet;
     sympix: Integer;
-    faceHGr: TGrExtDescr;
+    faceHGr: TGraphicSet;
     facepix: Integer;
-    cHGr: TGrExtDescr;
+    cHGr: TGraphicSet;
     cpix: Integer;
     // symbol and city graphics
@@ -62 +63 @@
 var
   Tribe: array [0 .. nPl - 1] of TTribe;
-  HGrStdUnits: TGrExtDescr;
+  HGrStdUnits: TGraphicSet;
 
 procedure Init;
@@ -70 +71 @@
 procedure FindStdModelPicture(Code: Integer; var pix: Integer; var Name: string);
 function GetTribeInfo(FileName: string; var Name: string; var Color: TColor): Boolean;
-procedure FindPosition(HGr: TGrExtDescr; x, y, xmax, ymax: Integer; Mark: TColor;
+procedure FindPosition(HGr: TGraphicSet; x, y, xmax, ymax: Integer; Mark: TColor;
   var xp, yp: Integer);
 
@@ -82 +83 @@
   TChosenModelPictureInfo = record
     Hash: Integer;
-    HGr: TGrExtDescr;
+    HGr: TGraphicSet;
     pix: Integer;
     ModelName: ShortString;
@@ -328 +329 @@
 end;
 
-procedure FindPosition(HGr: TGrExtDescr; x, y, xmax, ymax: Integer; Mark: TColor;
+procedure FindPosition(HGr: TGraphicSet; x, y, xmax, ymax: Integer; Mark: TColor;
   var xp, yp: Integer);
 begin
@@ -560 +561 @@
   i: Integer;
   Cnt: Integer;
-  HGr: TGrExtDescr;
+  HGr: TGraphicSet;
   Used: Integer;
   LeastUsed: Integer;