Changeset 193 for branches/highdpi/Back.pas

Timestamp:

May 7, 2020, 7:05:57 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved code in HighDPI branch.

File:

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

branches/highdpi/Back.pas

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