ListView DragDrop

[Vipa]

Добрый день! Очень нужна помощь!
После того как меняю порядок элементов в ListView по средствам DragDrop и нажимаю Shift+стрелка вверх\вниз выделяет все элементы от того места где был схвачен item до места куда был установлен - как побороть? Вот немного кода:

procedure TGridEditorFrm.clvFieldsDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  Accept:= (Sender = clvFields);
end;

procedure TGridEditorFrm.clvFieldsDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  a,b,i,j: integer;
begin
  bitbtn1.Enabled:=true;
  a:= clvFields.ItemFocused.index;
  b:=clvFields.Items.IndexOf(clvFields.GetItemAt(X,Y));
  j:=0;
  if b >= 0 then begin
    if a > b then
      for i:= a downto b+1 do begin
        Swap(a-j,i-1);
        j:=j+1;
      end
    else
      for i:= a to b-1 do begin
        Swap(a+j,i+1);
        j:=j+1;
      end;
  end;
  clvFields.ClearSelection;
  clvFields.ItemFocused:=clvFields.Items[b];
  clvFields.Selected:=clvFields.Items[b];
end;

procedure TGridEditorFrm.Swap(i,j: integer);
var
   tempLI: TListItem;
 begin
   clvFields.Items.BeginUpdate;
   try
     tempLI := TListItem.Create(clvFields.Items);
     tempLI.Assign(clvFields.Items.Item[i]);
     clvFields.Items.Item[i].Assign(clvFields.Items.Item[j]);
     clvFields.Items.Item[j].Assign(tempLI);
     tempLI.Free;
   finally
     clvFields.Items.EndUpdate
   end;
end;
procedure TGridEditorFrm.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key=VK_DOWN) or (Key=VK_UP) then
    if clvFields.Focused=false then clvFields.SetFocus;
  if (Shift<>[ssShift]) then begin
    if (Key=VK_DOWN) then begin
      clvFieldsClick(nil);
    end;
    if (Key=VK_UP) then begin
      clvFieldsClick(nil);
    end;
  end;
end;

зарание спасибо!

[Alter]

Мм, не понятно. Перетащили значит строки по компоненту, они встали где надо. Потом выделили одну строку и нажали Shift+(вверх/вниз) и от этого выделились все строки под и над выбранной строкой? Что там не так? Как же компонент должен был среагировать, так что же хотите?

[Vipa]

Добавил изображение которое, думаю, ответит на поставленный вопрос!
Еще надо добавить то, что ожидался переход на одну запись вверх, то есть на стрелку нажал один раз!

[Vipa]

в DragDrop:
Нашел причину трабла: не обновляется позиция мультиселекта, если сделать ckvFields.MultiSelect:=false; clvFields.multiselect:=true; указатель перемещается куда надо, но при дальнейшем использовании - например если записывать по клику в Edit текст из listView - появляется ошибка Access violation at address 005CEF64 in module
скорее всего снова путаются индексы

[Alter]

У вас же есть там кнопки для перемещения вверх-вниз, можно перехватывать нажатия и отправлять кнопкам Click. Например:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage('UP');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 ShowMessage('DOWN');
end;

procedure TForm1.ListView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 IF (ssShift in Shift)And(Key=VK_UP) then
  Button1Click(nil) {своё действие}
 else
   IF (ssShift in Shift)And(Key=VK_DOWN) then
    Button2Click(nil); {своё действие}
end;

[Vipa]

Не подходит! Если строчка меняет позицию все ломается (первый случай на картинках), если поставить Multiselect:=true .. false - откуда не пытайся всатвить ее в Edit вылазит ошибка! Есть еще одна вещь - (без Multiselect:=false ,,true) если взять в руки мышу и клякнуть по записи - все работает, но вызовы MouseDown Click MouseUp - никчиму не приводят, все остается как было! Вот еще немного кода

procedure TGridEditorFrm.clvFieldsClick(Sender: TObject);
var item: integer;
begin
{$IFDEF VCL}
  clvFields.ItemFocused.CancelEdit;
{$ENDIF}
  sbUp.Enabled:=true;
  sbDown.Enabled:=true;
  if clvFields.ItemFocused.Index >= 0 then
    if clvFields.SelCount = 1 then begin      edCaption.Text:=TColumn(clvFields.Items[clvFields.ItemFocused.Index].SubItems.Objects[0]).title.caption;
      case TColumn(clvFields.Items[clvFields.ItemFocused.Index].SubItems.Objects[0]).Alignment of
        taCenter: rgAlignment.ItemIndex:=0;
        taLeftJustify: rgAlignment.ItemIndex:=1;
        taRightJustify: rgAlignment.ItemIndex:=2;
      end;
      cbVisible.Checked:=TColumn(clvFields.Items[clvFields.ItemFocused.Index].SubItems.Objects[0]).Visible;
      edWidth.Text:=IntToStr(TColumn(clvFields.Items[clvFields.ItemFocused.Index].SubItems.Objects[0]).Width);
  end;
end;

наверное надо было его сразу прислать!

[mutabor]

Скачайте исходники плеера здесь
http://www.programmersforum.ru/showt...9261#post39261
и посмотрите или там список ведет себя так как вам надо.

[Vipa]

Скачайте исходники плеера здесь
http://www.programmersforum.ru/showt...9261#post39261
и посмотрите или там список ведет себя так как вам надо.

именно так и надо!

[Vipa]

Подскажите как подобное сделать в ListView? У меня не получилось

[silverworld]

Не могу сообразить как отобразить данные из столбцов Cursor в ListView

раньше при отображении данных использовал ArrayAdapter c переобределенным getView

нашел CursorAdapter, но в нем надо переопределять 2 абстрактных метода что в какой писать тоже не понятно

может кто поделится примерами или ссылками?