UA Developer: Clarion FAQ

! In Global MAP
MODULE('')
SetCapture(LONG),LONG,PASCAL
ReleaseCapture(),LONG,PASCAL
LoadCursor(LONG,*CSTRING),LONG,PASCAL,RAW,NAME('LoadCursorA')
LoadCursorFromFile(*CSTRING),LONG,PASCAL,RAW,NAME('LoadCursorFromFileA')
WinSetCursor(LONG),LONG,PASCAL,NAME('SetCursor')
END
! Global variables
m_hSysCursor     LONG
m_hAniCursor     LONG
m_CursorFileName CSTRING(65)
! After Window opening
m_CursorFileName = 'globe.ani'
m_hAniCursor = LoadCursorFromFile(m_CursorFileName)
! Display animated cursor
SetCapture(0{PROP:Handle})
m_hSysCursor = WinSetCursor(m_hAniCursor)
! Restore previous cursor
ReleaseCapture()
WinSetCursor(m_hSysCursor)
CLEAR(m_hSysCursor)