**Как скрыть значение и отобразить только имя элементов в TRzCheckList для Delphi**

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

Как скрыть значение и отобразить только имя элементов в TRzCheckList для Delphi

В статье рассмотрим, как добавить пару "имя-значение" в компонент TRzCheckList таким образом, чтобы в списке отображалось только имя, а значение было скрыто. TRzCheckList - это расширенный компонент, похожий на стандартный TCheckListBox, который входит в состав "Konopka Signature VCL Controls". Эти компоненты доступны бесплатно через GetIt Package Manager в среде разработки Delphi.

Проблема

При добавлении элемента в TRzCheckList с использованием кода:

ThisItem := RzCheckList1.AddItemToGroup(0, 'MyName');
RzCheckList1.Items.ValueFromIndex[ThisItem] := 'MyValue';

или с помощью метода AddPair:

RzCheckList1.Items.AddPair('MyName', 'MyValue');

в списке отображается вся пара "имя-значение", в то время как пользователю необходимо увидеть только имя.

Решение

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

1. При добавлении элемента в группу TRzCheckList используйте формат Имя=Значение:

RzCheckList1.AddItemToGroup(0, 'MyName=MyValue');

1. В обработчике события OnDrawItem компонента TRzCheckList реализуйте следующий код:

procedure TFormMain.RzCheckList1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  Flags: LongInt;
  Data: String;
  FCanvas: TCanvas;
  CheckListBox: TCheckListBox;
begin
  CheckListBox := TCheckListBox(Control);
  FCanvas := CheckListBox.Canvas;
  FCanvas.FillRect(Rect);
  if Index < CheckListBox.Count then
  begin
    Flags := DrawTextBiDiModeFlags(DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX);
    if not UseRightToLeftAlignment then
      Inc(Rect.Left, 2)
    else
      Dec(Rect.Right, 2);
    Data := CheckListBox.Items.Names[Index];
    Pos := PosEx(Data, '=');
    if Pos > 0 then
      Data := Copy(Data, 1, Pos - 1);
    DrawText(FCanvas.Handle, Data, Length(Data), Rect, Flags);
  end;
end;

Этот код позволяет извлечь имя из пары "имя-значение" и отобразить его в списке, скрывая значение.

Результат

При использовании предложенного решения, в TRzCheckList будет отображаться только имя элемента, как показано на следующем изображении:

Результат работы TRzCheckList

Заключение

Используя правильный формат добавления элемента и модифицировав обработчик события OnDrawItem, можно скрыть значение и отобразить только имя элементов в компоненте TRzCheckList для Delphi. Это позволяет улучшить пользовательский интерфейс и сделать его более информативным и понятным.

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

Описание Context: В статье рассматривается способ скрытия значения и отображения только имени элементов в компоненте `TRzCheckList` для Delphi, используя формат "имя=значение" и изменение обработчика события `OnDrawItem`.

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

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

:: Главная :: Списки ::