Разные стили в одной строке ListBox

[Пепел Феникса]

не получиться.

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

[Аватар]

Для выделенной строки фон прорисовывайте если odSelected in State. Не помню нужно ли фон прорисовывать для не выделенной строки, если нужно то просто другим цветом. Можно еще анализировать в фокусе ли ListBox. А выдергивать имя файла можно просто ExtractFileName(ListBox.Items[ListBox.ItemIndex])

[rota]

Аватар, спасибо за выдергивание) вы наверно думаете, что я разбираюсь, а я не разбираюсь=)
куда там Pos применить? а как фон прорисовывать? Canvas.Brush.Color задаёт цвет только под текстом, а не во всей строке

[Пепел Феникса]

Canvas.Brush.Color задаёт цвет только под текстом, а не во всей строке

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

[Аватар]

procedure TForm1.ListBoxDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var xFilePath,xFileName: String;
begin
  if (odSelected in State) and ListBox.Focused then ListBox.Canvas.Brush.Color:=clMenuHighlight
  else if odSelected in State                  then ListBox.Canvas.Brush.Color:=clBtnFace
                                               else ListBox.Canvas.Brush.Color:=clWindow;
  ListBox.Canvas.Brush.Style:=bsSolid;
  ListBox.Canvas.FillRect(Rect);
  if (odSelected in State) and ListBox.Focused then ListBox.Canvas.Font.Color:=clWindow
                                               else ListBox.Canvas.Font.Color:=clWindowText;
  xFilePath:=ListBox.Items[Index];
  xFileName:=ExtractFileName(xFilePath);
  xFilePath:=Copy(xFilePath,1,Length(xFilePath)-Length(xFileName));
  ListBox.Canvas.TextOut(Rect.Left,Rect.Top,xFilePath);
  ListBox.Canvas.Font.Style:=[fsBold];
  ListBox.Canvas.TextOut(Rect.Left+GetPWithStr(xFilePath),Rect.Top,xFileName);
end;