Seems like the problem is with this code:
[CODE lang="b4x" highlight="1,2"] Dim cd2 As ColorDrawable
cd2.Initialize2(Colors.white, 12dip, 1dip, Colors.Black)
txtFirstName.TextColor = Colors.Black
txtLastName.TextColor = Colors.Black
txtUserName.TextColor = Colors.Black
txtPin.TextColor = Colors.Black
txtDOB1.TextColor = Colors.Black
txtFeet.TextColor = Colors.Black
txtInches.TextColor = Colors.Black
txtFirstName.Background = cd2
txtLastName.Background = cd2
txtUserName.Background = cd2
txtPin.Background = cd2
txtDOB1.Background = cd2
txtFeet.Background = cd2
txtInches.Background = cd2[/CODE]
But why would this be the cause, take a look at the image below, you can see that the typing area is still the same original size as I can type past the right border, so it seems like only the border is the part that is shrinking, this is very strange, never seen anything like this before.
Any thoughts, anyone?
Walter