TTreeViewItem: AltSortChildren() y Select()
Publicado: Mar Jun 03, 2008 2:52 am
Hola:
Tengo problemas con la clase TTreeViewItem, intento que se ordene con el método AltSortChildren() según la propiedad lParam pero no lo logro
Si la propiedad lParam se especifica desde el AddItem("mi texto a mostrar",,,,, 8) y después ejecuto AltSortChildren() el orden se realiza sin ningún problema
pero si cambio las propiedades "a mano"
oItem:cText := "cambio el texto a mostrar"
oItem:lParam := 5
Al ejecutar AltSortChildren() ya no se reordena adecuadamente, como si el nuevo valor para la propiedad lParam fuera ignorada
Otro detalle es que el Item no queda seleccionado con Select()
Ejemplo tomado de XailerSamplesTreeViewForm1.prg (línea 185)
//---------------------------------------------------------- --------------------
METHOD Button5Click( oSender ) CLASS TForm1
Local oItem
With Object ::oTV
If :GetCount() > 0
oItem := :GetSelectedItem()
Else
oItem := ::oTV
Endif
oItem:InsertItem( "New Item", 1 ):Select(.T.) // El nuevo Item no queda seleccionado con Select()
End With
RETURN Nil
//---------------------------------------------------------- --------------------
De antemnano gracias!!
SALUDOS!!
Israel
--
Tengo problemas con la clase TTreeViewItem, intento que se ordene con el método AltSortChildren() según la propiedad lParam pero no lo logro
Si la propiedad lParam se especifica desde el AddItem("mi texto a mostrar",,,,, 8) y después ejecuto AltSortChildren() el orden se realiza sin ningún problema
pero si cambio las propiedades "a mano"
oItem:cText := "cambio el texto a mostrar"
oItem:lParam := 5
Al ejecutar AltSortChildren() ya no se reordena adecuadamente, como si el nuevo valor para la propiedad lParam fuera ignorada
Otro detalle es que el Item no queda seleccionado con Select()
Ejemplo tomado de XailerSamplesTreeViewForm1.prg (línea 185)
//---------------------------------------------------------- --------------------
METHOD Button5Click( oSender ) CLASS TForm1
Local oItem
With Object ::oTV
If :GetCount() > 0
oItem := :GetSelectedItem()
Else
oItem := ::oTV
Endif
oItem:InsertItem( "New Item", 1 ):Select(.T.) // El nuevo Item no queda seleccionado con Select()
End With
RETURN Nil
//---------------------------------------------------------- --------------------
De antemnano gracias!!
SALUDOS!!
Israel
--