Changeset 465 for branches/highdpi/LocalPlayer/LocalPlayer.pas

Timestamp:

Nov 30, 2023, 10:16:14 PM (12 months ago)

Author:

chronos

Message:

• Modified: Updated high dpi branch from trunk.
• Modified: Use generics.collections instead of fgl.
• Modified: Compile with Delphi syntax.

File:

• branches/highdpi/LocalPlayer/LocalPlayer.pas (modified) (1 diff)

branches/highdpi/LocalPlayer/LocalPlayer.pas

@@ -4 +4 @@
 interface
 
-procedure Client(Command, Player: integer; var Data); stdcall;
-procedure SetAIName(p: integer; Name: string);
+procedure Client(Command, Player: Integer; var Data); stdcall;
+procedure SetAIName(P: Integer; Name: string);
 
 implementation
 
 uses
-  UDpiControls, Term, CityScreen, Draft, MessgEx, Select, CityType, Help, UnitStat, Diagram,
-  NatStat, Wonders, Nego, Enhance, BaseWin, Battle, Rates, TechTree, Forms;
+  UDpiControls, Term, CityScreen, Nego, BaseWin, Forms;
 
 var
-  FormsCreated: boolean;
+  FormsCreated: Boolean;
 
-procedure Client(Command, Player: integer; var Data);
+procedure Client(Command, Player: Integer; var Data);
 begin
   if not FormsCreated then
   begin
-    FormsCreated := true;
+    FormsCreated := True;
     // TODO: Changing application name in runtime will cause change of Linux XML registry file path
-//    DpiApplication.MainForm := MainScreen;
+//    Application.MainForm := MainScreen;
     DpiApplication.CreateForm(TMainScreen, MainScreen);
-    DpiApplication.CreateForm(TCityDlg, CityDlg);
-    DpiApplication.CreateForm(TModalSelectDlg, ModalSelectDlg);
-    DpiApplication.CreateForm(TListDlg, ListDlg);
-    DpiApplication.CreateForm(TMessgExDlg, MessgExDlg);
-    DpiApplication.CreateForm(TDraftDlg, DraftDlg);
-    DpiApplication.CreateForm(TCityTypeDlg, CityTypeDlg);
-    DpiApplication.CreateForm(THelpDlg, HelpDlg);
-    DpiApplication.CreateForm(TUnitStatDlg, UnitStatDlg);
-    DpiApplication.CreateForm(TDiaDlg, DiaDlg);
-    DpiApplication.CreateForm(TNatStatDlg, NatStatDlg);
-    DpiApplication.CreateForm(TWondersDlg, WondersDlg);
-    DpiApplication.CreateForm(TNegoDlg, NegoDlg);
-    DpiApplication.CreateForm(TEnhanceDlg, EnhanceDlg);
-    DpiApplication.CreateForm(TBattleDlg, BattleDlg);
-    // DpiApplication.CreateForm(TAdvisorDlg, AdvisorDlg);
-    DpiApplication.CreateForm(TRatesDlg, RatesDlg);
-    DpiApplication.CreateForm(TTechTreeDlg, TechTreeDlg);
   end;
   MainScreen.Client(Command, Player, Data);
 end;
 
-procedure SetAIName(p: integer; Name: string);
+procedure SetAIName(P: Integer; Name: string);
 begin
-  MainScreen.SetAIName(p, Name);
+  MainScreen.SetAIName(P, Name);
 end;
 
 initialization
 
-FormsCreated := false;
+FormsCreated := False;
 
 end.