[TListView]: Как сделать чтобы иконки отображались только во втором столбце?

[garuna]

Добрый вечер!

На форме есть ListView в режиме vsReport, 3 столбца.
Хочу чтобы иконки отображались во втором столбце (SubItem[0]), в свойствах ListView SmallIcons указываю нужный ImageList. затем пишу код:

procedure TForm1.btn1Click(Sender: TObject);
var
  itm: TListItem;
begin
 itm:= ListView1.Items.Add;
 with itm do
 begin
  Caption:= 'sdfsf';
  SubItems.Add('sdfsdfsdf');
  SubItems.Add('s444fsdf54645sdf');
  SubItemImages[0]:=0;
 end;
end;

В итоге почему-то в первый столбец тоже добавляется иконка, получается вот так:


Пробовал в процедуре добавления ставить ImageIndex:=-1;, в итоге иконка в первом столбце не отображалась, но под нее было выделено пространство. Как сделать чтобы иконка отображалась только во втором столбце и при этом не было вот этого пустого места перед первым столбцом?

[Stilet]

Думаю описать процедуры отрисовки. OnDrawItem и OnDrawSubItem кажись.
И в них прописать код рисования иконки и вывода текста.

[Аватар]

Там -1 где-то в имиджиндексе итема нужно поставить, нулевой то находит в имеджлисте. Ой не заметил. Тогда как Стилет предлагает

[garuna]

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

Думаю описать процедуры отрисовки. OnDrawItem и OnDrawSubItem кажись.
И в них прописать код рисования иконки и вывода текста.

Зачем? Ведь иконки и так уже прорисовываются в SubItem как нужно.
Необходимо только как-то убрать вот этот пустой отступ слева в первой колонке. Может кто-то знает как это сделать? Может с помощью каких-нибудь SendMessage() что ли.. Подскажите!

[Человек_Борща]

Попробуйте применить TVirtualStringTree или TVirtualLIstView. Они более гибкие в плане рисования чего-угодно.

[garuna]

блин, не поверю что не существует какого-нибудь более простого способа...

[Человек_Борща]

блин, не поверю что не существует какого-нибудь более простого способа...

Стандартные компоненты геморойные в этом плане.

[kropotkina-alice]

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

блин, не поверю что не существует какого-нибудь более простого способа...

Конечно есть...
Добавьте одну простенькую строчку:

 with itm do
begin
Caption:= 'sdfsf';
SubItems.Add('sdfsdfsdf');
SubItems.Add('s444fsdf54645sdf');
SubItemImages[0]:=0;
ImageIndex:=-1;
end;

[garuna]

Сообщение от kropotkina-alice

Конечно есть...
Добавьте одну простенькую строчку:

 with itm do
begin
Caption:= 'sdfsf';
SubItems.Add('sdfsdfsdf');
SubItems.Add('s444fsdf54645sdf');
SubItemImages[0]:=0;
ImageIndex:=-1;
end;

Спасибо, но я уже писал об этом в теме (пустое место вместо иконки остается).
Проблему решил добавлением этой строки:

Indent:=-1;

[kropotkina-alice]

Прошу прощения, просмотрела