'
' cr = ContentResolver
'
' Getting Calendars i have access to. Or i can "see". At this time i do not know exactly ;-)
Dim projection() As String = Array As String(calcon.ID,calcon.NAME,calcon.CALENDAR_DISPLAY_NAME,calcon.ACCOUNT_NAME,calcon.ACCOUNT_TYPE,calcon.OWNER_ACCOUNT)
cr.Initialize("CR")
cr.QueryAsync(calcon.CONTENT_URI,projection, calcon.VISIBLE&"=1",Null,calcon.ID&" ASC")
wait for CR_QueryCompleted(Success As Boolean, Crsr As Cursor)
Log($"QueryCompleted(${Success})"$)
If Crsr.IsInitialized Then
If Crsr.RowCount > 0 Then
Dim Cursor As Cursor
Cursor = Crsr
For i = 0 To Cursor.RowCount - 1
Cursor.Position = i
'calcon.ACCOUNT_TYPE,calcon.OWNER_ACCOUNT)
Log($"CR --------------------------------------"$)
Log(Cursor.GetString(calcon.ID))
Log(Cursor.GetString(calcon.NAME))
Log(Cursor.GetString(calcon.CALENDAR_DISPLAY_NAME))
Log(Cursor.GetString(calcon.ACCOUNT_NAME))
Log(Cursor.GetString(calcon.ACCOUNT_TYPE))
Log(Cursor.GetString(calcon.OWNER_ACCOUNT))
Next
Cursor.Close
Else
' No rows
End If
Else
'
End If