VPF::Высота узлов в VirtualDrawTree - Форум программистов

AnalogXP

Дата 13.2.2010, 23:17 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте!

По нажатию на кнопку, ставлю флаг что нужно менять высоту узлов и вызываю VT2.Repaint. Опция TreeOptions.MiscOptions.toVariableNodeHeight установленна в True.
В событии onMeasureItem пишу:

Код


procedure Tfr_main.VT2MeasureItem(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; var NodeHeight: Integer);
var data: PData;
begin
    data:=sender.GetNodeData(node);
    if Assigned(data) then
    begin
           if flag then                  //проверка
               NodeHeight:=128
           else 
               NodeHeight:=18;
    end;
end;

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

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