function ListViewHeaderImages(mListView: TListView; mImages: TImageList): Boolean;
var
vHandle: THandle;
begin
Result := False;
ifnot 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;
ifnot 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 < 0thenbegin
vHDItem.Mask := HDI_FORMAT;
vHDItem.fmt := HDF_STRING;
endelsebegin
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 }