[Solved] Strange bug with TEdit

[lainz]

Hi, sometimes using a barcode scanner the TEdit is flipped, instead of writing from left to right it start writing from right to left.

No, there's no change on the position of the text, is always left aligned. The problem is the cursor that is always at the left of the characters, so anything you write goes to the left.

Notice that this mostly happens on slow hardware.

[winni]

Hi!

Do this on slow hardware:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Edit1Change(Sender: TObject);
2. begin
3.   Edit1.SelStart:= Length(Edit1.Text);
4.   AppliCation.ProcessMessages;
5. end;
6.  

This will always position the cursor at the mostright position.

Winni

[ezlage]

The problem occurs with EchoMode:=emNormal, without Events assigned and AutoSelect:=False?

I think that winni's suggestion worth a test more than mine.

[lainz]

Thanks winni it works.

But finally I solved it a bit differently, with an higher delay for the timer that prevents the search occur when the user types each character. From 20 ms to 100 ms and it works fine.

[lainz]

Stranger enough...

Now I found this code was the problem:

Code: Pascal  [Select][+][-]

1. procedure TPOSBerryLiteSearch.EnfocarBuscador;
2. var
3.   cp: TPoint;
4. begin
5.   if FEdit.Focused then
6.     Exit;
7.   cp := FEdit.CaretPos;
8.   if FEdit.CanSetFocus then
9.   begin
10.     FEdit.SetFocus;
11.     FEdit.CaretPos := cp;
12.   end;
13. end;

Focusing works badly on Linux. So I removed this code and everything works fine again.