设置ListView的页眉图标

设置ListView的页眉图标

作者： zswangII/CSDN 更新人：legume 来源：不详 更新时间：2004-06-11 投稿信箱： jc@ddvip.net (*// 标题:设置ListView的页眉图标 说明:可以用来做排序修饰图标 设计:Zswang 支持:wjhu111@21cn.com 日期:2004-03-25 //*) uses CommCtrl; function ListViewHeaderImages(mListView: TListView; mImages: TImageList): Boolean; var vHandle: THandle; begin Result := False; if not Assigned(mListView) then Exit; vHandle := ListView_GetHeader(mListView.Handle); if Assigned(mImages) then Header_SetImageList(vHandle, mImages.Handle) else Header_SetImageList(vHandle, 0); Result := True; end; { ListViewHeaderImages } function ListColumnImageIndex(mColumn: TListColumn; mImageIndex: Integer; mRight: Boolean = True): Boolean; var vHandle: THandle; vHDItem: THDItem; begin Result := False; if not Assigned(mColumn) then Exit; vHandle := ListView_GetHeader(TListView(mColumn.Collection.Owner).Handle); FillChar(vHDItem, SizeOf(vHDItem), 0); Header_GetItem(vHandle, mColumn.Index, vHDItem); if mImageIndex < 0 then begin vHDItem.Mask := HDI_FORMAT; vHDItem.fmt := HDF_STRING; end else begin vHDItem.Mask := HDI_IMAGE or HDI_FORMAT; vHDItem.iImage := mImageIndex; vHDItem.fmt := HDF_STRING or HDF_IMAGE or (HDF_BITMAP_ON_RIGHT * Ord(mRight)); end; Header_SetItem(vHandle, mColumn.Index, vHDItem); end; { ListColumnImageIndex } //Example procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn); {$J+} const vIndex: Integer = 0; {$J-} var I: Integer; begin for I := 0 to TListView(Sender).Columns.Count - 1 do ListColumnImageIndex(TListView(Sender).Columns[I], -1); if Abs(vIndex) = Column.Index + 1 then vIndex := -vIndex else vIndex := Column.Index + 1; ListColumnImageIndex(Column, Ord(vIndex > 0)); end; procedure TForm1.FormCreate(Sender: TObject); begin ListViewHeaderImages(ListView1, ImageList1); end;