Product: | Elvis |
Booth: | 2005-01-19 |
Summary
To start the operator station in full screen mode, you can use the command line parameter “/k” (kiosk mode). However, this will also enable a password prompt when exiting full-screen mode.
This article describes an alternative way to use the operator station’s event processing.
Note: In later versions of Elvis (higher than 2.3.234), this functionality will also be more easily available via a command line parameter “/f” (FullScreen mode).
Details
The idea is to switch the operator station to full screen mode in the Form_Load event of the start page:
CODE:vb:Sub Form_Load()
If Not IsFullScreen() Then
Application.DoCommand “ToggleFullScreen”
End If
End Sub //CODE
The query “Not IsFullScreen()” is required to prevent the full screen mode from being exited again when the start page is called again.
The function “IsFullScreen ” is defined in the start page under (“global”):
CODE:vb:Type Rect
nLeft As Long
nTop As Long
nRight As Long
nBottom As Long
End Type
Declare Function GetActiveWindow Lib “User32” () As Long
Declare Sub GetWindowRect Lib “User32” (ByVal hWnd As Long, ByRef lpRect As Rect)
Declare Function GetSystemMetrics Lib “User32” (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Function IsFullScreen() As Boolean
Dim hWnd As Long
Dim r As Rect hWnd = GetActiveWindow()
If hWnd = 0 Then
IsFullScreen = False
Else
GetWindowRect hWnd, r
If r.nRight – r.nLeft > GetSystemMetrics(SM_CXSCREEN) Then
IsFullScreen = True
Else
IsFullScreen = False
End If
End If
End Function //CODE
It compares the width of the active window with the width of the screen (in full-screen mode, the operator panel window is wider than the screen to make the edge invisible).