Sub downloadcenterItemDownloading(trackID As String) As Panel
Dim p2 As Panel
p2.Initialize("")
Dim iv As ImageView
iv.Initialize("")
iv.Bitmap = LoadBitmap(File.DirAssets, "trashcan_h.png")
iv.Height = 40
iv.Width = 40
iv.Tag = trackID
Dim iv2 As ImageView
Dim CanvasGraph As Canvas
iv2.Initialize("")
CanvasGraph.Initialize(iv2)
CanvasGraph.DrawColor(Colors.Black)
CanvasGraph.DrawLine(5,0,g_width-10,0,Colors.Black,1)
CanvasGraph.Refresh
Dim l As Label
l.Initialize("")
l.Text = sql.my_sql_load_wert("tracks-translations", "trackID", trackID, "titel", "AND `speakID`='"& speak &"'")
l.TextAlignment = l.ALIGNMENT_CENTER
l.Multiline = True
l.Font = Font.CreateNew(15)
p2.Tag = trackID
p2.Height = 110
p2.Width = g_width
p2.SetBorder(1,Colors.Black,0)
p2.AddView(iv2,0, 50, g_width, 10)
p2.AddView(l,0,0,g_width-40,50)
p2.AddView(iv,l.Width,5,40,40)
Return p2
End Sub
Sub setupDownloadcenter
clv1.GetBase.Visible = False
clv2.GetBase.Visible = True
clv2.GetBase.Width = g_width
clv2.GetBase.Height = clv1.GetBase.Height 'Ändern!!
clv2.GetBase.Color = Colors.Transparent
clv2.GetBase.TintColor = Colors.Transparent
clv2.Add(downloadcenterItemDownloading("11"),downloadcenterItemDownloading("11"),downloadcenterItemDownloading("11"))
End Sub