Comportamiento extraño de TVirtualStringTree (2)

[Angel.Matilla]

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.

[Casimiro Noteví]

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.

[Angel.Matilla]

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:

if (!Lista->HasChildren[Nodo] && Lista->CheckState[Nodo] > csUncheckedPressed)

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:

csUncheckedNormal, csUncheckedPressed, csCheckedNormal, csCheckedPressed, csMixedNormal, csMixedPressed

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.

[Casimiro Noteví]

Prueba a ver:

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

[Angel.Matilla]

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.

[Angel.Matilla]

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.

[Angel.Matilla]

Parece que encontré la solución. En lugar de preguntar si el nodo tiene hijos, pregunto cuantos hijos tiene:
Nodo = Lista->GetFirst();

while (Nodo != NULL)
{
     if (Nodo->ChildCount == 0 && Lista->CheckState[Nodo] > csUncheckedPressed)
     {
          [...]
     }
     Nodo1 = Lista->GetNext(Nodo1);
}

y parece que funciona bien. Al menos no cambia el valor de CheckState.