The following Visual Basic example demonstrates the use of three scroll controls for real-time adjustment of the white shading:
Private SubForm_Load() ActiveDcam1.Acquire=True
HScroll1.Min = ActiveDcam1.GetWhiteShadingMin
HScroll1.Max = ActiveDcam1.GetWhiteShadingMax
HScroll2.Min = ActiveDcam1.GetWhiteShadingMin
HScroll2.Max = ActiveDcam1.GetWhiteShadingMax
HScroll2.Min = ActiveDcam1.GetWhiteShadingMin
HScroll2.Max = ActiveDcam1.GetWhiteShadingMax
End Sub
Private SubHScroll1_Scroll() ActiveDcam1.WhiteShading = RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value) End Sub
Private SubHScroll2_Scroll() ActiveDcam1.WhiteShading = RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value) End Sub
Private SubHScroll3_Scroll() ActiveDcam1.WhiteShading = RGB(HScroll1.Value,HScroll3.Value,HScroll3.Value) End Sub
Remarks
This property changes the tint of the white color by adjusting its red, green and blue shading. The valid property range is reported by the GetWhiteShadingMin and GetWhiteShadingMax methods. Note that the property is available only if the currently selected camera is a color one and supports white shading control.