Changeset 623

Timestamp:

Sep 15, 2024, 10:48:56 PM (14 months ago)

Author:

chronos

Message:

• Modified: Avoid using screen size in Background painting.

File:

• trunk/Back.pas (modified) (1 diff)

trunk/Back.pas

@@ -53 +53 @@
 begin
   if Assigned(Img) then
-    BitBltCanvas(Canvas, Screen.PrimaryMonitor.Width - Img.Width - (Screen.PrimaryMonitor.Width - 800) *
-      3 div 8, (Screen.PrimaryMonitor.Height - 600) div 3, Img.Width, Img.Height,
+    BitBltCanvas(Canvas, Width - Img.Width - (Width - 800) *
+      3 div 8, (Height - 600) div 3, Img.Width, Img.Height,
       Img.Canvas, 0, 0);
 end;