Android Question 9patch on customListView Items

[Endien]

Hi all,
I am having trouble set 9patch image on customListView Items.

my customListView is based on this tutorial https://www.b4x.com/android/forum/t...xible-list-based-on-scrollview.19567/#content



Please take a look at my attachment. As we can see the words got cut.
another attachment is my draw9 patch stretch and content design.

How to make so the words dont got cut? please give a hint

 

[NJDude]

You have to work on your borders (fill area) since you have round corners.

 

[Endien]

You have to work on your borders (fill area) since you have round corners.

Thanks for the reply NJDude.

is my draw9 patch stretch and content design wrong?
or something related with the code on customListView?

 

[Erel]

How are you adding the items?

Can you upload the project?

 

[Endien]

How are you adding the items?

Can you upload the project?

Hi Erel,

Sub loadMessage
    Dim Cursor1 As Cursor
    clvInfo.Clear
    Cursor1 = SQL1.ExecQuery("SELECT * FROM MessageInfo ORDER BY DateEntry")
    For i = 0 To Cursor1.RowCount - 1
        Cursor1.Position = i
        addToCvList2("[" & Cursor1.GetString("DateEntry") & "] : " & Cursor1.GetString("MessageContent"), Cursor1.GetString("MessageId"),i)
    Next
    Cursor1.Close
End Sub

Sub addToCvList2(MessageReceived As String, MessageId As Int, index As Int)
   clvInfo.AddTextItem(MessageReceived, MessageId)
   clvInfo.GetPanel(index).Color = Colors.White
   clvInfo.JumpToItem(index)
End Sub

Public Sub AddTextItem(Text As String, Value As Object)
   InsertAtTextItem(items.Size, Text, Value)
End Sub

'Inserts a text item at the specified index.
Public Sub InsertAtTextItem(Index As Int, Text As String, Value As Object)
   Dim pnl As Panel
   pnl.Initialize("")
   Dim lbl As Label
   lbl.Initialize("")
   lbl.Gravity = Bit.OR(Gravity.TOP, Gravity.LEFT)
   pnl.AddView(lbl, 2dip, 2dip, sv.Width - 5dip, 20dip)
   lbl.Text = Text
   lbl.TextSize = DefaultTextSize
   lbl.TextColor = DefaultTextColor
   If DefaultTextBackground <> Null Then
     pnl.Background = DefaultTextBackground
   Else
     pnl.Color = DefaultTextBackgroundColor
   End If

   ModNinePatch.SetNinePatchDrawable(lbl,"infopis")

   Dim minHeight As Int
   minHeight = su.MeasureMultilineTextHeight(lbl, Text)
   lbl.Height = Max(50dip, minHeight)
   InsertAt(Index, pnl, lbl.Height + 2dip, Value)
End Sub

 

[Erel]

Does it look properly if you comment the ModNinePatch line?

 

[Endien]

Does it look properly if you comment the ModNinePatch line?

Yes, it does Erel.

 

[Endien]

When i remove the 9patch, it look okay but the left padding is too narrow.

 

[Erel]

You can change the padding by changing the label position.

 

[Endien]

You can change the padding by changing the label position.

Yes, i had manage to do that.
For now, i just cancel to use 9patch on customListView items.