Очистка изображения в TImageObjectAppearance: инструкция для динамического ListView в Firemonkey

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

Разработка приложений с использованием Firemonkey, особенно динамических компонентов, может представлять определенные трудности, особенно для тех, кто привык работать с VCL. В данной статье мы рассмотрим, как очистить изображение, отображаемое в динамическом ListView, используя TImageObjectAppearance.

Проблема

В вашем приложении на Firemonkey используется динамический ListView, который позволяет пользователю выбирать элементы для отправки по электронной почте. Вы реализовали возможность выбора нескольких элементов путем клика правой кнопкой мыши, что обрабатывается событием MouseDown. При клике по элементу отображается изображение, используя TImageObjectAppearance. Ваша задача — очистить это изображение, если пользователь кликнул по уже выбранному элементу, чтобы информировать его об отмене выбора. Для этого вы перебираете все элементы, так как их количество невелико (менее 100).

Проблема заключается в том, как очистить изображение, хранящееся в lvServiceReports.Items[i].Data['Image6'].

Решение

Для очистки изображения, связанного с TImageObjectAppearance, можно использовать следующий подход:

lvServiceReports.Items[i].Objects.FindObjectT<TListItemImage>('Image6').Bitmap := nil;

Этот код находит объект изображения в списке объектов элемента ListView и устанавливает его битмап в nil, тем самым очищая изображение.

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

lvServiceReports.Items[i].Objects.FindObjectT<TListItemImage>('Image6').Bitmap := TBitmap.Create;

Пример кода

Вот пример процедуры, которая обрабатывает событие клика правой кнопкой мыши по элементу ListView и очищает или устанавливает изображение в зависимости от текущего состояния элемента:

procedure TfrmJob.lvServiceReportsMouseDown(Sender: TObject;
    Button: TMouseButton; Shift: TShiftState; X, Y: Single);
var
  i: Integer;
  rct: TRectF;
begin
  if Button = TMouseButton.mbRight then
    for i := 0 to lvServiceReports.Items.Count-1 do
    begin
      rct := lvServiceReports.GetItemRect(i);
      if (rct.Bottom >= Y) and (Y >= rct.Top) then
      begin
        if lvServiceReports.Items[i].Data['Image6'].IsEmpty then
          lvServiceReports.Items[i].Objects.FindObjectT<TListItemImage>('Image6').Bitmap := imgEmailSelect.Bitmap
        else
          lvServiceReports.Items[i].Objects.FindObjectT<TListItemImage>('Image6').Bitmap := nil;
      end;
    end;
end;

Заключение

Используя метод FindObjectT<TListItemImage>, вы можете легко очистить или установить изображение для элемента в динамическом ListView, что позволяет вам гибко управлять отображением элементов списка в вашем приложении Firemonkey.

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

Указания по очистке изображения в динамическом ListView с использованием TImageObjectAppearance в рамках разработки приложений на Firemonkey.

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

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

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