Всем привет!

Помогите справиться с проблемой. Нужно изменять высоту выделенного узла, делаю так:

procedure TForm1.FormCreate(Sender: TObject);
begin
  VirtualStringTree1.RootNodeCount := 50;
  VirtualStringTree1.TreeOptions.MiscOptions :=
     VirtualStringTree1.TreeOptions.MiscOptions + [toVariableNodeHeight];
end;

procedure TForm1.VirtualStringTree1MeasureItem(Sender: TBaseVirtualTree;
 TargetCanvas: TCanvas; Node: PVirtualNode; var NodeHeight: Integer);
begin
  if vsSelected in Node.States then
     NodeHeight := 36
  else
     NodeHeight := 18;
end;

Если выбирать узлы мышкой, то все отображается нормально, а если выбирать клавишами ArrowUp/ArrowDown, получается такая ерунда

http://savepic.su/4847936.jpg

Как с этим справиться?

Внимание! Здесь обсуждаются вопросы, связанные с разработкой компонентов, редакторов свойств, редакторов компонентов и экспертов IDE.
Вопросы по поиску и использованию готовых компонентов, редакторов или экспертов являются нарушением тематики и могут быть удалены.

если это косяк vcl, то явно обновлять дерево на событии keyup
на forum.sources.ru/ ответили уже давно

DimaBr ©   (26.01.15 10:26) [1]

Не надо переносить в "Прочее" сообщения от незарегистрированных посетителей.