Sub DevicesFill
Dim Img As Image
Img.Initialize(File.DirAssets, "device.png")
For i=0 To 5
Dim Pnl As Pane
Pnl.Initialize("ItemDev")
Pnl.SetSize(CboDevices.Width, CboDevices.Height)
Dim Icon As ImageView
Icon.Initialize("ItemDev")
Pnl.AddNode(Icon, 5, 5, Pnl.Height-10, Pnl.Height-10)
Icon.SetImage(Img)
Dim Lbl1 As Label
Lbl1.Initialize("ItemDev")
Pnl.AddNode(Lbl1, 80, 5, Pnl.Width - 80, 20)
Lbl1.Text = "Device " & i
Lbl1.TextColor = fx.Colors.From32Bit(0xFF000000)
Dim Lbl2 As Label
Lbl2.Initialize("ItemDev")
Pnl.AddNode(Lbl2, 80, 30, Pnl.Width - 80, 20)
Lbl2.Text = "936993322" & i
Lbl2.TextColor = fx.Colors.From32Bit(0xFF7F7F7F)
CboDevices.Items.Add(Pnl)
Next
End Sub