[garun]

Добрый день!

На форме есть 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;, в итоге иконка в первом столбце не отображается, но под нее выделено пространство. Как убрать вот это пустое место перед первым столбцом?

[Alegun]

Добавьте в конце блока with

Код:

...
  ImageIndex:= -1;
  Indent:= -1;
...