Changeset 622 for trunk/Back.pas

Timestamp:

Sep 15, 2024, 10:04:45 PM (4 days ago)

Author:

chronos

Message:

• Modified: Show windows by default on primary screen if multiple monitors present.

File:

• trunk/Back.pas (modified) (3 diffs)

trunk/Back.pas

@@ -18 +18 @@
     procedure FormShow(Sender: TObject);
     procedure FormCreate(Sender: TObject);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     Img: TBitmap;
@@ -54 +53 @@
 begin
   if Assigned(Img) then
-    BitBltCanvas(Canvas, Screen.Width - Img.Width - (Screen.Width - 800) *
-      3 div 8, (Screen.Height - 600) div 3, Img.Width, Img.Height,
+    BitBltCanvas(Canvas, Screen.PrimaryMonitor.Width - Img.Width - (Screen.PrimaryMonitor.Width - 800) *
+      3 div 8, (Screen.PrimaryMonitor.Height - 600) div 3, Img.Width, Img.Height,
       Img.Canvas, 0, 0);
-end;
-
-procedure TBackground.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
 end;
 
@@ -68 +63 @@
 begin
   if FullScreen then begin
+    BoundsRect := Screen.PrimaryMonitor.BoundsRect;
     WindowState := TWindowState.wsFullScreen;
     if not Assigned(Img) then begin