WaitCursor

petrbury

Member
Licensed User
Longtime User
Hi,
I'm using command WaitCursor and it works on device but not on desktop.
Is it normal, or am I doing something wrong ?
Thanks Petr
 

petrbury

Member
Licensed User
Longtime User
Thank you for your response Erel. Do you think that it could be possible in future ?
Petr
 

RandomCoder

Well-Known Member
Licensed User
Longtime User
Has this been implemented yet?
Can't believe this is the first time I've felt the need to use the hour glass on a desktop application!!!!!

Regards,
RandomCoder
 

agraham

Expert
Licensed User
Longtime User
A FormEx can do it with its Cursor property or use the Door library. "Default" is the usual arrow cursor.
B4X:
Sub Globals
   'Declare the global variables here.
End Sub

Sub App_Start
   obj1.New1(False)
   obj2.New1(False)
   Form1.Show
   SetCursor("WaitCursor")
End Sub

'Cursor  is Case-insensitive and can be one of :
'AppStarting, Arrow, Cross, Default, Hand, Help, HSplit, IBeam, 
'No, NoMove2D, NoMoveHoriz, NoMoveVert,
'PanEast, PanNE, PanNorth, PanNW, PanSE, PanSouth, PanSW, PanWest,
'SizeAll, SizeNESW, SizeNS, SizeNWSE, SizeWE, UpArrow, VSplit, WaitCursor.
Sub SetCursor(cursor)
   obj1.CreateNew("System.Windows.Forms.CursorConverter" & obj1.System_Windows_Forms)
   obj1.Value = obj1.RunMethod2("ConvertFromString", cursor, "System.String")   
   obj2.FromControl("Form1")
   obj2.SetProperty2("Cursor", obj1.Value)
End Sub
 

RandomCoder

Well-Known Member
Licensed User
Longtime User
Thanks Andrew.

Regards,
RandomCoder
 
Top