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

Timestamp:

May 9, 2020, 4:02:07 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved HighDPI branch. Imported new changes from trunk branch.

File:

• branches/highdpi/LocalPlayer/LocalPlayer.pas (modified) (2 diffs)

branches/highdpi/LocalPlayer/LocalPlayer.pas

@@ -11 +11 @@
 
 uses
-  Term, CityScreen, Draft, MessgEx, Select, CityType, Help, UnitStat, Diagram,
+  UDpiControls, Term, CityScreen, Draft, MessgEx, Select, CityType, Help, UnitStat, Diagram,
   NatStat, Wonders, Nego, Enhance, BaseWin, Battle, Rates, TechTree,
 
@@ -25 +25 @@
     FormsCreated := true;
     // TODO: Changing application name in runtime will cause change of Linux XML registry file path
-//    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);
+//    DpiApplication.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);