TListView перемещиение(вверх-вниз) элементов списка

[Человек_Борща]

Всем привет!
Сабж: как реализовать перемещение элементов по списку вниз и вверх в ListView в режиме vsReport?

[Аватар]

ListView.Selected:=ListView.Items.Item[i];

где i от 0 до ListView.Items.Count-1
Для случая с множественным выделением не подойдет

Вроде не на то ответил. Следующую процедуру использую для перемещения строки:

procedure TFBookEdit.MoveListViewSerialBook(Up: Boolean);
var xItem1,xItem2: TListItem;
begin
  xItem1:=ListViewSerialBook.Selected;
  if Up then xItem2:=ListViewSerialBook.Items.Insert(xItem1.Index-1)
        else xItem2:=ListViewSerialBook.Items.Insert(xItem1.Index+1);
  xItem2.Caption:=xItem1.Caption;
  xItem2.Data:=xItem1.Data;
  xItem2.SubItems.Add(xItem1.SubItems.Strings[0]);
  xItem2.ImageIndex:=xItem1.ImageIndex;
  xItem1.Delete;
  ListViewSerialBook.Selected:=xItem2;
  ListViewSerialBook.Selected.MakeVisible(False);
end;

Понятно перед обращением убедиться, что:
1. ListViewSerialBook.Selected<>nil
2. ListViewSerialBook.Selected.Index > 0 для Up=True
3. ListViewSerialBook.Selected.Index < ListViewSerialBook.Items.Count-1 для Up=False

[evg_m]

не получилось.

[Аватар]

У меня прекрасно работает в D7, правда из процедуры я выбросил не относящееся к теме. Следующие строки тоже можно выбросить (это для моей конкретной ситуации):

xItem2.Data:=xItem1.Data;
  xItem2.SubItems.Add(xItem1.SubItems.Strings[0]);
  xItem2.ImageIndex:=xItem1.ImageIndex;

[Человек_Борща]

А вот если у меня в selected.data храниться что-то своё?

[Аватар]

Ну и перетяни ее как у меня: xItem2.Data:=xItem1.Data;

[Alter]

Сделал, вот таким вот образом:

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  TargetItem :TListItem; // строка, куда поместят новые строки
  TargetItemIndex :Integer; // индекс строки куда перемещаем
  TempItem :TListItem; // временная строка
  SelItem :TListItem; // выделенная строка
  I, II, J :Integer;
begin
 with TListView(Sender) Do
 begin
  TargetItemIndex := -1;
   // определяем новую позицию
  TargetItem := GetItemAt(X, Y);
  if Assigned(TargetItem) then
   TargetItemIndex := Items.IndexOf(TargetItem);
   //
  Items.BeginUpdate;
   try
  if TargetItemIndex >= -1 then
  begin
    II := SelCount; // выделенно
      //
    J := 0; // [J] смещение от выбранной строки назначения
    if II > 0 then
    begin
     I := 0; // сверху вниз
     while I <= Items.Count - 1 do // сверху вниз
     Begin
      if Items[I].Selected then
      begin
        // запомним строку на будущие нужды
       SelItem := Items[I];
       Inc(J);
        // можно ли поместить в конец
       if Items.Count > 0 then
       if TargetItemIndex = -1  then
       begin
        TempItem := Items.Add; // в конец списка
       end
       else
        TempItem := Items.AddItem(nil, TargetItemIndex + J); // вставим новую строку
        //
       if Assigned(TempItem) then
       begin
         // копируем исходную строку
        TempItem.Assign(SelItem);
         // удалим старую строку
        SelItem.Delete;
//         // после перемещения, шаг вверх, т.к. длина >
        Dec(I); // сверху вниз
       end;
      end;
       Inc(I); // сверху вниз
     End;
    end;
  end;
   finally
  Items.EndUpdate;
  Refresh;
   end;
 end;
end;

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
 Accept := (Source is TListView) and (Source = Sender);
end;

[Человек_Борща]

Примного благодарен! За пример отдельное спасибо! +

[Человек_Борща]

А допустим если items хранить в items.data какие-то данные, то автоматически и эти данные перемещаться будут?

[Alter]

Да, всё копируется

procedure TListItem.Assign(Source: TPersistent);
begin
  if Source is TListItem then
    with Source as TListItem do
    begin
      Self.Caption := Caption;
      Self.Data := Data;
      Self.ImageIndex := ImageIndex;
      Self.Indent := Indent;
      Self.OverlayIndex := OverlayIndex;
      Self.StateIndex := StateIndex;
      Self.SubItems := SubItems;
      Self.Checked := Checked;
    end
  else inherited Assign(Source);
end;