Changeset 178 for branches/highdpi/LocalPlayer/CityScreen.pas

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/LocalPlayer/CityScreen.pas (modified) (4 diffs)

branches/highdpi/LocalPlayer/CityScreen.pas

@@ -8 +8 @@
   LMessages,
   {$ENDIF}
-  Protocol, ClientTools, Term, ScreenTools, IsoEngine, BaseWin,
+  Protocol, ClientTools, Term, ScreenTools, IsoEngine, BaseWin, UDpiControls,
   LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
   ButtonA, ButtonC, Area, GraphType;
@@ -74 +74 @@
     AreaMap: TIsoMap;
     CityMapTemplate, SmallCityMapTemplate, Back, SmallCityMap, ZoomCityMap,
-      Template: TBitmap;
+      Template: TDpiBitmap;
     IsPort, ProdHint, AllowChange: boolean;
     procedure InitSmallCityMap;
@@ -90 +90 @@
 
 uses
-  Select, Messg, MessgEx, Help, Tribes, Directories, Math, PixelPointer, Sound;
+  Select, Messg, MessgEx, Help, Tribes, Directories, Math;
 
 {$R *.lfm}
@@ -210 +210 @@
   end;
 
-  Back := TBitmap.Create;
+  Back := TDpiBitmap.Create;
   Back.PixelFormat := pf24bit;
   Back.SetSize(Width, Height);
   Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);
-  Template := TBitmap.Create;
+  Template := TDpiBitmap.Create;
   Template.PixelFormat := pf24bit;
   LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'City.png', gfNoGamma);
-  CityMapTemplate := TBitmap.Create;
+  CityMapTemplate := TDpiBitmap.Create;
   CityMapTemplate.PixelFormat := pf24bit;
   LoadGraphicFile(CityMapTemplate, HomeDir + 'Graphics' + DirectorySeparator + 'BigCityMap.png', gfNoGamma);
-  SmallCityMapTemplate := TBitmap.Create;
+  SmallCityMapTemplate := TDpiBitmap.Create;
   SmallCityMapTemplate.PixelFormat := pf24bit;
   LoadGraphicFile(SmallCityMapTemplate, HomeDir + 'Graphics' + DirectorySeparator + 'SmallCityMap.png',
     gfNoGamma);
-  SmallCityMap := TBitmap.Create;
+  SmallCityMap := TDpiBitmap.Create;
   SmallCityMap.PixelFormat := pf24bit;
   SmallCityMap.SetSize(98, 74);
   SmallCityMap.Canvas.FillRect(0, 0, SmallCityMap.Width, SmallCityMap.Height);
-  ZoomCityMap := TBitmap.Create;
+  ZoomCityMap := TDpiBitmap.Create;
   ZoomCityMap.PixelFormat := pf24bit;
   ZoomCityMap.SetSize(228, 124);