Как обойти ограничение в 255 символов для SubItems в TListView и TJvListView

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

Проблема ограничения длины текста в TListView

Как обнаружил пользователь Gin Beginner, стандартные компоненты TListView и TJvListView в Delphi имеют ограничение на длину текста в SubItems - только первые 255 символов отображаются в интерфейсе, хотя фактически в памяти может храниться более длинная строка. Это подтверждается тестом:

ShowMessage('Characters in a string - ' + IntToStr(Length(ListView1.Items[0].SubItems[1])));
ShowMessage('String text:' + #13#10 + ListView1.Items[0].SubItems[1]);

Первое сообщение покажет полную длину строки (например, 661 символ), а в самом ListView будет видно только первые 255 символов.

Причина ограничения

Как указал пользователь aehimself, это ограничение связано с Windows API. Компонент TListView является оберткой над стандартным элементом управления Windows ListView, который исторически имеет ограничение на длину текста в 260 символов (включая нулевой терминатор).

Решения проблемы

1. Использование всплывающей подсказки (ToolTip)

Один из простых способов - отображать полный текст во всплывающей подсказке при наведении на элемент:

procedure TForm1.ListView1InfoTip(Sender: TObject; Item: TListItem;
  var InfoTip: string);
begin
  if Item.SubItems.Count > 0 then
    InfoTip := Item.Caption + ' - ' + Item.SubItems[0];
end;

Не забудьте установить свойство ShowHint в True и OwnerData в False для ListView.

2. Подкласс TListView с переопределением сообщения LVM_GETITEMTEXT

Можно создать потомок TListView и переопределить его поведение:

type
  TMyListView = class(TListView)
  protected
    procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY;
  end;

procedure TMyListView.CNNotify(var Message: TWMNotify);
var
  pdi: PLVDispInfo;
  Item: TListItem;
  MaxLen: Integer;
begin
  inherited;
  if Message.NMHdr.code = LVN_GETDISPINFO then
  begin
    pdi := PLVDispInfo(Message.NMHdr);
    if (pdi.item.iSubItem = 0) then Exit;

    Item := Items[pdi.item.iItem];
    if Item = nil then Exit;

    if pdi.item.iSubItem <= Item.SubItems.Count then
    begin
      MaxLen := Length(Item.SubItems[pdi.item.iSubItem - 1]);
      if MaxLen > 255 then
      begin
        StrLCopy(pdi.item.pszText, PChar(Item.SubItems[pdi.item.iSubItem - 1]), pdi.item.cchTextMax);
        pdi.item.pszText[pdi.item.cchTextMax - 1] := #0;
      end;
    end;
  end;
end;

3. Использование виртуального режима (OwnerData)

Виртуальный режим позволяет полностью контролировать отображение данных:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView1.OwnerData := True;
  ListView1.OnData := ListView1Data;
  ListView1.Items.Count := 1; // Количество элементов
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  if Item.Index = 0 then
  begin
    Item.Caption := '22421';
    Item.SubItems.Add('All Columns ' + IntToStr(ListView1.Columns.Count));
    Item.SubItems.Add('<RHINOSTRING English="Exploding this mesh will create...');
  end;
end;

4. Альтернативные компоненты

Если вам часто требуется работа с длинным текстом, рассмотрите альтернативные компоненты:

• TStringGrid - более гибкий, но менее удобный для некоторых задач
• VirtualTreeView - мощный компонент без ограничений на длину текста
• DevExpress TcxGrid или аналогичные компоненты от других производителей

Пример полного решения с ToolTip

Вот как можно реализовать полноценное решение с отображением полного текста во всплывающей подсказке:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.ComCtrls;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
    procedure ListView1InfoTip(Sender: TObject; Item: TListItem;
      var InfoTip: string);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
const
  LongText = '<RHINOSTRING English="Exploding this mesh will create %d individual meshes. ' +
    'This may be more than your system can safely manage using the available memory. ' +
    'You can use Weld to make the mesh explode into fewer pieces, or see Help for more information.\n\n' +
    'Click OK to proceed with Explode, or Cancel to leave the mesh as is.[[24836]]" ' +
    'Localized="Exploding this mesh will create %d individual meshes.  This may be more than ' +
    'your system can safely manage using the available memory.  You can use Weld to make the ' +
    'mesh explode into fewer pieces, or see Help for more information.\n\nClick OK to proceed ' +
    'with Explode, or Cancel to leave the mesh as is.[[24836]]" />';
begin
  ListView1.ViewStyle := vsReport;
  ListView1.ShowHint := True;

  with ListView1.Columns.Add do
    Caption := 'ID';
  with ListView1.Columns.Add do
    Caption := 'Description';

  with ListView1.Items.Add do
  begin
    Caption := '1';
    SubItems.Add(LongText);
  end;

  // Автоподбор ширины колонок
  ListView1.Column[0].Width := 50;
  ListView1.Column[1].Width := ListView1.Width - 70;
end;

procedure TForm1.ListView1InfoTip(Sender: TObject; Item: TListItem;
  var InfoTip: string);
begin
  if Item.SubItems.Count > 0 then
    InfoTip := Item.Caption + ': ' + Item.SubItems[0];
end;

end.

Заключение

Хотя стандартный TListView имеет ограничение на отображение длинного текста в SubItems, существует несколько способов обойти эту проблему:

1. Использование всплывающих подсказок - самый простой метод
2. Создание потомка TListView с переопределением поведения - для более сложных сценариев
3. Виртуальный режим - дает полный контроль над отображением
4. Альтернативные компоненты - если ограничение критично для вашего приложения

Выбор решения зависит от конкретных требований вашего проекта. Для большинства случаев достаточно первого варианта с ToolTip, так как он прост в реализации и дает пользователю доступ к полному тексту.

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

Обход ограничения в 255 символов для SubItems в TListView и TJvListView через всплывающие подсказки, подклассы, виртуальный режим или альтернативные компоненты.

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

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

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