VPF::Как переместить элемент в ListView?

Alex

Дата 23.10.2005, 21:55 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

Код


procedure Exchange(WinLV: DWord; Index1,Index2:integer);
var In1,In2:tagLVItemA;
    s1,s2:array [0..1024] of Char;
begin
  FillChar(In1,SizeOf(In1),#0);
  In1.mask:=DWord(-1);
  CopyMemory(@In2,@In1,SizeOf(In1));
  In1.iItem:=Index1;
  In1.pszText:=PChar(@s1);
  In2.iItem:=Index2;
  In2.pszText:=PChar(@s2);
  ListView_GetItem(WinLV,In1);
  ListView_GetItem(WinLV,In2);
  In1.iItem:=Index2;
  In2.iItem:=Index1;
  ListView_SetItem(WinLV,In1);
  ListView_SetItem(WinLV,In2);
end;

Использование:

Код


Exchange(ListView1.Handle,0,2);

Автор: Girder

Код


function DragItemInLV(LV: TListView; CurIndex, NewIndex: Integer): Boolean;
var
  i: Integer;
  lstDrag: TListItem;
begin
  Result:= False;
  i:= LV.Items.Count-1;
  if (CurIndex = -1) or (NewIndex = -1) then exit;
  if (CurIndex > i ) or (NewIndex > i ) then exit;
  lstDrag:= TListItem.Create(LV.Items);
  try
    lstDrag           .Assign(LV.Items[NewIndex]);
    LV.Items[NewIndex].Assign(LV.Items[CurIndex]);
    LV.Items[CurIndex].Assign(lstDrag           );
  finally
    lstDrag.Free;
  end;
  Result:= True;
end;

Использование:

Код


DragItemInLV(ListView1,0,2);

Автор: Alex

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

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