在ListView 的Column Header上显示任意图片

uses
  Form, ImgList, CommCtrl;

procedure SetHeaderImage(const AListView: TListView;
                         const AImageList: TImageList;
                         const AColIdx, AImgIdx: Integer;
                         const AShowImage, ARightImage: Boolean);
var
  hndHD: HWND;
  HDI: THDITEM;
  OIL: TCustomImageList;
begin
  if AListView = nil then Exit;
  if AImageList = nil then Exit;

  if (AColIdx < 0) or (AColIdx >= AListView.Columns.Count) then Exit;
  if (AImgIdx < 0) or (AImgIdx >= AImageList.Count) then Exit;

  OIL := AListView.SmallImages;
  AListView.SmallImages := AImageList;
  try
    hndHD := SendMessage(AListView.Handle, LVM_GETHEADER, 0, 0);
    with HDI do
    begin
      Mask := HDI_IMAGE or HDI_FORMAT;
      if AShowImage then
      begin
        iImage := AImgIdx;
        fmt := HDF_STRING or HDF_IMAGE;
        if ARightImage then
          fmt := fmt or HDF_BITMAP_ON_RIGHT;
      end else begin
        fmt := HDF_STRING;
      end;
      fmt := fmt or Ord(AListView.Column[AColIdx].Alignment);
    end;
    SendMessage(hndHD, HDM_SETITEM, AColIdx, Integer(@HDI));
    Application.ProcessMessages;
  finally
    if OIL <> nil then
      AListView.SmallImages := OIL;
  end;
end;

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值