Reply to thread

Message

<blockquote data-quote="Scrounger" data-source="post: 843745" data-attributes="member: 87610">Thanks for the advice.I still tried this but i didn't get it to work. I use the following function to define the listitem and add them to listcontrol.&nbsp;[CODE]&nbsp; &nbsp; Public Shared Sub AddListControlItem(ByVal WindowId As Integer, ByVal Listcontrol As GUIListControl, ByVal idProgram As Integer, ByVal ChannelName As String, ByVal titelLabel As String, Optional ByVal timeLabel As String = &quot;&quot;, Optional ByVal infoLabel As String = &quot;&quot;, Optional ByVal ImagePath As String = &quot;&quot;)&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; Dim lItem As New GUIListItem&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; Dim test As New GUIImage(idProgram)&nbsp; &nbsp; &nbsp; &nbsp; test.FileName = ImagePath&nbsp; &nbsp; &nbsp; &nbsp; test.Centered = True&nbsp; &nbsp; &nbsp; &nbsp; test.KeepAspectRatio = True&nbsp; &nbsp; &nbsp; &nbsp; test.Size = New MediaPortal.Drawing.Size(Listcontrol.ImageWidth, Listcontrol.ImageHeight)&nbsp; &nbsp; &nbsp; &nbsp; test.SetPosition(Listcontrol.IconOffsetX, Listcontrol.IconOffsetY)&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; lItem.Label = titelLabel&nbsp; &nbsp; &nbsp; &nbsp; lItem.Label2 = timeLabel&nbsp; &nbsp; &nbsp; &nbsp; lItem.Label3 = infoLabel&nbsp; &nbsp; &nbsp; &nbsp; lItem.ItemId = idProgram&nbsp; &nbsp; &nbsp; &nbsp; lItem.Path = ChannelName&nbsp; &nbsp; &nbsp; &nbsp; lItem.Icon = test&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; GUIControl.AddListItemControl(WindowId, Listcontrol.GetID, lItem)&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; 'MyLog.Debug(&quot;[AddListControlItem]: ImagePath: &quot; &amp; ImagePath)&nbsp;&nbsp; &nbsp; End Sub[/CODE]&nbsp;Can someone please help me with this problem. Or is a plugin out there, with such a function?</blockquote>

[QUOTE="Scrounger, post: 843745, member: 87610"] Thanks for the advice. I still tried this but i didn't get it to work. I use the following function to define the listitem and add them to listcontrol. [CODE] Public Shared Sub AddListControlItem(ByVal WindowId As Integer, ByVal Listcontrol As GUIListControl, ByVal idProgram As Integer, ByVal ChannelName As String, ByVal titelLabel As String, Optional ByVal timeLabel As String = "", Optional ByVal infoLabel As String = "", Optional ByVal ImagePath As String = "") Dim lItem As New GUIListItem Dim test As New GUIImage(idProgram) test.FileName = ImagePath test.Centered = True test.KeepAspectRatio = True test.Size = New MediaPortal.Drawing.Size(Listcontrol.ImageWidth, Listcontrol.ImageHeight) test.SetPosition(Listcontrol.IconOffsetX, Listcontrol.IconOffsetY) lItem.Label = titelLabel lItem.Label2 = timeLabel lItem.Label3 = infoLabel lItem.ItemId = idProgram lItem.Path = ChannelName lItem.Icon = test GUIControl.AddListItemControl(WindowId, Listcontrol.GetID, lItem) 'MyLog.Debug("[AddListControlItem]: ImagePath: " & ImagePath) End Sub[/CODE] Can someone please help me with this problem. Or is a plugin out there, with such a function? [/QUOTE]

Verification