Page 2 of 2
Re: Another sample of Mouse's cursors
Posted: Sun Sep 25, 2016 12:47 pm
by 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
Another sample of Mouse'se cursors
Posted: Mon Sep 26, 2016 11:17 am
by Pablo César
Pablo César wrote: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.
Another sample of Mouse's cursors
Posted: Mon Sep 26, 2016 11:26 am
by Pablo César
serge_girard wrote: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.
Re: Another sample of Mouse's cursors
Posted: Mon Sep 26, 2016 2:37 pm
by serge_girard
Perfect Pablo !
It works, thanks
Serge