User Tools

Site Tools


setcursor_set_temporary_mouse_cursor_.htm
Navigation:  Language Reference > 13 - Built-in Functions >====== SETCURSOR (set temporary mouse cursor) ====== Previous pageReturn to chapter overviewNext page

SETCURSOR( [cursor] )

blk2blue.jpg

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

setcursor_set_temporary_mouse_cursor_.htm.txt · Last modified: 2021/04/15 15:57 (external edit)