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]

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

[Angel.Matilla]

Empezado por 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.

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.

[Angel.Matilla]

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í:

Lista->OnInitNode = NULL;     // Añadida para que no inicialice los nodos
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(...)
          {
               Screen->Cursor = crArrow;
               fMenu->Query->Transaction->Rollback();
               Application->ProcessMessages();
               return;
          }
     }
     Nodo = Lista->GetNext(Nodo);
}
Lista->OnInitNode = ListaInitNode;     // Añadida para restaurar la acción al volver a cargar

y parece que va bien.