当listview的ViewStyle为vsReport,GridLines为true时，怎么在第一列中画上一个图标?

Question

当listview的ViewStyle为vsReport,GridLines为true时，怎么在第一列中画上一个图标?

Answer 1

参考 \Borland\Delphi5\Demos\Virtual Listview

Answer 2

很简单,
listview.smallimage := ImageList1;
ListItem: TListItem;ListItem := listview.Items.Add;
listitem.ImageIndex :=1;
listitem.caption :='';

Answer 3

收到你的短信
在第一列加图标
procedure TForm1.Button1Click(Sender: TObject);
var
 myColumn: TListColumn;
 myicon : Ticon;
begin
  myicon := Ticon.Create;
  myicon.LoadFromFile('d:\a.ico');
  ImageList1.AddIcon(myicon) ;
  listview1.SmallImages := ImageList1;
  myColumn := ListView1.Columns.Items[0];
  mycolumn.ImageIndex := 0;
end;在第一行加图标
procedure TForm1.Button2Click(Sender: TObject);
var
 myitem: TListitem;
 myicon : Ticon;
begin
  myicon := Ticon.Create;
  myicon.LoadFromFile('d:\a.ico');
  ImageList1.AddIcon(myicon) ;
  listview1.SmallImages := ImageList1;
  myitem := ListView1.items.Item[0];
  myitem.ImageIndex := 0;
end;