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

trunk/LocalPlayer/Nego.pas

@@ -75 +75 @@
     procedure Start; // next turn of negotiation
     procedure OffscreenPaint; override;
-    procedure ShowNewContent(NewMode: integer);
+    procedure ShowNewContent(NewMode: TWindowMode);
 
   private
@@ -192 +192 @@
 end;
 
-procedure TNegoDlg.ShowNewContent(NewMode: integer);
+procedure TNegoDlg.ShowNewContent(NewMode: TWindowMode);
 begin
   inherited ShowNewContent(NewMode);
@@ -648 +648 @@
   if (X >= xNationPicture0) and (X < xNationPicture0 + 64) and
     (Y >= yNationPicture) and (Y < yNationPicture + 48) then
-    NatStatDlg.ShowNewContent(FWindowMode or wmPersistent, DipMem[me].pContact)
+    NatStatDlg.ShowNewContent(WindowModePersistent(FWindowMode), DipMem[me].pContact)
   else if (X >= xNationPicture1) and (X < xNationPicture1 + 64) and
     (Y >= yNationPicture) and (Y < yNationPicture + 48) then
-    NatStatDlg.ShowNewContent(FWindowMode or wmPersistent, me)
+    NatStatDlg.ShowNewContent(WindowModePersistent(FWindowMode), me)
 end;