VPF::VirtualStringTree - Форум программистов

ZBugz

Дата 20.5.2011, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Всем привет. Как переместить выделенные строки в самый низ ?

Код


//На строку вверх
procedure TMainForm.MoveUpTBClick(Sender: TObject);
var
  i: integer;
  Node,PrevNode: PVirtualNode;
begin
  if Lv.SelectedCount = 0 then Exit;
  Node := Lv.GetFirstSelected;
  for i := 0 to Lv.SelectedCount - 1 do begin
    PrevNode := Lv.GetPrevious(Node,false);
    Lv.MoveTo(Node,PrevNode,amInsertBefore,false);
    Node := Lv.GetNextSelected(Node,false);
  end;
end;
//В самый вверх
procedure TMainForm.NMoveFirstUpClick(Sender: TObject);
var
  i: integer;
  Node,PrevNode: PVirtualNode;
begin
  if Lv.SelectedCount = 0 then Exit;
  Node := Lv.GetFirstSelected;
  for i := 0 to Lv.SelectedCount - 1 do begin
    PrevNode := Lv.GetFirst(False);
    Lv.MoveTo(Node,PrevNode,amInsertBefore,false);
    Node := Lv.GetNextSelected(Node,false);
  end;
end;
//На строку вниз
procedure TMainForm.MoveDownTBClick(Sender: TObject);
var
  Node, Next: PVirtualNode;
begin
  with Lv do
  begin
    Node := GetLast;
    while Assigned(Node) do
    begin
      if vsSelected in Node.States then
      begin
        Next := GetNext(Node);
        if Assigned(Next) and not (vsSelected in Next.States) then
          MoveTo(Node, Next, amInsertAfter, False);
      end;
      Node := GetPrevious(Node);
    end;
  end;
end;
//В самый низ
procedure TMainForm.NMoveLastDownClickClick(Sender: TObject);
var
  Node, Next: PVirtualNode;
begin
Что делат то ?
end;

Это сообщение отредактировал(а) ZBugz - 20.5.2011, 11:40

ZBugz

Дата 24.5.2011, 10:17 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Код


procedure TMainForm.NMoveLastDownClickClick(Sender: TObject);
Var
 I: Integer;
 Node, PrevNode,NextNode: PVirtualNode;
begin
 if Lv.SelectedCount = 0 then Exit;
  Node := Lv.GetFirstSelected;
   for i := 0 to Lv.SelectedCount - 1 do
    begin
     PrevNode := Lv.GetLast;
     NextNode:=Lv.GetNextSelected(Node, false);
     Lv.MoveTo(Node, PrevNode, amInsertAfter, false);
     Node := NextNode;
    end;
end;

Ех, пока дождешься, сам напишешь smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »