Changeset 431 for trunk/LocalPlayer/UnitStat.pas

Timestamp:

Apr 28, 2022, 10:40:37 PM (3 years ago)

Author:

chronos

Message:

• Modified: Changed WindowMode numerical constants to enumeration.

File:

• trunk/LocalPlayer/UnitStat.pas (modified) (7 diffs)

trunk/LocalPlayer/UnitStat.pas

@@ -28 +28 @@
   public
     procedure CheckAge;
-    procedure ShowNewContent_OwnModel(NewMode, mix: integer);
-    procedure ShowNewContent_OwnUnit(NewMode, uix: integer);
-    procedure ShowNewContent_EnemyUnit(NewMode, euix: integer);
-    procedure ShowNewContent_EnemyLoc(NewMode, Loc: integer);
-    procedure ShowNewContent_EnemyModel(NewMode, emix: integer);
-    procedure ShowNewContent_EnemyCity(NewMode, Loc: integer);
+    procedure ShowNewContent_OwnModel(NewMode: TWindowMode; mix: integer);
+    procedure ShowNewContent_OwnUnit(NewMode: TWindowMode; uix: integer);
+    procedure ShowNewContent_EnemyUnit(NewMode: TWindowMode; euix: integer);
+    procedure ShowNewContent_EnemyLoc(NewMode: TWindowMode; Loc: integer);
+    procedure ShowNewContent_EnemyModel(NewMode: TWindowMode; emix: integer);
+    procedure ShowNewContent_EnemyCity(NewMode: TWindowMode; Loc: integer);
 
   protected
@@ -218 +218 @@
 end;
 
-procedure TUnitStatDlg.ShowNewContent_OwnModel(NewMode, mix: integer);
+procedure TUnitStatDlg.ShowNewContent_OwnModel(NewMode: TWindowMode; mix: integer);
 begin
   Kind := dkOwnModel;
@@ -225 +225 @@
 end;
 
-procedure TUnitStatDlg.ShowNewContent_OwnUnit(NewMode, uix: integer);
+procedure TUnitStatDlg.ShowNewContent_OwnUnit(NewMode: TWindowMode; uix: integer);
 begin
   Kind := dkOwnUnit;
@@ -232 +232 @@
 end;
 
-procedure TUnitStatDlg.ShowNewContent_EnemyUnit(NewMode, euix: integer);
+procedure TUnitStatDlg.ShowNewContent_EnemyUnit(NewMode: TWindowMode; euix: integer);
 begin
   Kind := dkEnemyUnit;
@@ -240 +240 @@
 end;
 
-procedure TUnitStatDlg.ShowNewContent_EnemyLoc(NewMode, Loc: integer);
+procedure TUnitStatDlg.ShowNewContent_EnemyLoc(NewMode: TWindowMode; Loc: integer);
 begin
   Kind := dkEnemyUnit;
@@ -248 +248 @@
 end;
 
-procedure TUnitStatDlg.ShowNewContent_EnemyModel(NewMode, emix: integer);
+procedure TUnitStatDlg.ShowNewContent_EnemyModel(NewMode: TWindowMode; emix: integer);
 begin
   Kind := dkEnemyModel;
@@ -255 +255 @@
 end;
 
-procedure TUnitStatDlg.ShowNewContent_EnemyCity(NewMode, Loc: integer);
+procedure TUnitStatDlg.ShowNewContent_EnemyCity(NewMode: TWindowMode; Loc: integer);
 begin
   if MyMap[Loc] and fUnit <> 0 then