Posted by Grant Foraker on November 01, 2005 at 14:00:22:
I'm ready to try GetSystemMetrics but couldn't find an example. Several lines in the routine are REM'd out.
So, I'm presuming that I set CosIndex with SM.CXFullScreen or SM.CYFullScreen to request the width and highth of the screen in pixels. And, I get something back. Not quite sure where it will be or what it will look like.
COS.GetSystemMetrics:
cosGetResult = TRUE
GOSUB COS.OutInit
! cosOD.nID$ = INTELD(cosDlgUserID)
! cosOD.hDlg$ = cosCWnd$
cosOD.wParam$ = INTELD(cosIndex)
cosOD.Function$ = cosOVW.GETSYSTEMMETRICS$
.IFDEF TRACE.CALLS
CosProc$ = "GetSystemMetrics"
GOSUB COS.Trace
.ENDIF
GOSUB COS.Send
! cosFuncResult
Return