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

trunk/LocalPlayer/Diagram.pas

@@ -23 +23 @@
   public
     procedure OffscreenPaint; override;
-    procedure ShowNewContent_Charts(NewMode: integer);
-    procedure ShowNewContent_Ship(NewMode: integer; p: integer = -1);
+    procedure ShowNewContent_Charts(NewMode: TWindowMode);
+    procedure ShowNewContent_Ship(NewMode: TWindowMode; p: integer = -1);
 
   private
@@ -299 +299 @@
 end;
 
-procedure TDiaDlg.ShowNewContent_Charts(NewMode: integer);
+procedure TDiaDlg.ShowNewContent_Charts(NewMode: TWindowMode);
 begin
   Kind := dkChart;
@@ -309 +309 @@
 end;
 
-procedure TDiaDlg.ShowNewContent_Ship(NewMode, p: integer);
+procedure TDiaDlg.ShowNewContent_Ship(NewMode: TWindowMode; p: integer);
 begin
   Kind := dkShip;