Dim playpause As String
If mps.IsPlaying Then
playpause="pause"
Else
playpause="play"
End If
If ncl.IsInitialized=False Then
ncl.Initialize("rc")
Dim PM As PackageManager
Dim bDrw As BitmapDrawable=PM.GetApplicationIcon(Application.PackageName)
ncl.SetImage("stream_img",bDrw.Bitmap)
ncl.SetImage("stream_prev",LoadBitmap(File.DirAssets,"prev.png"))
ncl.SetImage("stream_next",LoadBitmap(File.DirAssets,"next.png"))
ncl.SetImage("stream_quit",LoadBitmap(File.DirAssets,"stop.png"))
ncl.setEnableClickEvent("stream_prev",Me,"prev")
ncl.setEnableClickEvent("stream_next",Me,"next")
ncl.setEnableClickEvent("stream_quit",quitStream,"quit")
End If
ncl.SetTextField("stream_title",M.Get("name"))
ncl.SetTextField("stream_info","...")
ncl.SetImage("stream_playpause",LoadBitmap(File.DirAssets,playpause&".png"))
ncl.setEnableClickEvent("stream_playpause",Me,playpause)
If nb.IsInitialized=False Then
nb.Initialize(1)
nb.AutoCancel=True
nb.DefaultSound=False
nb.DefaultVibrate=False
nb.LocalOnly=True
nb.OnGoingEvent=True
nb.setActivity(RadyolarSayfasi)
nb.ShowTime=False
nb.SmallIcon = "icon"
End If
nb.BigCustomLayout=ncl.BuildLayout
nb.Notify(1)
Log("Waiting")