Comportamiento extraño de TVirtualStringTree (2)

[Angel.Matilla]

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:

fMenu->Query->Close();
fMenu->Query->SQL->Text = "DELETE FROM Recibos WHERE CodPrv = :PrvIns AND RefInt = :RefInt AND ForPago = :Forma AND Junta = :Junta";

Nodo = Lista->GetFirst();
while (Nodo != NULL)
{
     if (!Lista->HasChildren[Nodo] && Lista->CheckState[Nodo] > csUncheckedPressed)
     {
          try
          {
               fMenu->Query->Close();
               fMenu->Query->ParamByName("PrvIns")->AsString = PrvIns;
               fMenu->Query->ParamByName("RefInt")->AsString = ((PTreeSelRec)Lista->GetNodeData(Nodo))->RefInt;
               fMenu->Query->ParamByName("Forma")->AsInteger = ((PTreeSelRec)Lista->GetNodeData(Nodo))->ForPago;
               fMenu->Query->ParamByName("Junta")->AsInteger = StrToInt(((PTreeSelRec)Lista->GetNodeData(Nodo))->Concepto);
               fMenu->Query->ExecSQL();
               nRecibos += fMenu->Query->RowsAffected;
               fMenu->Query->Transaction->Commit();
          }
          catch(...)
          {
               fForBln->Hide();
               Screen->Cursor = crArrow;
               fMenu->Query->Transaction->Rollback();
               Mensaje(1, "Ha tenido lugar un error en el borrado de recibos.", "Volver");
               Application->ProcessMessages();
               return;
          }
     }
     Nodo = Lista->GetNext(Nodo);
}

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.

[Casimiro Notevi]

¿No deberías borrar de dentro hacia fuera?

[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 Notevi]

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 Notevi]

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.

[Casimiro Notevi]

[Angel.Matilla]

Pues no, tampoco funcionó
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.

[Casimiro Notevi]

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

[Angel.Matilla]

Empezado por Casimiro Notevi

Lo tuyo es amor y odio con VST

Un poco sí, pero es que es un elemento muy útil en determinados casos

Empezado por Casimiro Notevi

A ver si te sirve este hilo.

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.

while (Nodo1 != NULL)
{
     if (Nodo1->ChildCount == 0 && (Lista->CheckState[Nodo1] == csCheckedPressed || Lista->CheckState[Nodo1] == csCheckedNormal))
     {
etc.

[Casimiro Notevi]

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

[Angel.Matilla]

Empezado por Casimiro Notevi

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

Exactamente eso mismo estoy haciendo.

[Angel.Matilla]

Empezado por Casimiro Notevi

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

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.

[Casimiro Notevi]

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

[Angel.Matilla]

Empezado por Casimiro Notevi

¿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é.

[Angel.Matilla]

¡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.

[Casimiro Notevi]

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.