Changeset 179 for branches/highdpi/Back.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

• branches/highdpi/Back.pas (modified) (1 diff)

branches/highdpi/Back.pas

@@ -65 +65 @@
 begin
   if Assigned(Img) then
-    BitBlt(Canvas.Handle, Screen.Width - Img.Width - (Screen.Width - 800) *
+    DpiBitBlt(Canvas.Handle, Screen.Width - Img.Width - (Screen.Width - 800) *
       3 div 8, (Screen.Height - 600) div 3, Img.Width, Img.Height,
       Img.Canvas.Handle, 0, 0, SRCCOPY);