ArrowHourglass mouse cursor?

Targets Windows
25

Hi Markus,

I followed your advice, but I am not sure that I get an animated cursor. Here is the used code (the images are in the folder (watch the folder screen shot above):


Sub Action() Handles Action
  Var dlg As New SelectFolderDialog
  dlg.ActionButtonCaption = "Select"
  dlg.Title = "Title Property"
  dlg.PromptText = "Prompt Text"
  dlg.InitialFolder = SpecialFolder.Documents
  
  Var f As FolderItem
  f = dlg.ShowModal
  If f = Nil Then
    // User cancelled
    Return
  End If
  
  Var Pict(6) As Picture
  Var Pict_Idx As Integer
  Var Loop_Idx As Integer
  Var Fldr_Cnt As Integer = f.Count - 1 // .DS_Store
  Var Curs_FI As FolderItem
  
  For Loop_Idx = 0 To Fldr_Cnt
    Curs_FI = f.ChildAt(Loop_Idx)
    If Curs_FI.Name <> ".DS_Store" Then
      Pict(Pict_Idx) = Picture.Open(Curs_FI)
      
      Pict_Idx = Pict_Idx + 1
    End If
    
    If UserCancelled Then Exit
  Next
  
  Var Pictu As New Picture(19,30, Pict) // Now the Pict array is populated…
  Var thisMouse As New MouseCursor(Pictu, 0, 0)
  
  Self.MouseCursor = thisMouse
End Sub

The cursor is the “gris” one and I do not saw any animation, but I do not say there is not, just I do not saw it if there is one (ONE, not continuously).