1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TMainForm.LB_PlaylistDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  str: string;
  len: integer;
  i: integer;
begin
  str := LB_Playlist.Items[index];
  with LB_Playlist.Canvas do
    begin
      len := Textwidth(str) + IMG_Icon.width + 1;
      if LB_PLaylist.ItemHeight * LB_Playlist.Count > LB_Playlist.ClientHeight then
        len := len + 17 + 1;
      if len > LB_Playlist.width then
        for i := length(str) downto 1 do
          begin
            str := copy(str, 1, i);
            str := str + '...';
            len := Textwidth(str) + IMG_Icon.width + 2;
            if LB_PLaylist.ItemHeight * LB_Playlist.Count > LB_Playlist.ClientHeight then
              len := len + 17 + 1;
            if len <= LB_Playlist.width then
              break else
                if i = 1 then
                  str := '';
          end;
      FillRect(Rect);
      bitblt(LB_Playlist.Canvas.Handle, Rect.left + 1, Rect.Top + 1, IMG_Icon.width, IMG_Icon.height, IMG_Icon.Canvas.Handle, 0, 0, SRCAnd);
      TextOut(Rect.Left + 1 + IMG_Icon.Width + 1, Rect.Top, str);
    end;
end;