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

trunk/LocalPlayer/Enhance.pas

@@ -39 +39 @@
     NoMap: TIsoMap;
   public
-    procedure ShowNewContent(NewMode: integer; TerrType: integer = -1);
+    procedure ShowNewContent(NewMode: TWindowMode; TerrType: integer = -1);
   protected
     Page: integer;
@@ -117 +117 @@
 end;
 
-procedure TEnhanceDlg.ShowNewContent(NewMode, TerrType: integer);
+procedure TEnhanceDlg.ShowNewContent(NewMode: TWindowMode; TerrType: integer);
 begin
   if (TerrType < fGrass) or (TerrType > fMountains) then
@@ -384 +384 @@
   ShortCut := KeyToShortCut(Key, Shift);
   if BHelp.Test(ShortCut) then
-    HelpDlg.ShowNewContent(FWindowMode or wmPersistent, hkText,
+    HelpDlg.ShowNewContent(WindowModePersistent(FWindowMode), hkText,
       HelpDlg.TextIndex('MACRO'))
 end;