Changeset 460 for trunk/LocalPlayer/Diagram.pas

Timestamp:

Nov 28, 2023, 3:16:24 PM (2 years ago)

Author:

chronos

Message:

• Modified: Do not initialize all local player windows at the start of the game but later when they are really opened. This also fixes window initialization under Qt5 widgetset.

File:

• trunk/LocalPlayer/Diagram.pas (modified) (2 diffs)

trunk/LocalPlayer/Diagram.pas

@@ -9 +9 @@
 
 type
+  TDiagramKind = (dkChart, dkShip);
+
   TDiaDlg = class(TFramedDlg)
     CloseBtn: TButtonB;
@@ -20 +22 @@
     procedure PlayerClick(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
-
   public
     procedure OffscreenPaint; override;
     procedure ShowNewContent_Charts(NewMode: TWindowMode);
     procedure ShowNewContent_Ship(NewMode: TWindowMode; P: Integer = -1);
-
   private
-    Kind: (dkChart, dkShip);
-    Player, Mode: Integer;
-  end;
-
-var
-  DiaDlg: TDiaDlg;
+    Kind: TDiagramKind;
+    Player: Integer;
+    Mode: Integer;
+  end;
 
 procedure PaintColonyShip(Canvas: TCanvas; Player, Left, Width, Top: Integer);
+
 
 implementation