Редактирование подстрок в `TListView`: расширенные возможности без модификаций поверх интерфейса.

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

Редактирование подстрок в TListView: расширенные возможности без модификаций поверх интерфейса

Вопрос, поставленный перед пользователями, заключается в возможности редактирования подстрок в компоненте TListView от компании Embarcadero. Стандартное поведение TListView позволяет редактировать только основную строку элемента списка, но не его подстроки. Тем не менее, существует способ расширить функциональность TListView для редактирования подстрок без необходимости вносить изменения в интерфейс пользователя.

Изменения в коде TListView

Приведенный ниже код представляет собой модифицированный TListView, который позволяет редактировать подстроки с помощью встроенного редактора. Для реализации данной функциональности используется переопределение стандартных событий компонента, таких как OnMouseDown и OnDrawItem, а также добавление нового редактируемого элемента (например, TEdit) на поверхность TListView.

Объявление класса TListViewCustom

TListViewCustom = class(TListView)
private
  FEditItem: TListItem;
  FEditColumn: Integer;
  FEditControl: TEdit;
  procedure WndProc(var Msg: TMsg); message WM_NCHITTEST;
  procedure WndProcEdit(var Msg: TMsg); message WM_NOTIFY;
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
  procedure Click; override;
  procedure DrawItem(Owner: TObject; Item: TListItem; Rect: TRect; State: TOwnerDrawState); override;
  procedure DrawSubItem(Item: TListItem; Column: Integer; Rect: TRect; State: TOwnerDrawState);
  function CanEdit: Boolean;
  procedure EditItem(Item: TListItem; Column: Integer);
  procedure EndEdit;
end;

Конструктор и деструктор

constructor TListViewCustom.Create(AOwner: TComponent); override;
begin
  inherited Create(AOwner);
  // Инициализация редактируемого элемента
end;

destructor TListViewCustom.Destroy; override;
begin
  // Освобождение ресурсов
  inherited;
end;

Переопределение событий OnClick и OnDrawItem

procedure TListViewCustom.Click; override;
begin
  inherited;
  // Обработка клика для начала редактирования
end;

procedure TListViewCustom.DrawItem(Owner: TObject; Item: TListItem; Rect: TRect; State: TOwnerDrawState); override;
begin
  inherited;
  // Отрисовка элементов списка с учетом редактирования
  if Assigned(FEditItem) and (Item = FEditItem) then
    DrawSubItem(Item, FEditColumn, Rect, State);
end;

procedure TListViewCustom.DrawSubItem(Item: TListItem; Column: Integer; Rect: TRect; State: TOwnerDrawState);
var
  BoundsRect: TRect;
begin
  if Column = FEditColumn then
  begin
    if CanEdit then
      with TCanvas(Handle) do
      begin
        Brush.Color := clHighlight;
        Font.Color := clHighlightText;
        FillRect(Rect);
        TextRect(Rect, Rect.Left + 2, Rect.Top, Item.SubItems[Column - 1]);
      end;
    end;
    if FEditControl <> nil then
    begin
      BoundsRect := Rect;
      OffsetRect(BoundsRect.Left, BoundsRect.Top - 2);
      OffsetRect(BoundsRect.Right, BoundsRect.Bottom + 2);
      if Rect = FEditControl.BoundsRect then
        Exit;
      FEditControl.BoundsRect := BoundsRect;
      FEditControl.Text := Item.SubItems[Column - 1];
      FEditControl.Visible := True;
      FEditControl.SetFocus;
    end;
  end;
end;

Завершение редактирования

procedure TListViewCustom.EndEdit;
begin
  if Assigned(FEditControl) then
  begin
    FEditControl.Visible := False;
    FEditItem := nil;
    FEditColumn := -1;
  end;
end;

procedure TListViewCustom.EditItem(Item: TListItem; Column: Integer);
begin
  FEditItem := Item;
  FEditColumn := Column;
  if Column > 0 then
  begin
    if FEditControl = nil then
    begin
      FEditControl := TEdit.Create(Self);
      FEditControl.Parent := Self;
      FEditControl.OnExit := EndEdit;
      FEditControl.Visible := False;
    end;
    FEditControl.Text := Item.SubItems[Column - 1];
  end;
end;

Обработка событий WM_NCHITTEST и WM_NOTIFY

procedure TListViewCustom.WndProc(var Msg: TMsg); message WM_NCHITTEST;
begin
  // Обработка нажатия на подстроки для начала редактирования
  inherited;
end;

procedure TListViewCustom.WndProcEdit(var Msg: TMsg); message WM_NOTIFY;
begin
  case Msg.Msg of
    WM_KEYDOWN:
      case Msg.WParam of
        VK_ESCAPE:
          EndEdit;
        VK_RETURN:
          Begin
            FEditItem.SubItems[FEditColumn - 1] := FEditControl.Text;
            EndEdit;
          end;
      end;
  inherited;
end;

Заключение

Данный код представляет собой основу для расширения функциональности TListView для редактирования подстрок. Он предполагает наличие продвинутых знаний в области работы с компонентами Winapi и обработки оконных сообщений. Важно отметить, что для полноценной реализации потребуется более глубокая интеграция с интерфейсом пользователя и обработка различных сценариев использования.

Важно

Данные примеры кода не включают полную реализацию функционала, а только иллюстрируют концепцию редактирования подстрок в TListView. Для полноценной реализации потребуется дополнительная разработка и тестирование.

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

**Описание:** Код представляет собой модификацию компонента `TListView` для добавления возможности редактирования подстрок без изменений в интерфейсе.

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

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

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