и снова listBox

[_-Re@l-_]

Поскольку среди задающих вопросы популярна "партизанщина" (мол, ничего не скажу), то пойди догадайся, что им надо

Эт точно, mihali4

[adr]

ладно, откажемся от партизанщины. я хочу сделать мм-проигрыватель для собственного пользования.И мне захотелось сделать, что-бы у меня вместо просто названия песни было так: Listbox с 2 коллонками. в первой -- обложка альбома(в уменьшеном виде). Во второй: 1 строчка- название песни, 2 строчка- название альбома, на третей - Исполнитель. ТОко возникает проблема все это реализовать

[Stilet]

Может проще будет взять ListView?

[.Phoenix]

Listbox с 2 коллонками

не получится. Советую ListView

[adr]

а в нем как это сделать?

[Stilet]

Выставь Style - Report. Потом заходи в свойство Columns и там создавай колонки

[Alter]

Или делайте компонент новый на основе TListBox.
Либо отрисовывайте вручную строку компонента, предварительно задав высоту строки, например 75. Используйте событие procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); и рисуте как хотите, хоть с картинками, хоть как.
Пример:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 ListBox1.Style := lbOwnerDrawFixed;
 ListBox1.ItemHeight := 75;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 If (odSelected in State) then
    ListBox1.Canvas.Brush.Color := $00EFD3C6;
 With ListBox1 do
 Begin
  Canvas.FillRect(Rect);
  SetBKMode(Canvas.Handle,TRANSPARENT);
  IF(TColor(Items.Objects[Index])=clRed) OR
    (TColor(Items.Objects[Index])=clGreen) Then
  begin
   Canvas.Font.Color := TColor(Items.Objects[Index]);
   Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]);
  end
   ELSE
  begin
   Canvas.Font.Color := clBlue;
   Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]);
  end;
 End;

end;

end.

[DomiNick]

ладно, откажемся от партизанщины.

Сразу бы так...

я хочу сделать мм-проигрыватель для собственного пользования.

Да хоть для продажи - не суть важно...))

И мне захотелось сделать, что-бы у меня вместо просто названия песни было так: Listbox с 2 коллонками. в первой -- обложка альбома(в уменьшеном виде). Во второй: 1 строчка- название песни, 2 строчка- название альбома, на третей - Исполнитель. ТОко возникает проблема все это реализовать

Если вы хотите делать на VCL, то всё проще простого...)
Достаточно изучить {1}, {2} и возможно пригодится {3}...