added sysprog entities
This commit is contained in:
78
SYSPROG/STPROCINS/MSWIN_MONITOR_EQUATES.txt
Normal file
78
SYSPROG/STPROCINS/MSWIN_MONITOR_EQUATES.txt
Normal file
@ -0,0 +1,78 @@
|
||||
compile insert msWin_Monitor_Equates
|
||||
/*
|
||||
** Copyright (C) 1992-2015 Revelation Software Inc. All Rights Reserved **
|
||||
|
||||
Author Mr C
|
||||
Date Oct 2015
|
||||
Purpose Equates for use with the Windows Monitor functions
|
||||
|
||||
Amended Date Reason
|
||||
======= ==== ======
|
||||
Mr C 22 Feb 22 Added Monitor Info functions
|
||||
|
||||
*/
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
#ifndef _MSWIN_MONITOR_EQUATES_
|
||||
#define _MSWIN_MONITOR_EQUATES_
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
declare function msWin_GetMonitorInfo
|
||||
declare function msWin_MonitorFromRect, msWin_MonitorFromWindow
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
$uses @APPID*DLLSTRUCT**MSWIN_MONITORINFOEXW
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
// MONITORINFOEX structure constants
|
||||
|
||||
equ MONITORINFOEX$ to "MSWIN_MONITORINFOEXW"
|
||||
|
||||
/*
|
||||
typedef struct tagMONITORINFOEXW
|
||||
{
|
||||
DWORD cbSize;
|
||||
RECT rcMonitor;
|
||||
RECT rcWork;
|
||||
DWORD dwFlags;
|
||||
WCHAR szDevice[CCHDEVICENAME];
|
||||
} MONITORINFOEXW, *LPMONITORINFOEXW;
|
||||
|
||||
#define CCHDEVICENAME 32
|
||||
|
||||
*/
|
||||
|
||||
* // We have defined the MONITORINFOEX to expand out the RECT structures to
|
||||
* // their individual components
|
||||
|
||||
equ MI_POS_CBSIZE$ to 1
|
||||
equ MI_POS_RCMONITOR_LEFT$ to 2
|
||||
equ MI_POS_RCMONITOR_TOP$ to 3
|
||||
equ MI_POS_RCMONITOR_RIGHT$ to 4
|
||||
equ MI_POS_RCMONITOR_BOTTOM$ to 5
|
||||
equ MI_POS_RCWORK_LEFT$ to 6
|
||||
equ MI_POS_RCWORK_TOP$ to 7
|
||||
equ MI_POS_RCWORK_RIGHT$ to 8
|
||||
equ MI_POS_RCWORK_BOTTOM$ to 9
|
||||
equ MI_POS_DWFLAGS$ to 10
|
||||
equ MI_POS_SZDEVICENAME$ to 11
|
||||
|
||||
// MONITORINFOEX dwFlags constants
|
||||
equ MONITORINFOF_PRIMARY$ to 0x00000001
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
equ MONITOR_DEFAULTTONULL$ to 0x00000000
|
||||
equ MONITOR_DEFAULTTOPRIMARY$ to 0x00000001
|
||||
equ MONITOR_DEFAULTTONEAREST$ to 0x00000002
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
#endif
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
|
Reference in New Issue
Block a user