Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TVirtualStringTree ScrollBar [D7, WinXP]

STD © (2009-11-17 20:59:00)
Здравствуйте, кто работал с компонентом TVirtualStringTree подскажите как исправить проблему того, что при длинном списке вертикальный ScrollBar прокручивает не до конца списка, либо остается неактивным

Egloo (2010-02-09 14:52:00) [1]
Проблема была решена разработчиками ( http://code.google.com/p/virtual-treeview/issues/detail?id=83), однако решение еще не вышло в виде релиза.

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

4el0vek (2009-11-20 12:05:00) [2]
у меня был тот же глюк. постараюсь найти код и привести пример. даже может быть скриншот покажу.

Омлет (2009-11-18 21:34:00) [3]
Я советую углубляться в освоение дебаггера.
Повторить ошибку я не смог.

STD (2009-11-18 20:06:00) [4]
видимо никто здесь не подскажет, зашел на официальный форум там подобный вопрос без ответа с конца сентября висит:
support.soft-gems.net/forums/viewtopic.php?t=2320
придется углубляться в изучение английского

STD (2009-11-18 12:06:00) [5]
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;

Омлет (2009-11-18 10:56:00) [6]
У меня всё работает.

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 08:43:00) [7]
версия 4.8.6, пример сложновато сделать. много переписывать. ситуация такая: я из одного дерева копирую в другое
Form1.Tree1.CopyTo(Node, Form1.Tree2, amInsertAfter, false);
но у второго дерева scrollbar остается неактивным

Омлет (2009-11-17 21:37:00) [8]
Ни разу такого не встречал.
Можете сделать тестовый пример?
Какая версия компонента?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »