Dim cd As ColorDrawable
cd.Initialize2(Colors.White,8dip,1,0xFF808080)
txtCodigo.Background = cd
txtAdicional.Background = cd
All works fine:
When I clicked on a text, the right edge was lost
I have tried to change the layout of the images, their alignment, but the same behavior is always repeated, I have changed the size of the text and I always have the same results.
Good that it helped.
I suggest You to create a sub like this
B4X:
Sub background (backcolor As Int, radius As Int, borderwidth As Int, bordercolor As Int) As ColorDrawable
Dim cd As ColorDrawable
cd.Initialize2(backcolor,radius,borderwidth,bordercolor)
Return cd
End Sub
Then every time You need to set a ColorDrawable to a view just type