Changeset 179 for branches/highdpi/LocalPlayer/CityType.pas

Timestamp:

Jun 23, 2019, 9:12:54 PM (5 years ago)

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

• branches/highdpi/LocalPlayer/CityType.pas (modified) (4 diffs)

branches/highdpi/LocalPlayer/CityType.pas

@@ -39 +39 @@
   CityTypeDlg: TCityTypeDlg;
 
+
 implementation
 
-uses Help;
+uses
+  Help, UDpiControls;
 
 {$R *.lfm}
@@ -114 +116 @@
         xSwitch + 38 + i * 42, ySwitch + 22, MainTexture.clBevelLight,
         MainTexture.clBevelShade);
-    BitBlt(offscreen.Canvas.Handle, xSwitch + 2 + i * 42, ySwitch + 2,
+    DpiBitBlt(offscreen.Canvas.Handle, xSwitch + 2 + i * 42, ySwitch + 2,
       xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle, (i + 3) * xSizeSmall,
       0, SRCCOPY)
@@ -149 +151 @@
       yList + 16 + ySizeSmall div 2 + i div nListCol * 32,
       MainTexture.clBevelLight, MainTexture.clBevelShade);
-    BitBlt(offscreen.Canvas.Handle, xList + 21 - xSizeSmall div 2 +
+    DpiBitBlt(offscreen.Canvas.Handle, xList + 21 - xSizeSmall div 2 +
       i mod nListCol * 42, yList + 16 - ySizeSmall div 2 + i div nListCol * 32,
       xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle,
@@ -172 +174 @@
         nPool div nPoolCol * 32, MainTexture.clBevelLight,
         MainTexture.clBevelShade);
-      BitBlt(offscreen.Canvas.Handle, xPool + 21 - xSizeSmall div 2 +
+      DpiBitBlt(offscreen.Canvas.Handle, xPool + 21 - xSizeSmall div 2 +
         nPool mod nPoolCol * 42, yPool + 16 - ySizeSmall div 2 +
         nPool div nPoolCol * 32, xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle,