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:
Código:
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.