Comportamiento extraño de TVirtualStringTree (2)
 

Buenos días a todos. A ver si alguien es capaz de explicarme por qué me está pasando esto.

Tengo este TVirtualStringTree:

Como veis tiene seleccionados tres nodos. Recorro el árbol para borrar los registros seleccionados con este bucle:
Tengo puesto con el depurador que me indique los valores de HasChildren y CheckState. En ningún momento modifico, como se puede ver, la propiedad CheckState de los nodos; sin embargo cuando empiezo a recorrer el árbol la propiedad HasChildren me da los valores correctos (tres veces true y una vez false) pero CheckState, cuando entra en el último nivel de cada nodo (Tomelloso en el ejemplo) se pone solo a 0 (csUncheckedNormal), ese nodo y todos los que hay después. No sé por qué lo hace y provoca que el bucle no se ejecute bien. He probado a expandir todos los nodos (FullExpand) antes de empezar a recorrer el bucle, pero la única forma que he encontrado para que se ejecute bine es que el usuario expanda los nodos antes de empezar el proceso, lo cual es desde mi punto de vista absurdo.

¿No deberías borrar de dentro hacia fuera?

Claro, por eso voy avanzando por el árbol. Al llegar a un nodo que no tiene hijos y está seleccionado es cuando ejecuto el query, pero es que cuando llega a ese nodo sin hijos no sé por qué quita la marca de selección sin que yo se lo indique. Es lo que no entiendo.

Creo que estás diciendo que borras primero "Ordinario", luego "Desconocida" y finalmente "Tomelloso", que no puedes borrarlo.
Y lo que comento es que deberías, creo, borrar en orden inverso, primero "Tomelloso", luego "Desconocida" y finalmente "Ordinario".
Si es que he entendido bien.

No. Siento haberme explicado mal. En cada nodo final (Tomelloso en este caso) están todos los valores: fecha, tipo de emisión (Ordinario), forma de pago (Desconocida) y código de la población (Junta). Por eso voy buscando los nodos que no tiene hijos porque sé que en ellos están todos los valores que busco; fíjate en la condición que hay dentro del bucle:
sólo se ejecuta el query si el nodo no tiene hijos y está seleccionado. Y ese es el problema: cuando veo las propiedades HasChildren y CheckState van cumpliendo(HasChildren está a true en todos menos en ese último) y CheckState tiene un valor mayor que 1, que según la ayuda de TVirtualStringTree es una enumeración con estos valores:
por lo tanto si vale 2 (csCheckedNormal) o más tiene que ejecutarse, pero cuando se encuentra que HasChildren es false automáticamente cambia el CheckState a csUncheckedNormal.

Prueba a ver:

Código Delphi [-]
if (!Lista->HasChildren[Nodo] && ((Lista->CheckState[Nodo]=csMixedNormal) or (Lista->CheckState[Nodo]=csMixedPressed))

Gracias por la sugerencia pero no funciona.

Esto es lo que está pasando y me tiene completamente descolocado:

Como veis las tres primeras veces va tomando los valores correctos: 01/10/2022, Ordinarios, Banco (aunque ponía Desconocida este es el valor correcto). En los tres casos aparece HasChildren como true porque en los tres casos hay un hijo y CheckState como csCheckedNormal por que está seleccionado el nodo completo.

Pero en cuanto hace Lista->GetNext(Nodo) para tomar el valor TOMELLOSO, sin que el código haga nada CheckState se pone como csUncheckedNormal y, claro está, no se ejecuta el query.

Lo curioso es lo que indicaba en otro mensaje: si dejo desplegado el nodo completo antes de empezar a recorrer el árbol si se ejecuta bien el código y esto todavía me desconcierta más.

Parece que encontré la solución. En lugar de preguntar si el nodo tiene hijos, pregunto cuantos hijos tiene:
Nodo = Lista->GetFirst();
y parece que funciona bien. Al menos no cambia el valor de CheckState.

^\||/^\||/^\||/

Pues no, tampoco funcionó :mad:
Es como si el árbol tiene más de tres niveles y no está desplegado, al avanzar a ese cuarto nivel automáticamente se quita la marca de selección, sea la que sea. Seguiré investigando.

Lo tuyo es amor y odio con VST ;)
A ver si te sirve este hilo.

:D:D Un poco sí, pero es que es un elemento muy útil en determinados casos
Antes de que me contestaras ya había probado ese código pero sigue haciendo lo mismo. Es muy raro porque sólo me ocurre en nodos que tengan más de tres niveles; es como si hubiera alguna limitación interna, lo cual es absurdo.

¿Por qué no creas un proyecto nuevo, limpio para probar? metes un VST y haces unas pruebas.

Exactamente eso mismo estoy haciendo. ;)

Es evidente que algo tengo mal puesto en el proyecto original porque he creado otro sólo con un formulario con el TVST y la BB.DD. y sí funciona correctamente. Tendré que estudiar a fondo que estoy haciendo mal en el original.

¿Has probado a eliminar el componente y a volver a poner otro?

No, no se me había ocurrido. Estaba tan obsesionado con el código que ni se me pasó por la cabeza. Probaré.

v\||/ ¡Me rindo! Llevo una semana pegándome de tortas con este problema y no le encuentro solución, así que de momento lo dejo aparcado y tomaré por otra vía.

Pero si en un proyecto nuevo funciona bien, dijiste.
Quita el componente, pon otro nuevo.
Mira si tienes algún evento que cambie el estado de ese nodo cuando estás borrando el otro nodo.

No hay ningún evento ni otra parte del código que modifique el estado del nodo. Lo que ya me tiene completamente perplejo es que si selecciono ese primer nodo que ponía en la imagen del principio y pulso el botón, quita el estado y no hace nada; sin salir del formulario vuelvo a seleccionar el mismo nodo u otro distinto y pulso el botón y esta vez si ejecuta el código asociado. Cada vez lo entiendo menos. :(

Después de darle muchas vueltas y hacer un montón de pruebas, esta mañana me ha venido una idea a la cabeza: dado que el VST tiene activadas las casillas de selección, daba la impresión que al empezar a recorrer el árbol se inicializan los nodos. He hecho varias pruebas con el código así:
y parece que va bien.