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

[DIgorevich]

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

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

о-ооо... мне уже страшно .

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

Сейчас сделаю...)

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

Могу любой разделитель поставить, к примеру 3 пробела. А время всегда в минутах и секундах (12:12).

[DomiNick]

А время всегда в минутах и секундах (12:12)

У меня навалом треков по полтора часа... Что он мне показывать тогда станет?)

Могу любой разделитель поставить

Пусть будет "|"...

Ну вот как-то так:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
ListBox1.Style:=lbOwnerDrawVariable; // включим возможность ручной отрисовки (можно настроить дизайн-тайм)
End;

Procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
Var c: TCanvas; text, time: String; n, h, w: Integer;
Begin
text:=TListBox(Control).Items.Strings[Index];
n:=Pos('|', text); // разделитель - '|'
If n>0 Then
      Begin
      time:=Copy(text, n+1, Length(text)-n);
      text:=Copy(text, 1, n-1);
      End;
C:=TListBox(Control).Canvas;
C.Brush.Color:=RGB(0, 0, 0); // цвет фона
C.FillRect(Rect); // заливаем строку (если нужно картинку на фон, то рисуем тут)
If (odSelected In State) Then
      C.Font.Color:=RGB(255, 255, 255) // цвет текста у выделенных строк
Else
      C.Font.Color:=RGB(0, 255, 0); // цвет текста у не выделенных строк
h:=Index*TListBox(Control).ItemHeight+(TListBox(Control).ItemHeight-C.TextHeight(text)) Div 2;
w:=C.TextWidth(time);
C.TextOut(6, h, text); // выводим название песни
C.TextOut(Rect.Right-w-6, h, time); // выводим время
If (odFocused In State) Then
      Windows.DrawFocusRect(C.Handle, Rect); // чтоб рамки выделения не было
End;

Procedure TForm1.FormResize(Sender: TObject);
Begin
ListBox1.Repaint;
End;

Там какая-то бага была с перерисовкой после изменения размера... Добавил ListBox1.Repaint в FormResize и вроде норм...

[DIgorevich]

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

У меня навалом треков по полтора часа... Что он мне показывать тогда станет?)

Ну... будет просто 90:00 если полтора час . А за код огромное спасибо!