Changeset 431 for trunk/LocalPlayer/CityType.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Changed WindowMode numerical constants to enumeration.

File:

• trunk/LocalPlayer/CityType.pas (modified) (4 diffs)

trunk/LocalPlayer/CityType.pas

@@ -24 +24 @@
     procedure DeleteBtnClick(Sender: TObject);
   public
-    procedure ShowNewContent(NewMode: integer);
+    procedure ShowNewContent(NewMode: TWindowMode);
   protected
     procedure OffscreenPaint; override;
@@ -226 +226 @@
 end;
 
-procedure TCityTypeDlg.ShowNewContent(NewMode: integer);
+procedure TCityTypeDlg.ShowNewContent(NewMode: TWindowMode);
 begin
   inherited ShowNewContent(NewMode);
@@ -246 +246 @@
   begin
     if ssShift in Shift then
-      HelpDlg.ShowNewContent(FWindowMode or wmPersistent, hkImp,
+      HelpDlg.ShowNewContent(WindowModePersistent(FWindowMode), hkImp,
         MyData.ImpOrder[ctype, i])
     else
@@ -263 +263 @@
   begin
     if ssShift in Shift then
-      HelpDlg.ShowNewContent(FWindowMode or wmPersistent, hkImp, Pooliix[i])
+      HelpDlg.ShowNewContent(WindowModePersistent(FWindowMode), hkImp, Pooliix[i])
     else
     begin