Quitar elementos de un ListView

[Gaston]

Hola amigos, que bueno que siempre hay alguien que sabe mas que uno...
La pregunta es... como saco un elemento de un LISTVIEW? hasta ahora pude agregar elementos haciendo click en el botón "AGREGAR" ahora como los quito? No he encontrado ningún método que haga eso...

Gracias.
Slds.

Gastón

[Gaston]

Bueno, todavía no se se como quitar un elemento de un listview.. me cuesta creer que nadie haya usado jamas un listview.. en los ejemplos solo agrega el elemento y en la clase no hay ningún método tipo "REMOVE ITEM"

Gracias.
Slds.

[Daniel Garcia-Gil]

Saludos Gaston

Este punto le he estado buscando la solucion (espero encontrarla)... Pronto tendre noticias del mismo

Gracias...

[RenOmaS]

puedes agregar esta linea

Code: Select all  Expand view

    METHOD DeleteItem( nItem )                                          INLINE SendMessage( ::hWnd, LVM_DELETEITEM, nItem, 0 )
  // nItem comienza con 0
 

y tambien tienes que evaluar la notificacion de que se proceso bien el mensaje
esto es... agrega en el Method Notify

Code: Select all  Expand view

....
Local nItem
...
     Case nCode == LVN_DELETEITEM
             //Una vez que windows te indico que ya proceso el msg
             //aqui tienes que procesar dependiendo de como armastes el Listview, para fivewin creo que tiene um Data aPrompts.
             //entonces podria ser
             nItem := GetNMListViewItem( nPtrNMHDR ) + 1
            ADel( ::aPrompts, nItem )
...
 

[Daniel Garcia-Gil]

Gracias RenOmaS...

Hare lo posible por sugerir estos cambios para el proximo build...

solo haria un par de cosas diferentes

Code: Select all  Expand view

METHOD DeleteItem( nItem ) INLINE SendMessage( ::hWnd, LVM_DELETEITEM, nItem-1, 0 )

y agregar en la notificacion

Code: Select all  Expand view

ASize( ::aPrompts, len( ::aPrompts ) -1 )

[RenOmaS]

En el method

Code: Select all  Expand view

   METHOD InsertItem( nImageIndex, cText ) INLINE ;
             LVInsertItem( ::hWnd, nImageIndex, cText )
 

tendria que quedar asi

Code: Select all  Expand view

   METHOD InsertItem( nImageIndex, cText ) INLINE ;
             AAdd( ::aPromtps, cText ), ;
             LVInsertItem( ::hWnd, nImageIndex, cText )

 

Aunque, pienso yo, que seria mejor trabajar la manera de insertar columnas.

[Gaston]

Muchas gracias!!! Voy a probar a ver que sale