Delphi:如何在CustomDrawItem的List View中绘制小图标

在Delphi中，要在CustomDrawItem的List View中绘制小图标，您需要使用以下步骤：

1. 首先，在List View的属性中，将ViewStyle属性设置为vsReport。这将允许您在列表项中添加图标。
2. 在List View的属性中，将SmallImages属性设置为您的图像列表。这通常是一个TImageList组件，其中包含了您要在列表项中显示的图标。
3. 在List View的OnCustomDrawItem事件中，您可以使用以下代码来绘制图标：

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  // 在这里，我们将图标绘制在列表项的第一列
  // 您可以根据需要更改列的索引
  Item.DrawIcon(Canvas, Item.SubItems[0], 2, 2);
end;

在上面的代码中，我们使用了DrawIcon方法来绘制图标。这个方法需要一个Canvas对象，一个图标索引，以及图标的左上角位置。

1. 最后，在List View的OnData事件中，您需要将图标索引添加到列表项的SubItems中。这将使您能够在CustomDrawItem事件中访问它。

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  // 在这里，我们假设您有一个TImageList组件，其中包含了图标
  // 您可以根据需要更改ImageList1的名称
  Item.ImageIndex := ImageList1.AddIcon(Application.Icon);
  Item.SubItems.Add(IntToStr(Item.ImageIndex));
end;

在上面的代码中，我们使用了Data事件来添加图标索引到列表项的SubItems中。我们假设您已经有了一个包含图标的TImageList组件，并使用了Application.Icon作为图标。您可以根据需要更改ImageList1的名称和添加图标的方式。

现在，当您运行应用程序时，您应该能够在List View中看到带有小图标的列表项。