Ver Mensaje Individual
  #2  
Antiguo 22-11-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.043
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
En el GetImageIndex puedes indicar qué imagen poner, supongo que podrás asignarle "null", o una en blanco.

Código Delphi [-]
procedure TFcuentas.vstArbolGetImageIndex(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
  var Ghosted: Boolean; var ImageIndex: Integer);
var
  pRec : ^TRecBase;
  iNivel : Integer;
begin
  inherited;
  if iMaxDigitos=0 then
    Exit;
  if Column=0 then
  begin
    pRec := Sender.GetNodeData(Node);
    iNivel := pRec.Nivel;
    if iNivel=1 then
      ImageIndex := 0
    else
    if (iNivel>1) and (iNivel < iMaxDigitos) then
      ImageIndex := 1
    else
    if iNivel=iMaxDigitos then
      ImageIndex := 2;
  end;
end;

Responder Con Cita