Kofax DOKuStar Validation User Manual

Page 109

Advertising
background image

DOKuStar Validation for Ascent Capture

Page

105

Private Sub colorDoc(doc As Document, bnOK As Boolean)
Dim lngRed As Long
Dim lngGreen As Long
Dim lngBlue As Long
Dim cs As ColorService

Set cs = doc.Services("Color")
lngRed = 0
lngGreen = 0
lngBlue = 0

' display processed documents in different colors...
If bnOK Then
lngGreen = 255
cs.SetForeColor lngRed, lngGreen, lngBlue '...document without an empty field
Else
lngBlue = 255
cs.SetForeColor lngRed, lngGreen, lngBlue '...document contain at least one empty field
End If
End Sub

Advertising