iOS Question [Solved] CLV.AddTextItem how to reduce the height ?

[yves67]

Hello
In my application, I am using a customlistview to display messages to the user
My MSG sub is :

Private Sub MSG(TT As String)
clvMsg.AddTextItem(TT ,Null)
End Sub

it works fine but the lines are spaced with a blank line, like as an extra RC

I wouldl ike to reduce the height of the addTextItem, but the height is automatically set with the text ?

thanks for any help

Yves67

 

[yves67]

ok, I have solde my problem using an AddView

Private Sub MSG(TT As String)
Dim p As Panel
p.Initialize("")
p.Color = Colors.White
Dim lbl As Label
lbl.Initialize("lbl")
lbl.TextAlignment = lbl.ALIGNMENT_LEFT
lbl.Text = TT
lbl.Font = Font.CreateNew(16)
lbl.TextColor = Colors.Blue
p.AddView(lbl, 5dip, 2dip, 700dip, 25dip - 4dip) 'view #0
clvMsg.Add(p, 25dip, Null)
End Sub

Now, I have what I want....