Shift ile kayıtları seçme

[dogan]

İyi günler,

Listview de tüm kayıtları kolona tıklayarak Checked True veya False işlemi yaptırıyorum, ek olarak da klavyeden
shift ve yukarı ok ile seçmiş olduğum bir kaç satırı Checked True veya False nasıl yaptırabilirim...

Kod: Tümünü seç

procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
  try
    if Column.Index = 0 then
    begin
      with ListView1 do
      begin
        for i := 0 to Items.Count - 1 do
        begin
          if Items.Item[i].Checked = False then
          begin
            Items.Item[i].Checked := True;
          end
          else
          begin
            Items.Item[i].Checked := False;
          end;
        end;
      end;
    end;
  except
  end;
end;

[xozcanx]

Merhaba;
ListView ile çalışmam olmadı fakat mantık aynı olmalı bir deneyin

Kod: Tümünü seç

procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
  try
    if Column.Index = 0 then
    begin
      with ListView1 do
      begin
        for i := 0 to Items.Count - 1 do
        begin
	  if  ListView1.Items[i].Selected=True then	  // item seçili mi kontrol ediyoruz.      
            Items.Item[i].Checked := False     
          else
            Items.Item[i].Checked := True;
        end;
      end;
    end;
  except
  end;
end;

[brs]

Merhaba;
ListView ile çalışmam olmadı fakat mantık aynı olmalı bir deneyin

Kod: Tümünü seç

procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
  try
    if Column.Index = 0 then
    begin
      with ListView1 do
      begin
        for i := 0 to Items.Count - 1 do
        begin
	  if  ListView1.Items[i].Selected=True then	  // item seçili mi kontrol ediyoruz.      
            Items.Item[i].Checked := False     
          else
            Items.Item[i].Checked := True;
        end;
      end;
    end;
  except
  end;
end;

Hocam, listView de KeyPress ile farklı bir yöntem uyguladım, fakat checked true olan satırlar false olmuyor true ye dönmüyor???

Kod: Tümünü seç

procedure TForm1.ListView1KeyPress(Sender: TObject; var Key: Char);
begin
  try
    if Key = ^A then // Seç
    begin
      with ListView1 do
      begin
        for i := 0 to Items.Count - 1 do
        begin
          if Items[i].Selected = True then
          begin
            Items.Item[i].Checked := True;
          end
          else
          begin
            Items.Item[i].Checked := False;
          end;
        end;
      end;
    end;
  except
  end;
end;

[xozcanx]

Merhaba;
Yukarıda da belirtmiştim daha önce çalışmadım fakat aşağıdaki şekilde multiselect özelliğini açtıktan sonra hangi satırları seçmiş iseniz seçili satırların belirtilen itemlerini True False olarak olarak değiştiriyor.

Kod: Tümünü seç

    if Key = VK_F5 then
    begin
      with ListView1 do
      begin
        for i := 0 to Items.Count - 1 do
        Begin
          if Items[i].Selected = True then
          Begin
            if Items.Item[i].SubItems[0]= 'True' then
              Items.Item[i].SubItems[0]:= 'False'
            else
            Items.Item[i].SubItems[0]:= 'True';
          End;
        end;
      end;
    end;