Changeset 478

Timestamp:

Dec 6, 2023, 12:24:20 AM (12 months ago)

Author:

chronos

Message:

• Fixed: UnitStat height.

Location:

trunk/LocalPlayer

Files:

• UnitStat.lfm (modified) (1 diff)
• UnitStat.pas (modified) (1 diff)

trunk/LocalPlayer/UnitStat.lfm

@@ -16 +16 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '1.6.2.0'
+  LCLVersion = '2.2.6.0'
   PixelsPerInch = 96
   Scaled = False

trunk/LocalPlayer/UnitStat.pas

@@ -154 +154 @@
   end;
   case Kind of
-    dkOwnModel: ClientHeight := hOwnModel;
-    dkOwnUnit: ClientHeight := hEnemyUnit;
-    dkEnemyModel: ClientHeight := hEnemyModel;
-    dkEnemyUnit: ClientHeight := hEnemyUnit;
-    dkEnemyCityDefense: ClientHeight := hEnemyCityDefense;
-    dkEnemyCity: ClientHeight := hEnemyCity;
+    dkOwnModel: Height := hOwnModel;
+    dkOwnUnit: Height := hEnemyUnit;
+    dkEnemyModel: Height := hEnemyModel;
+    dkEnemyUnit: Height := hEnemyUnit;
+    dkEnemyCityDefense: Height := hEnemyCityDefense;
+    dkEnemyCity: Height := hEnemyCity;
   end;