VPF::Отрисовка в VirtualTreeView - Форум программистов

Pavelbej

Дата 16.9.2008, 17:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

Снова здравствуйте!

В VirtualTreeView есть несколько узлов. Нужно для помеченного галочкой узла отрисовать несколько иконок которые указывают что нужно ждать (как у флаш роликов, в Firefox, ...). Вот что удалось предварительно сделать:

Код


procedure TForm1.Button1Click(Sender...);
begin
       while assigned(node) do
       begin
             if node.CheckState=csCheckedNormal then
             begin
                     Timer1.Enabled:=true; //запускаем таймер

                     //Очень долгая операция в отдельном потоке

                     Timer1.Enabled:=false; //останавливаем таймер
             end;м
             node:=VTSync1.GetNext(node);
       end;
end;

В таймере отрисовываю иконки.

Код


procedure TfrImportExport.Timer1Timer(Sender: TObject);
var i: byte;
begin
    i:=random(15);
    form1.ImageList.Draw(vtsync1.Canvas, 270, 20, i);
end;

Все бы хорошо но дело в том что я не знаю как получить достум к текущему узлу. Пока у меня иконки отображаются только в первом узле. В onDrawNode отрисовка идет с помощь PaintInfo.Canvas, а вот как извне его использовать я не знаю.

Это сообщение отредактировал(а) Pavelbej - 16.9.2008, 17:42

MetalFan

Дата 17.9.2008, 13:36 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

отрисовывай нужную иконку в OnDrawItem, а по таймеру дергай нужным нодам RepaintNode

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »