Changeset 460 for trunk/LocalPlayer/MessgEx.pas

Timestamp:

Nov 28, 2023, 3:16:24 PM (12 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/LocalPlayer/MessgEx.pas (modified) (6 diffs)

trunk/LocalPlayer/MessgEx.pas

@@ -49 +49 @@
   end;
 
-var
-  MessgExDlg: TMessgExDlg;
 
 procedure SoundMessageEx(SimpleText, SoundItem: string);
@@ -458 +456 @@
 begin
   if Kind = mkOkHelp then
-    HelpDlg.ShowNewContent(wmSubmodal, HelpKind, HelpNo)
+    MainScreen.HelpDlg.ShowNewContent(wmSubmodal, HelpKind, HelpNo)
   else if Kind = mkModel then
-    UnitStatDlg.ShowNewContent_OwnModel(wmSubmodal, IconIndex)
+    MainScreen.UnitStatDlg.ShowNewContent_OwnModel(wmSubmodal, IconIndex)
   else
     ModalResult := mrIgnore;
@@ -489 +487 @@
 // because Messg.SoundMessage not capable of movie mode
 begin
-  with MessgExDlg do
+  with MainScreen.MessgExDlg do
   begin
     MessgText := SimpleText;
@@ -500 +498 @@
 procedure TribeMessage(P: Integer; SimpleText, SoundItem: string);
 begin
-  with MessgExDlg do
+  with MainScreen.MessgExDlg do
   begin
     OpenSound := SoundItem;
@@ -514 +512 @@
   : Integer;
 begin
-  with MessgExDlg do
+  with MainScreen.MessgExDlg do
   begin
     MessgText := SimpleText;
@@ -527 +525 @@
   ContextKind: TLinkCategory; ContextNo: Integer);
 begin
-  with MessgExDlg do
+  with MainScreen.MessgExDlg do
   begin
     MessgText := SimpleText;