Another sample of Mouse's cursors

[serge_girard]

Hi Pablo,

This works nice!

It use it for filling up large grid which takes about 20 seconds.
Except when 'handover' the grid it doesn't show the "Working in Background.ani".
When 'handover' the rest of the form it does work.

Serge

[Pablo César]

Dear Rathi,

I forgot to mention that in HMG Resources folder there are two unuseful .cur files that IMO could be deleted. Files: hp_minus.cur and hp_plus.cur.

Rgds

Waiting for your comments Rathi.

[Pablo César]

Hi Pablo,

This works nice!

It use it for filling up large grid which takes about 20 seconds.
Except when 'handover' the grid it doesn't show the "Working in Background.ani".
When 'handover' the rest of the form it does work.

Serge

Thank you Serge.

You are right in Grid (I do not know if others controls too) seems be different behaviour regarding mouse's changing. But try this replacement for Grid or other exception:

Function SetCursorOnControls(xCursor)
LOCAL cFormName:=ThisWindow.Name
LOCAL hwdForm:=GetFormHandle(cFormName)

SetWindowCursor (hwdForm, xCursor)
SetWindowCursor (aCtrls[1], xCursor) // All Controls associated with the class
SetWindowCursor (GetControlHandle ("Grid_1",cFormName), xCursor)
Return Nil

Please be considered "Grid_1" as exemple of grid control name. Change it in case of different name.

[serge_girard]

Perfect Pablo !

It works, thanks

Serge