Синхронизация столбцов в TListView с отображением vsReport в Delphi

Delphi , Компоненты и Классы , TListView

При работе с компонентом TListView в режиме отображения vsReport (табличный вид) пользователи часто сталкиваются с необходимостью синхронизации ширины столбцов между несколькими списками. Это может быть полезно, например, для обеспечения единообразия интерфейса или для удобства работы с данными. В стандартных настройках TListView нет встроенного события, которое бы срабатывало после изменения ширины столбца, что может создать определенные трудности.

Проблема

Разработчик столкнулся с задачей активизации события после изменения ширины столбца в TListView, настроенного на ViewStyle = vsReport. Необходимо было синхронизировать ширину столбцов между двумя списками, при этом один из списков должен был иметь заголовки столбцов.

Решение

Для решения этой проблемы было предложено использовать подклассование TListView и перехват сообщений WM_NOTIFY, которые отправляются от контрола заголовка списка к самому TListView. Следует искать уведомления HDN_ENDTRACK и HDN_ITEMCHANGED. Это позволяет отслеживать изменения ширины столбцов.

Пример кода

uses
  Winapi.Windows, Winapi.Messages;

type
  TListViewNotify = record
    hdr: TNotify;
    iItem: Integer;
    iSubItem: Integer;
    uChanged: Cardinal;
  end;

  TListView = class(StdCtrl.TListView)
  protected
    function WndProc(var Msg: TMsg): Boolean; override;
  end;

  TListViewHeader = class helper for TCustomListViewHeader
  public
    function GetHeaderControl: TWinControl; inline;
  end;

{ TListView }

function TListView.WndProc(var Msg: TMsg): Boolean;
begin
  if Msg.Msg = WM_NOTIFY then
  begin
    with TListViewNotify(Msg.LParam) do
    begin
      if hdr.code = HDN_ITEMCHANGED or hdr.code = HDN_ENDTRACK then
      begin
        // Здесь код обработки события изменения ширины столбца
      end;
    end;
  end;
  Result := inherited WndProc(Msg);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  ListView: TListView;
  HeaderControl: TWinControl;
begin
  ListView := TListView.Create(Self);
  with ListView do
  begin
    Parent := Self;
    ViewStyle := vsReport;
    Align := alClient;
    // Другие настройки...
  end;
  // Получаем указатель на контроль заголовков
  HeaderControl := TListViewHeader(ListView).GetHeaderControl;
  // Инициализируем подклассование
  TListView(ListView).WndProc := @TListView.WndProc;
  // Подключаем обработчики событий для контроля заголовков, если необходимо
  // ...
end;

Обсуждение

Некоторые разработчики могут считать, что встроенное событие для отслеживания изменения ширины столбцов должно быть частью компонента. Однако, как отмечено в обсуждении, VCL не оборачивает все возможности API, и предоставляет доступ к более продвинутым функциям, если это необходимо. Получение информации об изменении ширины столбцов реализуется с помощью небольшого количества кода и является возможным для опытных разработчиков.

Заключение

Для синхронизации ширины столбцов в TListView с отображением vsReport в Delphi можно использовать подклассование и перехват сообщений WM_NOTIFY. Это позволяет отслеживать изменения ширины столбцов и принимать соответствующие меры для их синхронизации между различными списками.

Создано по материалам из источника по ссылке.

При работе с компонентом `TListView` в режиме отображения `vsReport` в Delphi, разработчики сталкиваются с необходимостью синхронизации ширины столбцов, что требует подклассования и перехвата сообщений `WM_NOTIFY` для отслеживания измен

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TListView ::