ElseIf frmOptions.optDisplayBoth.Value = True Then
iResult = dcSizeWinComm(hConLocal, DC_S_RSTR)
If iResult <> 0 Then
iResult = ApiError("dcSizeWinComm", iResult)
End If
End If
' Check to see if the rings to answer field was set to zero.
If (Val(txtAnswerRings.Text) = 0) Then
iResult = MsgBox("The Delrina WinComm PRO Host will NOT answer calls when the" & Chr$(10) & "rings to answer field is set to zero.", MB_OK Or MB_ICONINFORMATION, "Rings to answer error")
End If
' Check for change in Rings to Answer value.
If (iRingsToAnswer <> Val(txtAnswerRings.Text)) Then
If Not (IsNumeric(txtAnswerRings.Text)) Then
iResult = MsgBox("Enter a numeric value for the " & Chr$(10) & "number of rings to answer field.", MB_OK Or MB_ICONSTOP, "Rings to answer error")
txtAnswerRings.SetFocus
Exit Sub
End If
iResult = MsgBox("The change just made will take effect" & Chr$(10) & "the next time you start the Delrina WinComm PRO Host.", MB_OK Or MB_ICONINFORMATION, "Rings to answer")
iRingsToAnswer = Val(txtAnswerRings.Text)
End If
StoreHostSettings
frmOptions.Hide
End Sub
Sub Command1_Click ()
End Sub
Sub Command2_Click ()
frmOptions.Hide
End Sub
Sub Command3_Click ()
End Sub
Sub Form_Activate ()
If (fDIrectConnect) Then
frmOptions.txtInactivityTime.Enabled = False
Else
frmOptions.txtInactivityTime.Enabled = True
End If
End Sub
Sub optDisplayBoth_Click ()
chkHideMonitor.Enabled = True
End Sub
Sub optMonOnly_Click ()
chkHideMonitor.Enabled = False
End Sub
Sub txtWelcomeFile_LostFocus ()
Dim sName As String
Dim iResult As Integer
' Allow for NO welcome file name to be difined.
If frmOptions.txtWelcomeFile.Text = "" Then
sWelcomeFile = sNone
Exit Sub
End If
' If a name is supplied, fully qualify the name and verify the
' existance of that file. Remember to display only the 8.3 portion of the name.
(.txt)