Как поместить картинку в заголовок ListView?

← →
Ruslan (2004-04-19 17:42) [0]

В FAQ нашел следующее решение. Вставил его в проект, но Delphi ругается что Undeclaretad identifier "HD_item", "HDF_LEFT" и т.д.
В чем тут дело?

procedure TForm1.SetColumnImage( List: TListView; Column,
Image: Integer; ShowImage: Boolean);
var
Align, hHeader: integer;
HD: HD_ITEM;
begin
hHeader := SendMessage(List.Handle, LVM_GETHEADER, 0, 0);
with HD do
begin
case List.Columns[Column].Alignment of
taLeftJustify:
Align := HDF_LEFT;
taCenter:
Align := HDF_CENTER;
taRightJustify:
Align := HDF_RIGHT;
else
Align := HDF_LEFT;
end;
mask := HDI_IMAGE or HDI_FORMAT;
pszText := PChar(List.Columns[Column].Caption);
if ShowImage then
fmt := HDF_STRING or HDF_IMAGE or HDF_BITMAP_ON_RIGHT
else
fmt := HDF_STRING or Align;
iImage := Image;
end;
SendMessage(hHeader, HDM_SETITEM, Column, Integer(@HD));
end;

← →
Григорьев Антон (2004-04-19 17:49) [1]

В Delphi 5 этот тип определён в модуле CommCtrl.

Как поместить картинку в заголовок ListView? Найти похожие ветки