[KOOL]

Возникли проблемы с ListView? Помогите решить...Вот, собственно, и они:

1)При изменении свойства ItemIndex нужная строчка остается невыделенной даже при MultiSelect := false (а надо при true):

Код:

PList.ItemIndex := PLIndex; //Не работает! PLIndex'у присвоено допустимое значение 

2)Необходимо удалить НЕвыделенные строчки, а также проинвертировать выделение

[<<D>>]

2) Удалить всё, кроме выделенной:

Код:

procedure TForm1.Button1Click(Sender: TObject);
    var i:integer;
    begin
      for i:=listview1.Items.Count-1 downto 0 do
      begin
        if listview1.Items.Item[i].Selected then
        else listview1.Items.Delete(i);
      end;
    end;

Обернуть выделение:

Код:

    procedure TForm1.Button1Click(Sender: TObject);
   var i:integer;
   begin
     for i:= 0 to listview1.Items.Count-1 do
     begin
       if listview1.Items.Item[i].Selected then
       listview1.Items.Item[i].Selected:=false
       else listview1.Items.Item[i].Selected:=true;
     end;
   end;

[The Shadow]

Сообщение от <<D>>

Обернуть выделение:

Код:

procedure TForm1.Button1Click(Sender: TObject);
   var i:integer;
begin
   for i:= 0 to listview1.Items.Count-1 do
     begin
       if listview1.Items.Item[i].Selected then
       listview1.Items.Item[i].Selected:=false
       else listview1.Items.Item[i].Selected:=true;
     end;
   end;

Легче сделать так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var 
i: Integer;
begin
for i:=0 to ListView1.Items.Count-1 do
ListView1.Items.Item[i].Selected:=not ListView1.Items.Item[i].Selected;
end;

[KOOL]

Спасибо! А что насчет 1? Это весьма важно..

[<<D>>]

ListView1.ItemIndex:=2;
ListView1.SetFocus;

[<<D>>]

Или в ListView поставь HideSelection = False;
Тада не нада фокус наводить!

[KOOL]

Спасибо!!!Все заработало как надо!! Только я не понимаю как сделать в ListView Drag-And-Drop..Все перепробовал-не получается...

[<<D>>]

http://www.delphisources.ru/forum/sh...EA%E8%21%21%21

[KOOL]

А если надо много перетащить?

[<<D>>]

Сообщение от KOOL

А если надо много перетащить?

Так ты же писал что тебе надо без MultiSelect

[KOOL]

1)При изменении свойства ItemIndex нужная строчка остается невыделенной даже при MultiSelect := false (а надо при true):

Вобщем-то алгоритм понятен но думать времени нет