Sub xomBuilder1_BuildDone(xomDoc As XOMDocument, Tag As Object)
' Log(LastException.Message)
If xomDoc.IsInitialized Then
' If Not (xomDoc=Null) Then
' Msgbox(N_Group,"first test")
Dim RootElem As XOMElement
RootElem=xomDoc.RootElement
xomGroups= RootElem.GetChildElementsByName("group")
N_Group = xomGroups.Size
' Msgbox(N_Group & "ALL ОК","second test")
Dim strIMG As String, strName As String, loc_Rating As String, Rating As String, strData As String
Dim str1 As String, str2 As String
Dim i As Int
Dim bitMap As Bitmap
Log(N_Group)
For i=0 To N_Group-1
Try
' Задаем рисунок для списка
' Log(xomGroups.GetElement(i).Value & "Группы")
xomGroup=xomGroups.GetElement(i)
' Log(xomGroup.Value & "Группа" )
xomOption=xomGroup.GetFirstChildElementByName("option")
' Log(xomOption.Value & "Опции")
' Формируем имя группы с рейтингом
strName=xomGroup.GetFirstChildElementByName("name").Value
str1=loc_Rating & " " & Rating & " " & strName
Log(Rating & "Рейтинг")
strData=xomGroup.GetFirstChildElementByName("time").Value
str2=strData
Log(strName & "Имя")
loc_Rating=xomGroup.GetFirstChildElementByName("loc_rating").Value
Log(loc_Rating & "Лок рейтинг")
Rating=xomGroup.GetFirstChildElementByName("rating").Value
strIMG=xomOption.GetFirstChildElementByName("beg_img").Value
Log(strIMG & "Картинка")
Log(File.DirAssets & "Каталог")
bitMap.Initialize(File.DirAssets, strIMG)
listView_G.SingleLineLayout.Label.TextSize = 20
listView_G.SingleLineLayout.Label.TextColor = Colors.Blue
listView_G.SingleLineLayout.Label.Gravity = Gravity.CENTER
listView_G.FastScrollEnabled = True
listView_G.AddTwoLinesAndBitmap(str1, str2, bitMap)
Catch
Log(LastException.Message)
End Try
Next
Else
Msgbox("Проблемы с файлом","")
End If
End Sub