| Navigation: Language Reference > 13 - Built-in Functions >====== SETCURSOR (set temporary mouse cursor) ====== |    |
SETCURSOR( [cursor] )
| SETCURSOR | Specifies a temporary mouse cursor to display. |
| cursor | An EQUATE naming a Windows-standard mouse cursor, or a string constant naming a cursor resource linked into the project–the name of a .CUR file with a leading tilde ('~Mycur.CUR'). If omitted, turns off the temporary cursor. |
The SETCURSOR statement specifies a temporary mouse cursor to display until a SETCURSOR statement without a cursor parameter turns it off. This cursor overrides all CURSOR attributes. When SETCURSOR without a cursor parameter is encountered, all CURSOR attributes once again take effect. SETCURSOR is generally used to display the hourglass while your program is doing some “behind the scenes” work that the user should not break into.
EQUATE statements for the Windows-standard mouse cursors are contained in the EQUATES.CLW file. The following list is a representative sample of these (see EQUATES.CLW for the complete list):
| CURSOR:None | No mouse cursor |
| CURSOR:Arrow | Normal windows arrow cursor |
| CURSOR:IBeam | Capital “I” like a steel I-beam |
| CURSOR:Wait | Hourglass |
| CURSOR:Cross | Large plus sign |
| CURSOR:UpArrow | Vertical arrow |
| CURSOR:Size | Four-headed arrow |
| CURSOR:Icon | Box within a box |
| CURSOR:SizeNWSE | Double-headed arrow slanting left |
| CURSOR:SizeNESW | Double-headed arrow slanting right |
| CURSOR:SizeWE | Double-headed horizontal arrow |
| CURSOR:SizeNS | Double-headed vertical arrow |
Example:
MainWin APPLICATION('My Application'),SYSTEM,MAX,ICON('MyIcon.ICO'),STATUS,HVSCROLL
MENUBAR
ITEM('Batch Update'),USE(?Batch)
END
END
CODE
OPEN(MainWin)
ACCEPT
CASE ACCEPTED()
OF ?Batch
SETCURSOR(CURSOR:Wait) !Turn on hourglass mouse cursor
BatchUpdate !and call the batch update procedure
SETCURSOR !then turn off hourglass
END
END