pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

mbColorLib: Extend TScreenForm across all monitors (https://forum.lazarus.freepascal.org/index.php/topic,46415.msg331150.html#msg331150, idea by forum user "d-_-b")

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7143 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-08-19 16:06:13 +00:00
parent c42c96d8f4
commit 345fe7d960
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/mbColorLib/ScreenWin.pas
View File

@ -126,10 +126,16 @@ end;
procedure TScreenForm.FormShow(Sender: TObject); procedure TScreenForm.FormShow(Sender: TObject);
begin begin
Width := Screen.DesktopWidth;
Height := Screen.DesktopHeight;
Left := Screen.DesktopLeft;
Top := Screen.DesktopTop;
{
Width := Screen.Width; Width := Screen.Width;
Height := Screen.Height; Height := Screen.Height;
Left := 0; Left := 0;
Top := 0; Top := 0;
}
end; end;
function TScreenForm.GetDesktopColor(const X, Y: Integer): TColor; function TScreenForm.GetDesktopColor(const X, Y: Integer): TColor;