在 TListView 中居中子项图像

Question

是否可以在 TListView 中修复 subitem 个图像的绘制，使它们不会如图所示在左侧被截断？

Answer 1

好吧，Pieter van Wyk，我做了一个最小的例子来说明你如何可以自己绘制你的 TListView 组件以便在子项目中居中图像。

答案已被重写。为了减少答案的大小，我删除了未使用和错误的部分。以前的版本可以在问题编辑历史中找到。

下图表示新代码的工作。
一个橙色行是选定的行。
所选行上的图像周围有白色。这不是错误 - 它是具有这种填充的源图像。

有代码可以执行与图片相同的操作：

procedure TForm1.ListView1DrawItem(Sender: TCustomListView; Item: TListItem; Rect: TRect;
  State: TOwnerDrawState);
var
  Bmp: TBitmap;
  Image: TBitmap;
  R: TRect;
  CenterH: Integer;
  CenterV: Integer;
  ImageIndex: Integer;
  ItemWidth: Integer;
  i: Integer;
begin
  // Set initial legth of point at the end of which image will be drawn.  
  // Column 0 is a "fixed" column
  ItemWidth := Sender.Column[0].Width;
  R := Rect;

  Bmp := TBitmap.Create;
  try
    Image := TBitmap.Create;
    try
      Bmp.SetSize(R.Width, R.Height);

      // Make fill for item
      if Item.Selected then
        Bmp.Canvas.Brush.Color := clWebOrange
      else
        Bmp.Canvas.Brush.Color := clMoneyGreen;
      Bmp.Canvas.FillRect(Bmp.Canvas.ClipRect);

      // Output image associated with 'fixed' column
      TListView(Sender).SmallImages.GetBitmap(Item.ImageIndex, Image);
      CenterH := (Sender.Column[0].Width - Image.Width) div 2;
      CenterV := (R.Height - Image.Height) div 2;
      Bmp.Canvas.Draw(CenterH, CenterV, Image);

      // Output text
      Bmp.Canvas.TextOut(CenterH + Image.Width + 6, 6, Item.Caption);

      // Draw sub-items
      for i:=0 to Item.SubItems.Count - 1 do
        begin
          // Obtain index of image
          ImageIndex := Item.SubItemImages[i];

          // Get associated image
          TListView(Sender).SmallImages.GetBitmap(ImageIndex, Image);

          // Center image
          CenterH := (Sender.Column[i+1].Width - Image.Width) div 2;
          CenterV := (R.Height - Image.Height) div 2;

          // Output image
          Bmp.Canvas.Draw(ItemWidth + CenterH, CenterV, Image);

          // Increase point where image started to be drawn
          Inc(ItemWidth, Sender.Column[i+1].Width);
        end;

      // Draw ready item's image onto sender's canvas
      Sender.Canvas.Draw(R.Left, R.Top, Bmp);
    finally
      Image.Free;
    end;
  finally
    Bmp.Free;
  end;
end;

要应用此代码 您必须激活 OwnerDraw 属性。

看到这个 TListView.OwnerDraw Property 导致 docs.embarcadero。我还想引用上面 link 中的一句话：

Set OwnerDraw to true to allow the list view to receive the OnDrawItem event instead of the default rendering of list items.

P.S.
调整列的大小后，可能会有一些 graphical artifacts - 只需尝试以隐藏（列的最小可能大小）和显示图像（任何超过关联图像大小的列大小）的方式调整列的大小，并且你会明白我的意思的。

P.S.S.
画个子项的文字留给你做作业;)

在 TListView 中居中子项图像

Center subitem images in a TListView

delphi

tlistview

subitem