Change carret (cursor) possition on Tedit Class

[Dionisis Divaris]

Hello
Is there any way to change the carret position in a EditBox. I try
:npos(xx) but nothing happens.
TIA
Dionisis

[Ingo Junge-Herrmann]

Dionisis,
I'm using SetSel(nStart,nEnd)
To set the cursorposition at the end of the text :
oEdit:SetFocus()
oEdit:SetSel(LEN(oEdit:cText),LEN(oEdit:cText))
Regards
Ingo
"Dionisis Divaris" <sv1fkk@hol.gr> wrote:
>Hello
> Is there any way to change the carret position in a EditBox. I try
>:npos(xx) but nothing happens.
>
>TIA
> Dionisis
>
>
>

[Ingo Junge-Herrmann]

Dionisis,
I'm using SetSel(nStart,nEnd)
To set the cursorposition at the end of the text :
oEdit:SetFocus()
oEdit:SetSel(LEN(oEdit:cText),LEN(oEdit:cText))
Regards
Ingo
"Dionisis Divaris" <sv1fkk@hol.gr> wrote:
>Hello
> Is there any way to change the carret position in a EditBox. I try
>:npos(xx) but nothing happens.
>
>TIA
> Dionisis
>
>
>

[Dionisis Divaris]

Hello Igno
Thank you very mauch for your sugestion. What i looking for is to capitalize
the first letter on Edit with the coresponding greek leter.As xHarbour
dosen't support Upper() or Lower() function for greeks characters i make
one function of my own. But the problem is when changed the first character
(it is maden ok) the carret dosent advanced to the next character position
(i.e 2) to following up with next characters insertion
Many thanks again
TIA
Dionisis
Ï "Ingo Junge-Herrmann" <[email=XPRO-0031BA74-01@10.0.0.11]XPRO-0031BA74-01@10.0.0.11[/email]> Ýãñáøå óôï ìÞíõìá
news:44374a2a$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Dionisis,
>
> I'm using SetSel(nStart,nEnd)
>
> To set the cursorposition at the end of the text :
>
> oEdit:SetFocus()
> oEdit:SetSel(LEN(oEdit:cText),LEN(oEdit:cText))
>
> Regards
>
> Ingo
>
> "Dionisis Divaris" <sv1fkk@hol.gr> wrote:
>>Hello
>> Is there any way to change the carret position in a EditBox. I try
>>:npos(xx) but nothing happens.
>>
>>TIA
>> Dionisis
>>
>>
>>
>

[Dionisis Divaris]

Hello Igno
Thank you very mauch for your sugestion. What i looking for is to capitalize
the first letter on Edit with the coresponding greek leter.As xHarbour
dosen't support Upper() or Lower() function for greeks characters i make
one function of my own. But the problem is when changed the first character
(it is maden ok) the carret dosent advanced to the next character position
(i.e 2) to following up with next characters insertion
Many thanks again
TIA
Dionisis
Ï "Ingo Junge-Herrmann" <[email=XPRO-0031BA74-01@10.0.0.11]XPRO-0031BA74-01@10.0.0.11[/email]> Ýãñáøå óôï ìÞíõìá
news:44374a2a$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Dionisis,
>
> I'm using SetSel(nStart,nEnd)
>
> To set the cursorposition at the end of the text :
>
> oEdit:SetFocus()
> oEdit:SetSel(LEN(oEdit:cText),LEN(oEdit:cText))
>
> Regards
>
> Ingo
>
> "Dionisis Divaris" <sv1fkk@hol.gr> wrote:
>>Hello
>> Is there any way to change the carret position in a EditBox. I try
>>:npos(xx) but nothing happens.
>>
>>TIA
>> Dionisis
>>
>>
>>
>

[Ingo Junge-Herrmann]

Dionisis,
doesn't :SetSel(nPos+1,nPos+1) work when nPos is the position of the changed
letter?
Regards
Ingo
"Dionisis Divaris" <sv1fkk@hol.gr> wrote:
>Hello Igno
>
>Thank you very mauch for your sugestion. What i looking for is to capitalize
>the first letter on Edit with the coresponding greek leter.As xHarbour
>dosen't support Upper() or Lower() function for greeks characters i make
>one function of my own. But the problem is when changed the first character
>(it is maden ok) the carret dosent advanced to the next character position
>(i.e 2) to following up with next characters insertion
>
>Many thanks again
>TIA
>Dionisis
>
>Ï "Ingo Junge-Herrmann" <[email=XPRO-0031BA74-01@10.0.0.11]XPRO-0031BA74-01@10.0.0.11[/email]> Ýãñáøå óôï ìÞíõìá
>news:44374a2a$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>
>> Dionisis,
>>
>> I'm using SetSel(nStart,nEnd)
>>
>> To set the cursorposition at the end of the text :
>>
>> oEdit:SetFocus()
>> oEdit:SetSel(LEN(oEdit:cText),LEN(oEdit:cText))
>>
>> Regards
>>
>> Ingo
>>
>> "Dionisis Divaris" <sv1fkk@hol.gr> wrote:
>>>Hello
>>> Is there any way to change the carret position in a EditBox. I try
>>>:npos(xx) but nothing happens.
>>>
>>>TIA
>>> Dionisis
>>>
>>>
>>>
>>
>
>

[Ingo Junge-Herrmann]

Dionisis,
doesn't :SetSel(nPos+1,nPos+1) work when nPos is the position of the changed
letter?
Regards
Ingo
"Dionisis Divaris" <sv1fkk@hol.gr> wrote:
>Hello Igno
>
>Thank you very mauch for your sugestion. What i looking for is to capitalize
>the first letter on Edit with the coresponding greek leter.As xHarbour
>dosen't support Upper() or Lower() function for greeks characters i make
>one function of my own. But the problem is when changed the first character
>(it is maden ok) the carret dosent advanced to the next character position
>(i.e 2) to following up with next characters insertion
>
>Many thanks again
>TIA
>Dionisis
>
>Ï "Ingo Junge-Herrmann" <[email=XPRO-0031BA74-01@10.0.0.11]XPRO-0031BA74-01@10.0.0.11[/email]> Ýãñáøå óôï ìÞíõìá
>news:44374a2a$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>
>> Dionisis,
>>
>> I'm using SetSel(nStart,nEnd)
>>
>> To set the cursorposition at the end of the text :
>>
>> oEdit:SetFocus()
>> oEdit:SetSel(LEN(oEdit:cText),LEN(oEdit:cText))
>>
>> Regards
>>
>> Ingo
>>
>> "Dionisis Divaris" <sv1fkk@hol.gr> wrote:
>>>Hello
>>> Is there any way to change the carret position in a EditBox. I try
>>>:npos(xx) but nothing happens.
>>>
>>>TIA
>>> Dionisis
>>>
>>>
>>>
>>
>
>