Sub commom_thread(slist As List)
Dim q As Int = -4%y
smssv.Panel.RemoveAllViews
Dim balo(slist.Size) As Baloon
For i = slist.Size -1 To 0 Step -1
Dim sms1 As Sms
sms1 = slist.get(i)
' Log(sms1.ThreadId & " " & sms1.PersonId & " " & DateTime.time(sms1.Date) & " " & sms1.Body)
balo(i).Initialize(Me,Activity)
Dim H As Int
If sms1.PersonId = -1 Then
H = balo(i).appearance(balo(i).THINK, 24,24,Colors.Blue,Colors.Black,"אני" & " " & DateTime.Date(sms1.Date) & " " & DateTime.time(sms1.Date),sms1.Body,Colors.black, Gravity.left ,80%x)
smssv.Panel.AddView(balo(i).AsView,5%x,q+2%y,80%x,H)
Else
H = balo(i).appearance(balo(i).SAY, 24,24,Colors.Blue,Colors.Black,namelbl.Text & " " & DateTime.Date(sms1.Date) & " " & DateTime.time(sms1.Date),sms1.Body,Colors.black, Gravity.RIGHT ,80%x)
smssv.Panel.AddView(balo(i).AsView,15%x,q+2%y,80%x,H)
End If
balo(i).Flip(True,False)
q = q + H
Next
tsmspnl.Visible = True
tsmspnl.BringToFront
smssv.Panel.Height = q+ 5%y
smssv.FullScroll(True)
DoEvents
smssv.FullScroll(True)
DoEvents
End Sub