Come nascondere il pulsante espandi/comprimi in visualizzazione struttura virtuale?

Question

Uso VirtualStringTree (VST) per visualizzare i dati raggruppati, i dettagli dell'intestazione. Devo avere un'opzione per consentire all'utente di espandere, comprimere le intestazioni per vedere i dettagli e in alcuni casi ho bisogno di mostrare i dati come vista statica, dove non possono espandersi, comprimere, vedere solo albero completamente espanso:

Qui è ad esempio quando l'utente può espandere, crollare nodo con nodo figlio:

ed ecco esempio quando voglio impedire all'utente di espandere/node collasso e sempre vedere tutto espansa (o qualsiasi altra cosa viene mostrato):

in questo test Controllo da 'Consenti espansione/compressione/casella di controllo.

mi impediscono espandere, comprimere con l'aggiunta di:

Allowed:=CheckBox1.Checked; 

in OnCollapsing/OnExpanding:

procedure TMainForm.VSTCollapsing(Sender: TBaseVirtualTree; 
    Node: PVirtualNode; var Allowed: Boolean); 
begin 
    Allowed:=CheckBox1.Checked; 
end; 

procedure TMainForm.VSTExpanding(Sender: TBaseVirtualTree; 
    Node: PVirtualNode; var Allowed: Boolean); 
begin 
    Allowed:=CheckBox1.Checked; 
end; 

mostro anche/nascondere base di TreeLines sulla casella con

procedure TMainForm.CheckBox1Click(Sender: TObject); 
begin 
    if CheckBox1.Checked then 
    VST.TreeOptions.PaintOptions:=VST.TreeOptions.PaintOptions + [toShowTreeLines] 
    else 
    VST.TreeOptions.PaintOptions:=VST.TreeOptions.PaintOptions - [toShowTreeLines]; 
end; 

Come posso nascondere questo piccolo segno in più quando voglio impedire all'utente di espandersi, comprimerlo se nodo. Eventuali suggerimenti?

---

EDIT:

di chiarire la confusione con l'icona forma, questo è un progetto demo da Virtual Treeivew 5 biblioteca demo. Il modulo in IDE ha l'icona Delphi XE7, quando si esegue il progetto appare questa vecchia icona. Non so perché. Volevo solo assicurarmi che fosse chiaro che utilizzo XE7 e non alcune versioni precedenti di Delphi, in cui la stessa soluzione potrebbe non essere applicabile.

Nel IDE l'icona se come XE7 icona:

Answer 1

L'opzione aggiuntiva che stai cercando è toShowButtons. Usalo nello stesso posto in cui usi toShowTreeLines.

L'opzione è documentata in VirtualTrees.pas nella dichiarazione per TVTPaintOption:

toShowButtons,    // Display collapse/expand buttons left to a node.