The cursors used by MI for "general purpose" are those defined by Windows
and if you want to change them, you will have to play with Windows API. Here
is a working example implemented for MapBasic from the Windows API Reference
(http://www.vbapi.com/)
' Display the application starting (arrow and hourglass) Windows
' cursor for three seconds. The cursor resource is loaded from Windows.
Then
' restore the old cursor (whatever it happens to be).
Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal
hInstance As Integer,
ByVal lpCursorName As Integer) As Integer
Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Integer) As
Integer
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Integer)
Dim hcursor As Integer' receives handle to application starting cursor
Dim holdcursor As Integer' receives handle to previously used cursor
Dim retval As Integer' throw-away return value
hcursor = LoadCursor(0, 32650) ' load Windows's application starting cursor
holdcursor = SetCursor(hcursor) ' set it to the new cursor
call Sleep (3000) ' wait for 3 seconds
retval = SetCursor(holdcursor) ' set it to the previous cursor
I noticed there were 12 different defined icons (14 for NT) all codes in the
range 32512 - 32650
Jacques Paris
e-mail [EMAIL PROTECTED]
MapBasic-MapInfo support http://www.paris-pc-gis.com
Hi,
I am new to the List server.
I hope it is ok for me to contact you via email?
I need to change my cursor when drawing polylines from the small cross to a
larger crosshair type, like cursor 131 or larger and if possible the colour
as well.
I tried specifying cursor 131 in the mnu file, but it has no efect.
I hope you can help.
Thank You
Regards
Tobie
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 2578
