#Region Project Attributes
#ApplicationLabel: Exemplo CLV
#VersionCode: 1
#VersionName: 1.0
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: False
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private clvMensagens As CustomListView
Private lbNome As Label
Private lbMensagem As Label
Private messageSize As Int = 85%x
Private margin As Int = 2%x
Private internalYMargin As Int = 2%y
Private pWhite As Panel
Private leftColor As Int = Colors.White
Private rightColor As Int = Colors.RGB(255,243,209)
Private border As Boolean = True
Private borderColor As Int = Colors.Black
Private borderWidth As Int = 1dip
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
'HERE IS A EXAMPLE OF HOW ADD CHAT MESSAGE WITH FOR
For I = 0 To 4
If i = 0 Then
Add_Conversation(True,File.ReadString(File.DirAssets,"nome1.txt"),File.ReadString(File.DirAssets,"mensagem1.txt"))
else if i = 1 Then
Add_Conversation(False,File.ReadString(File.DirAssets,"nome2.txt"),File.ReadString(File.DirAssets,"mensagem2.txt"))
else if i = 2 Then
Add_Conversation(True,File.ReadString(File.DirAssets,"nome3.txt"),File.ReadString(File.DirAssets,"mensagem3.txt"))
else if i = 3 Then
Add_Conversation(False,File.ReadString(File.DirAssets,"nome1.txt"),File.ReadString(File.DirAssets,"mensagem1.txt"))
else if i = 4 Then
Add_Conversation(True,File.ReadString(File.DirAssets,"nome1.txt"),File.ReadString(File.DirAssets,"mensagem1.txt"))
End If
Next
'HERE A SIMPLE EXAMPLE OF HOW ADD A MESSAGE
Add_Conversation(True,"Douglas Farias","Hi all! Here is a simple message example")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Add_Conversation (leftChat As Boolean, name As String, message As String)
Private p As Panel
p.Initialize("p")
p.Visible = False
Activity.AddView(p,margin,0,messageSize,5%Y)
p.LoadLayout("dentroClv")
p.RemoveView
'HERE WE ADD THE MESSAGE AND NAME TO LBNAME AND LBMESSAGE
lbNome.Text = name
lbMensagem.Text = message
'GET IF IS LEFT OR RIGHT CHAT
If leftChat Then
pWhite.Left = margin
lbNome.Gravity = Bit.Or(Gravity.LEFT,Gravity.CENTER_VERTICAL)
lbMensagem.Gravity = Bit.Or(Gravity.LEFT,Gravity.CENTER_VERTICAL)
Else
pWhite.Left = 100%x - messageSize - margin
lbNome.Gravity = Bit.Or(Gravity.RIGHT,Gravity.TOP)
lbMensagem.Gravity = Bit.Or(Gravity.RIGHT,Gravity.TOP)
End If
'HERE WE GET THE MESSAGE AND NAME CHAT
Private su As StringUtils
lbNome.Top = 0 + internalYMargin
lbNome.Height =su.MeasureMultilineTextHeight(lbNome,lbNome.Text)
lbMensagem.Height =su.MeasureMultilineTextHeight(lbMensagem,lbMensagem.Text)
lbMensagem.Top = lbNome.Top + lbNome.Height
'LATER GET THE CORRECT SIZE NEEDED WE APPLY THIS TO PANEL
p.Height = lbNome.Height + lbMensagem.Height + (internalYMargin * 2)
pWhite.Height = lbNome.Height + lbMensagem.Height + (internalYMargin * 2)
'HERE WE SET THE COLOR AND BORDER TO THE MESSAGE PANEL
If border Then
If leftChat Then
Private cd As ColorDrawable
cd.Initialize2(leftColor,5,borderWidth,borderColor)
pWhite.Background = cd
Else
Private cd As ColorDrawable
cd.Initialize2(rightColor,5,borderWidth,borderColor)
pWhite.Background = cd
End If
Else
If leftChat Then
Private cd As ColorDrawable
cd.Initialize2(leftColor,5,0,borderColor)
pWhite.Background = cd
Else
Private cd As ColorDrawable
cd.Initialize2(rightColor,5,0,borderColor)
pWhite.Background = cd
End If
End If
p.Visible = True
'HERE WE ADD THE CONVERSATION PANEL WITH NAME AND MESSAGE TO CLV
clvMensagens.Add(p,p.Height,0)
End Sub
