Set Mouse Cursor

? TAB(-10, AG_SETCURSOR); chr(CursorCode); chr(127);

AG_SETCURSOR (50) allows you to change the mouse cursor to the symbol of your choice, from the normal A-Shell/Windows cursor of an "I Beam" (which changes automatically to an arrow when the mouse is moved over a button or the menu bar). The value of CursorCode determines the cursor symbol, from the table below:

CursorCode

Description

 

CursorCode

Description

32

Arrow

 

44

Watch 4

35

Pointing hand

 

45

Watch 5

40

Hourglass

 

46

Watch 6

41

Watch 1

 

47

Watch 7

42

Watch 2

 

48

I-Beam

43

Watch 3

 

 

 

 

For example, while performing an operation that may take a few seconds, like building a list of customers to load into an XTREE, you can set the cursor to an hourglass with this command:

PRINT TAB(-10,AG_SETCURSOR);chr(40);chr(127);     ! set cursor to hourglass

For backwards compatibility, A-Shell/Windows and ATE also support the older Tab(-1,160) command:

print tab(-1,160); chr(CursorCode);

Note that the AG_SETCURSOR syntax should be used in new development.