Sub clwBatteryViewer_ItemClick (Index As Int, Value As Object)
Wait For (CLWCustomPanelSelection(Index)) Complete (Inutile As Boolean)
CLWSelectedIndex = Index
SelectedRecordId = clwDisplayedRecordsId.Get(Index)
StartActivity(actBatteryDetails)
actBatteryDetails.ReturnToActivity = "actBatteryStatus"
actBatteryDetails.PageOpenMode = Functions.PageOpenMode.Edit
actBatteryDetails.SelectedRecordId = SelectedRecordId
End Sub
Sub CLWCustomPanelSelection(Index As Int) as ResumableSub
'Passare -1 a Index per deselezionare il CustomPanel selezionato
'Deseleziono il pannello precedentemente selezionato
If CLWSelectedIndex <> -1 Or Index = -1 Then
'Colore del pannello customizzato contenuto nel pannello della CLW
For Each CustomPanel As Panel In clwBatteryViewer.GetPanel(CLWSelectedIndex).GetAllViewsRecursive
CustomPanel.Color = Colors.Transparent
Next
End If
If Index <> -1 Then
'Colore del pannello customizzato contenuto nel pannello della CLW
For Each CustomPanel As Panel In clwBatteryViewer.GetPanel(Index).GetAllViewsRecursive
CustomPanel.Color = Colors.Yellow
Next
End If
'senza va in crash
Sleep(1)
Return True
End Sub