[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]

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

[Oreon]

Большое спасибо откликнувшимся!
Я ширину бордюра пробовал учитывать, но у меня не пляшет не на 4 пикселя, а на все 4 символа. Кроме бордюра надо еще учитывать отступ текста от края слева и ширину скрола если он есть, так что способ Freeman универсальнее, за что ему отдельное спасибо (правда отступ слева по-моему даже так не учтен).
Но проблему у меня даже "ListBox1.Width := ln + ListBox1.Width - ListBox1.ClientWidth;" не убирает и я разобрался почему - у меня в настройках семерки стоит отображение шрифтов 125% (или как оно там будет называться по русски) если поставить 100% то все будет идеально (кроме отступа слева ). Как учесть 125%?

[Mrak]

Oreon, кнопка "Спасибо" там ------------->

[NumLock]

можно самому отрисовывать ячейки, чтобы избежать проблем с непонятным отступом.

проверил: на всех размерах шрифта ширина бордюра == 4 и код высчитывает правильно всегда. как у тебя работает?
http://yadi.sk/d/n6Syi_oC7D3j8

[Freeman]

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

Но проблему у меня даже "ListBox1.Width := ln + ListBox1.Width - ListBox1.ClientWidth;" не убирает и я разобрался почему - у меня в настройках семерки стоит отображение шрифтов 125%

Мне кажется, что тут все может зависеть от того, в какой момент выполняется установка размеров. Если не путаю, в OnCreate оконные элементы со своими Handle могут быть еще не созданы, и всё считается в пропорциях, записанных в DFM, которые могут отличаться от фактических.

Кроме того, раньше в Delphi наблюдалось неверное масштабирование шрифтов, рассогласованное с размерами компонентов. Не помню точно, но вроде бы баг проявлялся именно тогда, когда разработка велась на машине с крупными шрифтами. Обойти его никак было нельзя, кроме как правкой Controls.pas, найденной эмпирически. Как с этим в модных версиях Delphi, не знаю.

[Oreon]

NumLock, в твоем варианте листбокс изначально имеет избыточную ширину:http://yadi.sk/d/QCXcF8lb7Dgjf, тогда как у меня задача наоборот - иметь ширину минимальную и ровнять ее по максимально длинной строке: http://yadi.sk/d/Frk30Vsz7DkUQ. Тут в верхнюю строку не влазит еще 7 символов, а вот как надо:http://yadi.sk/d/5IIeZK9R7Dm-G (добавил еще 36 пикселей)
Freeman Установка размеров корректируется при добавлении строк в листбокс (зависит от пользователя - че он делает )

[Freeman]

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

Установка размеров корректируется при добавлении строк в листбокс (зависит от пользователя - че он делает )

Хорошо, а как вычисляется самая длинная строка? Длинная по числу символов или длинная по TextWidth? Не нужно забывать, что экранный шрифт -- пропорциональный.

[NumLock]

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

NumLock, в твоем варианте листбокс изначально имеет избыточную ширину

ни в коем случае!!! на форме Edit находится неспроста. он указывает на первоначальную ширину ListBox'а. просто наиболее широкий элемент находится вне зоны отображения.

[Oreon]

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

ни в коем случае!!! на форме Edit находится неспроста. он указывает на первоначальную ширину ListBox'а. просто наиболее широкий элемент находится вне зоны отображения.

Я немного неправильно понял логику роботы твоей программы). Тогда всем спасибо, проблема решена. Она состояла в том, что если скомпилировать проект под настройку 100% то он нормально работает потом и на другой настройке, а если под 125% то нормально только на настройке 100% (у меня 7-ка. делфи 2010). Ну и код, конечно правильный нужно, он выше приводился...