Changeset 460 for trunk/LocalPlayer/LocalPlayer.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/LocalPlayer.pas (modified) (2 diffs)

trunk/LocalPlayer/LocalPlayer.pas

@@ -10 +10 @@
 
 uses
-  Term, CityScreen, Draft, MessgEx, Select, CityType, Help, UnitStat, Diagram,
-  NatStat, Wonders, Nego, Enhance, BaseWin, Battle, Rates, TechTree, Forms;
+  Term, CityScreen, Nego, BaseWin, Forms;
 
 var
@@ -24 +23 @@
 //    Application.MainForm := MainScreen;
     Application.CreateForm(TMainScreen, MainScreen);
-    Application.CreateForm(TCityDlg, CityDlg);
-    Application.CreateForm(TModalSelectDlg, ModalSelectDlg);
-    Application.CreateForm(TListDlg, ListDlg);
-    Application.CreateForm(TMessgExDlg, MessgExDlg);
-    Application.CreateForm(TDraftDlg, DraftDlg);
-    Application.CreateForm(TCityTypeDlg, CityTypeDlg);
-    Application.CreateForm(THelpDlg, HelpDlg);
-    Application.CreateForm(TUnitStatDlg, UnitStatDlg);
-    Application.CreateForm(TDiaDlg, DiaDlg);
-    Application.CreateForm(TNatStatDlg, NatStatDlg);
-    Application.CreateForm(TWondersDlg, WondersDlg);
-    Application.CreateForm(TNegoDlg, NegoDlg);
-    Application.CreateForm(TEnhanceDlg, EnhanceDlg);
-    Application.CreateForm(TBattleDlg, BattleDlg);
-    // Application.CreateForm(TAdvisorDlg, AdvisorDlg);
-    Application.CreateForm(TRatesDlg, RatesDlg);
-    Application.CreateForm(TTechTreeDlg, TechTreeDlg);
   end;
   MainScreen.Client(Command, Player, Data);