Changeset 178 for branches/highdpi/Integrated.lpr

Timestamp:

Jun 23, 2019, 3:15:29 PM (5 years ago)

Author:

chronos

Message:

• Modified: Use DpiControls package for High DPI support.

File:

• branches/highdpi/Integrated.lpr (modified) (3 diffs)

branches/highdpi/Integrated.lpr

@@ -24 +24 @@
   Term in 'LocalPlayer\Term.pas' {MainScreen} ,
   MessgEx in 'LocalPlayer\MessgEx.pas' {MessgExDlg} ,
+  BaseWin in 'LocalPlayer\BaseWin.pas',
   Help in 'LocalPlayer\Help.pas' {HelpDlg} ,
   Select in 'LocalPlayer\Select.pas' {ListDlg} ,
@@ -39 +40 @@
   Rates in 'LocalPlayer\Rates.pas' {RatesDlg} ,
   TechTree in 'LocalPlayer\TechTree.pas' {TechTreeDlg},
-  ScreenTools, Directories;
+  ScreenTools, Directories, UDpiControls;
 
 {$if declared(UseHeapTrace)}
@@ -56 +57 @@
 
   DotNetClient := nil;
-  Application.Initialize;
-  Application.Title := 'c-evo';
+  DpiApplication.Initialize;
+  DpiApplication.Title := 'c-evo';
   Directories.InitUnit;
   ScreenTools.UnitInit;
-  Application.CreateForm(TDirectDlg, DirectDlg);
-  Application.CreateForm(TStartDlg, StartDlg);
-  Application.CreateForm(TMessgDlg, MessgDlg);
-  Application.CreateForm(TInputDlg, InputDlg);
-  Application.CreateForm(TBackground, Background);
-  Application.CreateForm(TLogDlg, LogDlg);
-  Application.Run;
+  DpiApplication.CreateForm(TDirectDlg, DirectDlg);
+  DpiApplication.CreateForm(TStartDlg, StartDlg);
+  DpiApplication.CreateForm(TMessgDlg, MessgDlg);
+  DpiApplication.CreateForm(TInputDlg, InputDlg);
+  DpiApplication.CreateForm(TBackground, Background);
+  DpiApplication.CreateForm(TLogDlg, LogDlg);
+  DpiApplication.Run;
   ScreenTools.UnitDone;
 end.