Tedit control that adjusts its width to the length of the text

[simsee]

As in the title, I need a tedit control that adjusts its width to the length of the text. I currently use the TEdit.OnChange event, whose handler is as follows:

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

1. procedure TForm1.Edit1Change(Sender: TObject);
2. begin
3.   Edit1.Width:=Canvas.TextWidth(Edit1.Text)+10;
4. end;

This solution isn't very satisfactory. Is there a better one?

Thanks in advance.

[rvk]

This solution isn't very satisfactory. Is there a better one?

Maybe first tell us why it's not satisfactory.
Also mention your target OS.

[simsee]

For example, with the current version of Lazarus on Windows, the first character may be partially visible, as in the attached screenshot. I'm looking for a cross-platform solution.

[rvk]

It seems like the + 10 is not sufficient.
You have some extra white space behind the string so you at least need to account for 1 character extra.

You could try
Canvas.TextWidth(Edit1.Text + 'A') + 10

[simsee]

In reality, the characters you see are the only ones typed at runtime, including the partially visible initial 'A'.

[jamie]

Edit controls always need extra space.

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

1.   With TEdit(Sender) do
2.    Begin
3.      ClientWidth := Canvas.TextWidth(Text)+(Canvas.TextWidth('W') shl 1);
4.    end;                                      
5.  
6.  

[rvk]

In reality, the characters you see are the only ones typed at runtime, including the partially visible initial 'A'.

So? Principle is the same. The + 10 you supply isn't enough for the white space after the cursor. So you shouldn't set the width to exactly the width of the string. You need to add some space.

Adding a 'A' in the textwidth call adds the space for a A. You van also use B or something else as long as the string for textwidth is 1 character more than your actual string.

You can also do + 30 or whatever but then it's too wide when you have a smaller font. Using + 'A' makes sure you only add as much as you need for one character.

[simsee]

Now I understand. Thank you very much.