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

trunk/LocalPlayer/Help.pas

@@ -108 +108 @@
     procedure Line(ca: TCanvas; i: Integer; lit: Boolean);
     procedure Prepare(sbPos: Integer = 0);
-    procedure ShowNewContentProcExecute(NewMode: Integer; HelpContext: string);
+    procedure ShowNewContentProcExecute(NewMode: TWindowMode; HelpContext: string);
     procedure WaterSign(x0, y0, iix: Integer);
     procedure Search(SearchString: string);
@@ -117 +117 @@
     Difficulty: Integer;
     procedure ClearHistory;
-    procedure ShowNewContent(NewMode, Category, Index: Integer);
+    procedure ShowNewContent(NewMode: TWindowMode; Category, Index: Integer);
     function TextIndex(Item: string): Integer;
   end;
@@ -316 +316 @@
 end;
 
-procedure THelpDlg.ShowNewContentProcExecute(NewMode: Integer;
+procedure THelpDlg.ShowNewContentProcExecute(NewMode: TWindowMode;
   HelpContext: string);
 begin
@@ -1931 +1931 @@
 end;
 
-procedure THelpDlg.ShowNewContent(NewMode, Category, Index: Integer);
+procedure THelpDlg.ShowNewContent(NewMode: TWindowMode; Category, Index: Integer);
 begin
   if (Category <> Kind) or (Index <> no) or (Category = hkMisc) and