Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Как поместить картинку в заголовок 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;

---

← →
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.

---

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

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.036 c