Personalizar TVirtualStringTree

[Angel.Matilla]

Empezado por Casimiro Notevi

Pero, ¿has visto la imagen que te he puesto de ejemplo?

Vale. HE comprobado que las propiedades del TreeView las tengo como las has puesto, pero adaptando tu código de Delphi a Builder:

void __fastcall TfEleccion::MesasGetImageIndex(TBaseVirtualTree *Sender,
      PVirtualNode Node, TVTImageKind Kind, TColumnIndex Column,
      bool &Ghosted, int &ImageIndex)
{
     PTreeEle tDato;

     if (Column == 0)
     {
          tDato = (PTreeEle)Mesas->GetNodeData(Node);
          if (tDato->CodPar != 0)
               ImageIndex = 7;
     }
}

siendo ese valor 7 de ImageIndex un cuadro blanco, sigue saliendo lo que subía en al segunda imagen esta mañana. Y para prevenir valores erróneos cuando cargo el TreeView me aseguro que ese valor CodPar sólo contenga valores válidos al cargar el último nodo (el de los partidos).

Mientras tanto estuve investigando y encontré en StackOverFlow un código que hace lo que busco, pero no soy capaz de entender como aplicarlo. El enlace es este: https://stackoverflow.com/questions/...-by-some-nodes

[Angel.Matilla]

Básicamente lo que me hace falta es esto:

Y el código de StackOverFlow debería hacer eso, pero ya os digo que no sé como aplicarlo.

[Casimiro Noteví]

Pues "juega" con las propiedades porque no hay que hacer nada más, aparentemente.
He quitado las imágenes que yo le estaba poniendo y, por defecto, sale como quieres:

[Angel.Matilla]

Gracias. Seguiré probando.

[Angel.Matilla]

Lo logré y al final resultó mucho más sencillo de lo que pensaba.

He utilizado este código en el evento OnInitNode:

void __fastcall TfEleccion::MesasInitNode(TBaseVirtualTree *Sender, PVirtualNode ParentNode, PVirtualNode Node, TVirtualNodeInitStates &InitialStates)
{
     PTreeEle DatEle = (PTreeEle)Mesas->GetNodeData(Node);

     if (DatEle->CodPar != 0)
          Node->CheckType = ctNone;
     else
     {
          Node->CheckType = ctCheckBox;
          Sender->CheckType[Node]  = ctTriStateCheckBox;
          Sender->CheckState[Node] = csUncheckedNormal;
     }
}

He utilizado, en este caso, uno de los campos de la estructura de datos que sólo debe tener valor en ese último nodo. No sé si será la forma más elegante, pero funciona.