Показать сообщение отдельно
  #1  
Старый 17.12.2014, 13:26
Аватар для garun
garun garun вне форума
Прохожий
 
Регистрация: 06.12.2014
Сообщения: 6
Версия Delphi: Delphi 7
Репутация: 10
Вопрос [TListView]: иконки в SubItems

Добрый день!

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