Форум: "Основная";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
ВнизПомогите с проблемой!!! Полоса прокрутки в TreeView Найти похожие ветки
← →
Fedorenko Igor (2002-02-07 12:23) [0]Помогите! Как заставить TreeView автоматически прокручивать окно когда "тащим" мышкой итем за пределы окна????
← →
Petrovich (origin) (2002-02-07 13:10) [1]Вообще-то вопрос плохо понятен. Я так понимаю, что при перетаскивании итема вверх или вниз, в момент выхода за пределы окна дерева, дерево должно скроллироваться.
Если так, то такой пример тебе поможет.
У таймера интервал = 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;
← →
Fedorenko Igor (2002-02-07 13:39) [2]Спасибо, но скроллинг вниз не работает
← →
Petrovich (origin) (2002-02-07 13:41) [3]Поэкспериментируй с цифрой 5 в строчке
TreeView1.Top + TreeView1.Height-5
← →
Fedorenko Igor (2002-02-07 13:44) [4]Спасибо, на -100 заработало :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c