Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 447

•  TDictionary Custom Sort  6 479

•  Fast Watermark Sources  6 272

•  3D Designer  9 220

•  Sik Screen Capture  6 609

•  Patch Maker  6 992

•  Айболит (remote control)  6 995

•  ListBox Drag & Drop  5 864

•  Доска для игры Реверси  97 039

•  Графические эффекты  7 193

•  Рисование по маске  6 489

•  Перетаскивание изображений  5 362

•  Canvas Drawing  5 739

•  Рисование Луны  5 449

•  Поворот изображения  4 978

•  Рисование стержней  3 535

•  Paint on Shape  2 803

•  Генератор кроссвордов  3 668

•  Головоломка Paletto  2 959

•  Теорема Монжа об окружностях  3 762

•  Пазл Numbrix  2 481

•  Заборы и коммивояжеры  3 166

•  Игра HIP  2 132

•  Игра Go (Го)  2 066

•  Симулятор лифта  2 438

•  Программа укладки плитки  2 111

•  Генератор лабиринта  2 583

•  Проверка числового ввода  2 262

•  HEX View  2 590

•  Физический маятник  2 202

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

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



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





Похожие по теме исходники

TOptEls (отрисовка линз и зеркал)

Bitmap Sharpen Filter

Simple Bitmap Rotation

Bitmap 32Bit Demo

 

Thread Bitmap (pencil drawings)




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте