Выравнивание по ширине в ListBox

[DIgorevich]

Нашел на DElphiWord такой код:

var
  J, TempInt, LongPrefixLen, CurrPrefixLen: Integer;
begin
  {Вычисляем TextWidth по ключевой строке}
  {Устанавливаем CurrPrefixLen в TextWidth ключевого слова
  строки Indexth}
  LongPrefixLen := 0;
  for J := 0 to ListBox1.Items.Count - 1 do
    with ListBox1.Canvas do
    begin
      TempInt := TextWidth(Copy(Items[J], 1, Pos(KeyString, Items[J] - 1)));
      if LongPrefixLen < TempInt then
        LongPrefixLen := TempInt;
      if J = Index then
        CurrPrefixLen := TempInt;
    end;
  {PrevTextLeft - TextLeft = Где мы хотим вывести новый элемент}
  TextOut(LongPrefixLen - CurrPrefixLen, Y, Items[I]);
end;

Но он не работает. Текст ошибки:

  [Error] Unit1.pas(42): Undeclared identifier: 'KeyString'
  [Error] Unit1.pas(42): Incompatible types: 'String' and 'Integer'
  [Error] Unit1.pas(49): Undeclared identifier: 'Y'
  [Error] Unit1.pas(49): Not enough actual parameters

Помогите, плз, кто разбирается сделать это по-человечески.

[DomiNick]

Поясните что именно нужно... Может лучше ListView использовать?

[DIgorevich]

Мне нужно именно в ListBox сделать выравнивание строк по ширине, т.е. чтобы строка занимала всю ширину ListBox'a (Как в Word'e ). Именно этот компонент нужен.

[DomiNick]

Хм... Теперь понятно...
А как например оно должно выглядеть если ширина ListBox будет 600, а в строке например "text"? (а в моём Word'е выравнивание по ширине почти не заметно - только когда текста много)

[DIgorevich]

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

Хм... Теперь понятно...
А как например оно должно выглядеть если ширина ListBox будет 600, а в строке например "text"? (а в моём Word'е выравнивание по ширине почти не заметно - только когда текста много)

Ну возьмите, для примера, Winamp. Там время трека в списке всегда справа, и это не вторая колонка.

[Kotofff]

Вопрос расплывается !
Что нужно то ? Выравнивание по ширине или определенный текст справа ?

и это не вторая колонка.

С чего вдруг ?

[DIgorevich]

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

Вопрос расплывается !
Что нужно то ? Выравнивание по ширине или определенный текст справа ?


С чего вдруг ?

Целиком нужно подобие плейлиста Winamp'a (название трека слева, длина трека справа). Реализация: в listbox'e. Но сойдет и простое выравнивание по ширине.

[DomiNick]

название трека слева, длина трека справа

Так это совсем другое... Сколькими символами длина трека отображается? Фиксированным количеством (Winamp не видел ни разу)?

[DIgorevich]

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

Так это совсем другое... Сколькими символами длина трека отображается? Фиксированным количеством (Winamp не видел ни разу)?

Делаю фиксированным кол-вом, но, т.к. разные буквы имеют разную ширину выходит не очень ровно...

Вот так выглядит плейлист у Winamp'a:
йй.JPG

[DomiNick]

Может там шрифт специальный у них, в котором одинаковая ширина?
Сейчас сделаю...)

Только последнее: название и время отделяются чем-нибудь друг от друга (пробелом или например символом "|")? И что будет если время 12:20 или ещё хуже - 13:02:55?