From 345fe7d96039f09f42fdaae7d9b0375bfcd64c0a Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 19 Aug 2019 16:06:13 +0000
Subject: [PATCH] mbColorLib: Extend TScreenForm across all monitors
 (https://forum.lazarus.freepascal.org/index.php/topic,46415.msg331150.html#msg331150,
 idea by forum user "d-_-b")

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7143 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/mbColorLib/ScreenWin.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/components/mbColorLib/ScreenWin.pas b/components/mbColorLib/ScreenWin.pas
index acfb41ce4..1056dbf32 100644
--- a/components/mbColorLib/ScreenWin.pas
+++ b/components/mbColorLib/ScreenWin.pas
@@ -126,10 +126,16 @@ end;
 
 procedure TScreenForm.FormShow(Sender: TObject);
 begin
+  Width := Screen.DesktopWidth;
+  Height := Screen.DesktopHeight;
+  Left := Screen.DesktopLeft;
+  Top := Screen.DesktopTop;
+{
   Width := Screen.Width;
   Height := Screen.Height;
   Left := 0;
   Top := 0;
+}
 end;
 
 function TScreenForm.GetDesktopColor(const X, Y: Integer): TColor;