Changeset 431 for trunk/LocalPlayer/Wonders.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/Wonders.pas (modified) (3 diffs)

trunk/LocalPlayer/Wonders.pas

@@ -28 +28 @@
   public
     procedure OffscreenPaint; override;
-    procedure ShowNewContent(NewMode: Integer);
+    procedure ShowNewContent(NewMode: TWindowMode);
   end;
 
@@ -81 +81 @@
 end;
 
-procedure TWondersDlg.ShowNewContent(NewMode: Integer);
+procedure TWondersDlg.ShowNewContent(NewMode: TWindowMode);
 begin
   inherited ShowNewContent(NewMode);
@@ -351 +351 @@
 begin
   if Selection >= 0 then
-    HelpDlg.ShowNewContent(FWindowMode or wmPersistent, hkImp, Selection);
+    HelpDlg.ShowNewContent(WindowModePersistent(FWindowMode), hkImp, Selection);
 end;