| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Помогите с проблемой!!! Полоса прокрутки в TreeView [D6, Win2k]

Fedorenko Igor ©   (2002-02-07 12:23:00) 

Помогите! Как заставить TreeView автоматически прокручивать окно когда "тащим" мышкой итем за пределы окна????

---

Fedorenko Igor   (2002-02-07 13:44:00) [1]

Спасибо, на -100 заработало :)

---

Petrovich (origin)   (2002-02-07 13:41:00) [2]

Поэкспериментируй с цифрой 5 в строчке
TreeView1.Top + TreeView1.Height-5

---

Fedorenko Igor   (2002-02-07 13:39:00) [3]

Спасибо, но скроллинг вниз не работает

---

Petrovich (origin)   (2002-02-07 13:10:00) [4]

Вообще-то вопрос плохо понятен. Я так понимаю, что при перетаскивании итема вверх или вниз, в момент выхода за пределы окна дерева, дерево должно скроллироваться.
Если так, то такой пример тебе поможет.

У таймера интервал = 100.

procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Timer1.Tag := 0;
if (htOnItem in TreeView1.GetHitTestInfoAt(X,Y)) then
begin
{ Проверяем, находится ли курсор над первым или последним нодом }
if TreeView1.GetNodeAt(X,Y) = TreeView1.TopItem then
{ Устанавливаем признак, что надо скролиться вверх }
Timer1.Tag := 1
else
if TreeView1.GetNodeAt(X,Y).DisplayRect(False).Bottom >=
TreeView1.Top + TreeView1.Height-5 then
{ Устанавливаем признак, что надо скролиться вниз }
Timer1.Tag := -1;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var Node: TTreeNode;
begin
inherited;
Node := nil;
case Timer1.Tag of
1:begin
{ Если движемся вверх, то берем предыдущий видимый нод... }
Node := TreeView1.TopItem.GetPrevVisible;
end;
-1:begin
{ Если движемся вниз, то берем следующий видимый нод... }
Node := TreeView1.TopItem.GetNextVisible;
end;
end;
if Assigned(Node) then
begin
{ ...и делаем его верхним }
TreeView1.TopItem := Node;
TreeView1.Repaint;
end
end;

---

Наверх