|
Эту задачу можно решить разными способами, но в случае, когда изображение в списке должно меняться
в зависимости от каких-то условий в режиме 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