Changeset 460 for trunk/Packages/CevoComponents/BaseWin.pas

Timestamp:

Nov 28, 2023, 3:16:24 PM (6 months 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/Packages/CevoComponents/BaseWin.pas (modified) (5 diffs)

trunk/Packages/CevoComponents/BaseWin.pas

@@ -14 +14 @@
 
   TBufferedDrawDlg = class(TDrawDlg)
-  public
-    UserLeft: Integer;
-    UserTop: Integer;
-    constructor Create(AOwner: TComponent); override;
-    destructor Destroy; override;
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure FormPaint(Sender: TObject);
-    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
-    procedure FormDeactivate(Sender: TObject);
-    procedure SmartUpdateContent(ImmUpdate: Boolean = False);
-    procedure StayOnTop_Workaround;
   protected
     FWindowMode: TWindowMode;
@@ -34 +23 @@
     procedure VPaint; virtual;
   public
+    UserLeft: Integer;
+    UserTop: Integer;
     UsedOffscreenWidth: Integer;
     UsedOffscreenHeight: Integer;
     Offscreen: TBitmap;
     OffscreenUser: TForm;
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormPaint(Sender: TObject);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure FormDeactivate(Sender: TObject);
+    procedure SmartUpdateContent(ImmUpdate: Boolean = False);
+    procedure StayOnTop_Workaround;
     property WindowMode: TWindowMode read FWindowMode;
   end;
 
   TFramedDlg = class(TBufferedDrawDlg)
-  public
-    constructor Create(AOwner: TComponent); override;
-    procedure FormCreate(Sender: TObject);
-    procedure SmartInvalidate; override;
   protected
     CaptionLeft: Integer;
@@ -58 +53 @@
     procedure VPaint; override;
     procedure FillOffscreen(Left, Top, Width, Height: Integer);
+  public
+    constructor Create(AOwner: TComponent); override;
+    procedure FormCreate(Sender: TObject);
+    procedure SmartInvalidate; override;
   end;
 
@@ -120 +119 @@
     UserTop := Top;
   end;
-  if OffscreenUser = self then
+  if OffscreenUser = Self then
     OffscreenUser := nil;
 end;
@@ -126 +125 @@
 procedure TBufferedDrawDlg.FormPaint(Sender: TObject);
 begin
-  if OffscreenUser <> self then
+  if OffscreenUser <> Self then
     OffscreenPaint;
   VPaint;