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

Timestamp:

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

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

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

branches/highdpi/LocalPlayer/Draft.pas

@@ -238 +238 @@
   // assemble background from 2 texture tiles
   begin
-    bitblt(Back.Canvas.Handle, 0, 0, ClientWidth, 64,
+    Dpibitblt(Back.Canvas.Handle, 0, 0, ClientWidth, 64,
       MainTexture.Image.Canvas.Handle, (wMainTexture - ClientWidth) div 2,
       hMainTexture - 64, SRCCOPY);
-    bitblt(Back.Canvas.Handle, 0, 64, ClientWidth, ClientHeight - 64,
+    Dpibitblt(Back.Canvas.Handle, 0, 64, ClientWidth, ClientHeight - 64,
       MainTexture.Image.Canvas.Handle, (wMainTexture - ClientWidth) div 2,
       0, SRCCOPY);
   end
   else
-    bitblt(Back.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
+    Dpibitblt(Back.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
       MainTexture.Image.Canvas.Handle, (wMainTexture - ClientWidth) div 2,
       (hMainTexture - ClientHeight) div 2, SRCCOPY);
@@ -253 +253 @@
     Template.Height - 64 - Cut);
 
-  bitblt(offscreen.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
+  Dpibitblt(offscreen.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
     Back.Canvas.Handle, 0, 0, SRCCOPY);