Автоподгон ширины Edit

[min@y™]

Вот прикинул грубо, на коленке.

procedure TMainForm.FontButtonClick(Sender: TObject);
begin
  FontDialog.Font.Assign(Edit.Font);
  if FontDialog.Execute()
    then UpdateFont(FontDialog.Font);
end;

procedure TMainForm.UpdateEditSize;
var
  NewWidth: Integer;
begin
  Canvas.Font.Assign(Edit.Font);
  NewWidth:= Canvas.TextWidth(Edit.Text + 'W');

  if NewWidth > FEditMinWidth
    then if NewWidth < FEditMaxWidth
           then Edit.Width:= NewWidth
           else Edit.Width:= FEditMaxWidth
    else Edit.Width:= FEditMinWidth;
end;

procedure TMainForm.UpdateFont(ANew: TFont);
begin
  FontPanel.Font.Assign(ANew);
  FontPanel.Caption:= ANew.Name + ', ' + IntToStr(ANew.Size);

  Edit.Font.Assign(ANew);
  Self.UpdateEditSize();
  Self.Update();
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  FEditMinWidth:= Edit.Width;
  FEditMaxWidth:= Screen.Width div 2;
  UpdateFont(Self.Font);
end;

procedure TMainForm.EditChange(Sender: TObject);
begin
  UpdateEditSize();
end;

Делал чисто от скуки. Имхо, такая шляпа на практике нах никому не нужна.

[indexx]

Имхо, такая шляпа на практике нах никому не нужна

Прям таки ни кому? Сразу видно, не писал ты браузеров.

[min@y™]

Сразу видно, не писал ты браузеров.

А где и в каком браузере есть такая шняга?