Android Question Cursor Control [SOLVED]

[Roger Daley]

Hi All,

I am looking for the easiest [best] way to step the cursor through a line of text in an Edittext [Lefty/Right arrow buttons] keeping track of the position.
I have found this https://www.b4x.com/android/forum/threads/edittext-utils.43479/ from Klaus which comes pretty close but thought I would check with the "Brains Trust" of the forum.

Regards Roger

PS I assume we still can't change the colour of the cursor.

 

[klaus]

You can do it with the current methods of an EditText view.

The code:

Sub Globals
    Private btnLeft As Button
    Private btnRight As Button
    Private edtTest As EditText
    Private CursorPosition As Int    'variable keeping the current cursor position
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Main")
End Sub

Sub btnLeft_Click
    Private i As Int
    edtTest.RequestFocus               'sets the focus to show the cursor
    i = edtTest.SelectionStart         'gets the current cursor position
    CursorPosition = Max(i - 1, 0)    'removes one till 0
    edtTest.SelectionStart = CursorPosition    'sets the new position
End Sub

Sub btnRight_Click
    Private i As Int
    edtTest.RequestFocus                  'sets the focus to show the cursor
    i = edtTest.SelectionStart            'gets the current cursor position
    CursorPosition = Min(i + 1, edtTest.Text.Length)    'adds one till text length
    edtTest.SelectionStart = CursorPosition    'sets the new position
End Sub

It could also be done in one routine using the Sender object, I found it easier readable with two routines.

Attached a small projet.

I have not found how to change the cursor color.

 

[Roger Daley]

Thanks Klaus,

As always your solution is clear and elegantly simple.
I have however a problem, cursor is not showing. This is an old project getting an update and I dimly remember hiding the cursor but now can't remeber how despite scrolling through my code.

Regards Roger

 

[Roger Daley]

Thanks Klaus,

As always your solution is clear and elegantly simple.
I have however a problem, cursor is not showing. This is an old project getting an update and I dimly remember hiding the cursor but now can't remeber how despite scrolling through my code.

Regards Roger

Problem solved. I had left the Enabled box in the designer Proerties unticked. Tick box for cursor or Enable/Disable in code.
EG edtTest.Enabled = True