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

trunk/LocalPlayer/Draft.pas

@@ -28 +28 @@
       Shift: TShiftState; x, y: integer);
   public
-    procedure ShowNewContent(NewMode: integer);
+    procedure ShowNewContent(NewMode: TWindowMode);
   protected
     procedure OffscreenPaint; override;
@@ -502 +502 @@
 end;
 
-procedure TDraftDlg.ShowNewContent(NewMode: integer);
+procedure TDraftDlg.ShowNewContent(NewMode: TWindowMode);
 begin
   inherited ShowNewContent(NewMode);
@@ -532 +532 @@
       i := (y - yFeature) div LinePitch;
       if (x >= xFeature - 21) and (x < ClientWidth) and (ssShift in Shift) then
-        HelpDlg.ShowNewContent(FWindowMode or wmPersistent, hkFeature, code[i])
+        HelpDlg.ShowNewContent(WindowModePersistent(FWindowMode), hkFeature, code[i])
       else if not(code[i] in AutoFeature) then
       begin