ListView Multiseleção Soma = Resultado (Alguém sabe ?)

Delphi

02/02/2005

bom dia,


tenho um listview com multiseleção, gostaria de ter a soma de um subitem sempre que escolher outros na seleção, por exemplo.

selecionei a linha 3 e 7, teria o total das duas.


obrigado a todos que ajudarem.

Valdir


Valdirlscosta

Valdirlscosta

Curtidas 0

Respostas

Massuda

Massuda

02/02/2005

No evento TListView.OnSelectItem faça algo deste tipo (não testei):
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
  ListView: TListView;
  Itm: TListItem;
  I: Integer;
begin
  ListView := Sender as TListView;

  // ...

  Itm := ListView.Selected;
  for N := 0 to ListView.SelCount-1 do begin

    // faz alguma coisa com o item Itm
    // no seu caso, faz a soma do que interessa

    Itm := ListView.GetNextItem(Itm, sdAll, [isSelected]);
  end;
end;



GOSTEI 0
Valdirlscosta

Valdirlscosta

02/02/2005

Obrigado

/Valdir

No evento TListView.OnSelectItem faça algo deste tipo (não testei):
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
  ListView: TListView;
  Itm: TListItem;
  I: Integer;
begin
  ListView := Sender as TListView;

  // ...

  Itm := ListView.Selected;
  for N := 0 to ListView.SelCount-1 do begin

    // faz alguma coisa com o item Itm
    // no seu caso, faz a soma do que interessa

    Itm := ListView.GetNextItem(Itm, sdAll, [isSelected]);
  end;
end;



GOSTEI 0
POSTAR