[Oreon]

Добрый день.
Имеется ListBox. Необходимо задать его ширину так, чтоб полностью влезала и была видна самая длинная его строка. Пробовал такой код (выполняется при добавлении строки, s - добавляемая строка):

Код:

ln:=ListBox1.Canvas.TextWidth(s);
if ln>ListBox1.ClientWidth {или просто Width} then 
       ListBox1.Width:=ln;

не работает, текст все равно не влезает. Помогите решить задачку

[AlexandrV]

Сообщение от Oreon

Добрый день.
Имеется ListBox. Необходимо задать его ширину так, чтоб полностью влезала и была видна самая длинная его строка. Пробовал такой код (выполняется при добавлении строки, s - добавляемая строка):

Код:

ln:=ListBox1.Canvas.TextWidth(s);
if ln>ListBox1.ClientWidth {или просто Width} then 
       ListBox1.Width:=ln;

не работает, текст все равно не влезает. Помогите решить задачку

Если строка очень длинная то текст все равно влезать не будет. попробуй так

Код:

ListBox1.ClientWidth:=ListBox1.Width+Length(ListBox1.Items.Strings[Индекс строки]);

[NumLock]

добавь отступ +4:

Код:

var
  i: Integer;
  s: String;
  w: Integer;
begin
  for i:=1 to 100 do
  begin
    s:=IntToStr(Random(MaxInt));
    s:=s+IntToStr(Random(MaxInt));
    s:='['+s+']';
    ListBox1.Items.Add(s);
    w:=ListBox1.Canvas.TextWidth(s)+4;
    if w>ListBox1.ClientWidth then ListBox1.ClientWidth:=w;
  end;
end;

[Freeman]

Сообщение от NumLock

добавь отступ +4:

Почему 4, почему не 8 или не 40? А если у меня крупные шрифты? А если у меня схема для слабовидящих? Программист в первую очередь должен заботиться о совместимости.

Предлагаю такой вариант:

Код:

begin
  ln := ListBox1.Canvas.TextWidth(s);
  if ln > ListBox1.ClientWidth then
    ListBox1.Width := ln + ListBox1.Width - ListBox1.ClientWidth;
end;

Надеюсь, не надо объяснять, что разница между Width и ClientWidth как раз и должна заключать в себя отступы. Другой способ -- получать отступы функциями API вроде GetSystemMetrics, но тут он мне кажется излишне сложным.

[NumLock]

3D бордюр окна не зависит от размера шрифта. но если очень напрягает то правильней естественно 2*GetSystemMetrics(SM_CYEDGE)

[Freeman]

Вот и не надо об этом молчать. Можете же, когда захотите.