Class: | tsbaseform |
*-- Changes the mouse cursor for the form and all it's children based *-- on the value of the tlWaitMode parameter LPARAMETERS tlWaitMode lnMousePointer = IIF(tlWaitMode, MOUSE_HOURGLASS, MOUSE_DEFAULT) thisform.MousePointer = lnMousePointer thisform.SetAll('MousePointer', lnMousePointer)