TVirtualStringTree ScrollBar

← →
STD (2009-11-17 20:59) [0]

Здравствуйте, кто работал с компонентом TVirtualStringTree подскажите как исправить проблему того, что при длинном списке вертикальный ScrollBar прокручивает не до конца списка, либо остается неактивным

← →
Омлет © (2009-11-17 21:37) [1]

Ни разу такого не встречал.
Можете сделать тестовый пример?
Какая версия компонента?

← →
STD (2009-11-18 08:43) [2]

версия 4.8.6, пример сложновато сделать. много переписывать. ситуация такая: я из одного дерева копирую в другое
Form1.Tree1.CopyTo(Node, Form1.Tree2, amInsertAfter, false);
но у второго дерева scrollbar остается неактивным

← →
Омлет © (2009-11-18 10:56) [3]

У меня всё работает.

procedure TForm1.FormCreate(Sender: TObject); var I: Integer; N: PVirtualNode; begin N := Tree1.AddChild(nil); for I := 0 to 1000 do Tree1.AddChild(N); Tree1.Expanded[N] := True; end; procedure TForm1.Tree1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString); begin CellText := IntToStr(Node.Index); end; procedure TForm1.Button1Click(Sender: TObject); begin Tree1.CopyTo(Tree1.GetFirst, Tree2, amInsertAfter, False); end; procedure TForm1.Tree2GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString); begin CellText := IntToStr(Node.Index); end;

Может Tree2 неактивен?

← →
STD (2009-11-18 12:06) [4]

Tree2 активен, похоже я не понимаю работы компонента.
делаю так, опираясь на твой пример:

procedure TForm1.Button1Click(Sender: TObject);
var
TN: PVirtualNode;
begin
TN := Tree1.GetFirst;
TN := TN.FirstChild;
TN := TN.NextSibling;
Tree1.CopyTo(TN, Tree2, amInsertAfter, False);
end;

и получаю ту же ситуацию. когда пункты не помещаются во второе дерево полоса прокрутки не возникает; или не активна при ScrollBarOptions.AlwaysVisible := true;

← →
STD (2009-11-18 20:06) [5]

видимо никто здесь не подскажет, зашел на официальный форум там подобный вопрос без ответа с конца сентября висит:
support.soft-gems.net/forums/viewtopic.php?t=2320
придется углубляться в изучение английского

Я советую углубляться в освоение дебаггера.
Повторить ошибку я не смог.

← →
4el0vek (2009-11-20 12:05) [7]

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

← →
Egloo (2010-02-09 14:52) [8]

Проблема была решена разработчиками (http://code.google.com/p/virtual-treeview/issues/detail?id=83), однако решение еще не вышло в виде релиза.

Вам необходимо скачать и задеплоить последнюю версию из svn ветки 4.8:
http://virtual-treeview.googlecode.com/svn/branches/4.8/

TVirtualStringTree ScrollBar Найти похожие ветки