Быстрая отрисовка BitMap в компоненте TListBox

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

Эту задачу можно решить разными способами, но в случае, когда изображение в списке должно меняться в зависимости от каких-то условий в режиме run-time, то встает вопрос о скорости перерисовки при скроллировании списка. Вот одно из возможных решений: создается компонент TImageList, который содержит весь необходимый набор изображений. И на событие TListBox.onDrawItem непосредственно на канве списка рисуется нужный BitMap самим TImageList. Метод TImageList.Draw работает очень быстро, так что при скролировании списка в несколько сотен записей замедление не заметно.

Примечание: В данном примере IMAGE_NORMAL, IMAGE_MESSAGE и IMAGE_AUTOANS константы, определяющие какое именно изображение надо рисовать в зависимости от значения функции (собственной) GetUserStatus.

procedure TMain.UserListDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with TCustomListBox(Control) do
  begin
    Canvas.FillRect(Rect);

    // Вывод самого текста текущего Item-а списка со сдвигом, чтобы освободить
    // место для изображения
    Canvas.TextOut(Rect.Left + 2 + ImageList.Height, Rect.Top + 3,
      Items[Index]);

    Rect.Bottom := Rect.Top + ImageList.Height; // перерисовывать только
    Rect.Right := Rect.Left + ImageList.Width; // часть , на которой картинка
    Rect.Top := Rect.Top + 2;

    // по состоянию юзера перерисовывается изображение
    case GetUserStatus(Index) of
      suNormal: ImageList.Draw(Canvas, Rect.Left, Rect.Top, IMAGE_NORMAL);
      suMessage: ImageList.Draw(Canvas, Rect.Left, Rect.Top, IMAGE_MESSAGE);
      suAutoans: ImageList.Draw(Canvas, Rect.Left, Rect.Top, IMAGE_AUTOANS);
    end; // Case
  end; // With
end;

Быстрая отрисовка BitMap в компоненте TListBox может быть достигнута за счет использования компонента TImageList и метода Draw, который работает быстро и не заметно влияет на скорость скроллинга списка.

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

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

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