VPF::События VirtualTreeView - Форум программистов

Erazer

Дата 18.6.2008, 10:51 (ссылка)

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

Загрузка ...

Шустрый

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

Репутация: -1
Всего: -1

Хочу сделать проверку пустоты/заполненности VirtualTreeView,следующего плана

Код


if VT.TotalCount = 0 then begin  end else begin  end ;

не знаю на какие события повесить чтобы коль оно заполнилось то кнопка разблокировалась,коль снова пусто то блокировалась.

aktuba

Дата 18.6.2008, 11:13 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Положи на форму ActionList (или ActionManager), создай событие для кнопки и в этом событии, в OnUpdate проверяй.

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

Erazer

Дата 18.6.2008, 22:50 (ссылка)

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

Загрузка ...

Шустрый

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

Репутация: -1
Всего: -1

Решил!

Код



  procedure TfmMain.VTAfterPaint(Sender: TBaseVirtualTree; TargetCanvas: TCanvas);
begin
    if VT.TotalCount = 0 then
    begin
Paint_DragFiles;
BtnProcess.Enabled:=False;
    end
 else
BtnProcess.Enabled:=True;
end;

Работает как в сказке smile

Добавлено через 53 секунды
Быстро и просто без изысков типа

Цитата(aktuba @ 18.6.2008, 11:13

)

ActionList

Добавлено через 1 минуту и 28 секунд
но на заметку конечно возьму все равно smile

aktuba

Дата 18.6.2008, 23:34 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Цитата(Erazer @ 18.6.2008, 23:50

)

Работает как в сказке smile

Ты имел в виду, "чем дальше - тем страшнее"???

1. ActionList - это не изыск, а как раз инструмент для подобных случаев.
2. Зачем проверять после отрисовки? Ситуация - ноды есть, но скрыты, т.е. в дереве их нет, но VT.TotalCount не равен нулю ;)

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

Erazer

Дата 19.6.2008, 00:45 (ссылка)

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

Загрузка ...

Шустрый

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

Репутация: -1
Всего: -1

Цитата(aktuba @ 18.6.2008, 23:34

)

Зачем проверять после отрисовки

затем что после того как он нарисовался, я поверх нарисую то что мне нужно (надпись drag files and folders here), если делать перед то она будет затерта перерисовывающимся VT,а невидимых узлов я создавать не собираюсь - не вижу смысла,посему в качестве исключения из правила думаю прокатит,хотя с методической точки зрения может быть и не правильно но работает, и главное просто smile

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