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

Программисты (он и она) лежат в постели и отдыхают после занятий любовью.
Она: - Не хочешь повторить процедуру?
Он: - Функция еще не вернула значения.

Иногда бывает полезно в заголовке колонки показывать стрелочку, чтобы информировать пользователя, по какой колонке идёт сортировка. Добавьте следующий код в форму:

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;

Картинки берутся из списка SmallImages. Вам надо будет вызвать эту функцию для каждой колонки и установить ShowImage в TRUE для той колонки, которую Вы будете сортировать. Сделать это можно в функции OnColumnClick():

procedure TForm1.ListView1ColumnClick(Sender: TObject;
Column: TListColumn);
var
  i: integer;
begin
  // Это Ваша собственная функция сортировки
  CustomSort( @CustomSortProc, Column.index );
  // Этот цикл отображает иконку в выбранной колонке.
  for i := 0 to ListView1.Columns.Count-1 do
    SetColumnImage( ListView1, i, 0, i = Column.index );
end;

Проблема:

Изменение размера колонки генерирует сообщение WM_PAINT, которое стирает картинку, поэтому Вам прийдётся переопределить WM_PAINT и вызвать SetColumnImage снова.

Использовался компонент TApplicationEvents в delphi 5.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 840 • TDictionary Custom Sort 5 942 • Fast Watermark Sources 5 736 • 3D Designer 8 535 • Sik Screen Capture 6 078 • Patch Maker 6 511 • Айболит (remote control) 6 500 • ListBox Drag & Drop 5 361 • Доска для игры Реверси 95 142 • Графические эффекты 6 711 • Рисование по маске 5 863 • Перетаскивание изображений 4 893 • Canvas Drawing 5 266 • Рисование Луны 4 994 • Поворот изображения 4 537 • Рисование стержней 3 211 • Paint on Shape 2 455 • Генератор кроссвордов 3 339 • Головоломка Paletto 2 646 • Теорема Монжа об окружностях 3 437 • Пазл Numbrix 2 272 • Заборы и коммивояжеры 2 933 • Игра HIP 1 901 • Игра Go (Го) 1 817 • Симулятор лифта 2 156 • Программа укладки плитки 1 882 • Генератор лабиринта 2 320 • Проверка числового ввода 2 010 • HEX View 2 327 • Физический маятник 1 982