Changeset 471 for trunk/LocalPlayer

Timestamp:

Dec 4, 2023, 12:08:50 AM (13 months ago)

Author:

chronos

Message:

• Fixed: More units uses items corrected for high DPI support.

Location:

trunk/LocalPlayer

Files:

• Battle.pas (modified) (1 diff)
• CityScreen.pas (modified) (1 diff)
• Draft.pas (modified) (1 diff)
• Help.pas (modified) (1 diff)
• MessgEx.pas (modified) (1 diff)
• Nego.pas (modified) (1 diff)
• Select.pas (modified) (1 diff)
• Term.pas (modified) (2 diffs)

trunk/LocalPlayer/Battle.pas

@@ -5 +5 @@
 
 uses
-  ScreenTools, Protocol, ButtonBase, ButtonA, Types, LCLIntf, LCLType, UITypes,
+  ScreenTools, Protocol, ButtonBase, ButtonA, Types, LCLIntf, LCLType,
   SysUtils, Classes, DrawDlg, IsoEngine,
-  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms{$ELSE}
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, System.UITypes{$ELSE}
   Graphics, Controls, Forms{$ENDIF};
 

trunk/LocalPlayer/CityScreen.pas

@@ -8 +8 @@
   Protocol, ClientTools, ScreenTools, IsoEngine, BaseWin, LCLIntf, LCLType,
   Messages, SysUtils, Classes, ButtonA, ButtonC, Area, GraphType, Texture,
-  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls{$ELSE}
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls, System.UITypes{$ELSE}
   Graphics, Controls, Forms, ExtCtrls{$ENDIF};
 

trunk/LocalPlayer/Draft.pas

@@ -6 +6 @@
 uses
   Protocol, ClientTools, ScreenTools, BaseWin, LCLIntf, LCLType, SysUtils,
-  Classes, ButtonA, ButtonB, Area, System.UITypes,
-  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls{$ELSE}
+  Classes, ButtonA, ButtonB, Area,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls,
+  System.UITypes{$ELSE}
   Graphics, Controls, Forms, ExtCtrls{$ENDIF};
 

trunk/LocalPlayer/Help.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ScreenTools, BaseWin, StringTables, Math, LCLIntf, LCLType, System.UITypes,
+  Protocol, ScreenTools, BaseWin, StringTables, Math, LCLIntf, LCLType,
   Messages, SysUtils, Classes, ButtonB, PVSB, Types, Generics.Collections, IsoEngine,
-  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls, Dpi.Common{$ELSE}
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls, Dpi.Common,
+  System.UITypes{$ELSE}
   Graphics, Controls, Forms, ExtCtrls{$ENDIF};
 

trunk/LocalPlayer/MessgEx.pas

@@ -6 +6 @@
 uses
   Messg, Protocol, ScreenTools, Platform, DateUtils, LCLIntf, LCLType, Messages,
-  SysUtils, Classes, ButtonA, ButtonB, DrawDlg, Help, System.UITypes,
-  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.StdCtrls, Dpi.Common{$ELSE}
+  SysUtils, Classes, ButtonA, ButtonB, DrawDlg, Help,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.StdCtrls, Dpi.Common,
+  System.UITypes{$ELSE}
   Graphics, Controls, Forms, StdCtrls{$ENDIF};
 

trunk/LocalPlayer/Nego.pas

@@ -6 +6 @@
 uses
   ScreenTools, BaseWin, Protocol, LCLType, SysUtils, Classes, ButtonA, ButtonB,
-  ButtonN, System.UITypes,
-  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms{$ELSE}
+  ButtonN,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, System.UITypes{$ELSE}
   Graphics, Controls, Forms{$ENDIF};
 

trunk/LocalPlayer/Select.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ClientTools, ScreenTools, PVSB, BaseWin, System.UITypes,
-  LCLIntf, LCLType, Messages, SysUtils, Classes, ButtonB, ButtonBase, Types,
-  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls, Dpi.Menus{$ELSE}
+  Protocol, ClientTools, ScreenTools, PVSB, BaseWin, LCLIntf, LCLType, Messages,
+  SysUtils, Classes, ButtonB, ButtonBase, Types,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls, Dpi.Menus,
+  System.UITypes{$ELSE}
   Graphics, Controls, Forms, ExtCtrls, Menus{$ENDIF};
 

trunk/LocalPlayer/Term.pas

@@ -12 +12 @@
 {$ENDIF}
   Protocol, Tribes, PVSB, ClientTools, ScreenTools, BaseWin, Messg, ButtonBase,
-  LCLIntf, LCLType, SysUtils, Classes, DrawDlg, Types, System.UITypes,
+  LCLIntf, LCLType, SysUtils, Classes, DrawDlg, Types,
   DateUtils, Platform, ButtonB, ButtonC, EOTButton, Area,
   GraphicSet, MiniMap, IsoEngine, Wonders, TechTree, Enhance, Nego, CityType,
@@ -18 +18 @@
   Help,
   {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.Menus, Dpi.ExtCtrls,
-  Dpi.PixelPointer, Dpi.Common{$ELSE}
+  Dpi.PixelPointer, Dpi.Common, System.UITypes{$ELSE}
   Graphics, Controls, Forms, Menus, ExtCtrls, PixelPointer{$ENDIF};