[delphi] cambiare iconcine a TTreeWiew

[web ces]

come faccio a cambmiare le iconcine di TTreeWiew in modo che tutti i node principali ne abbiano una, i sub un'altra e i subsub un'altra ancora?
(mi basta un'inizio, poi continuo da solo!)

[alka]

Le icone non si possono modificare a gruppi, ma devono essere impostate singolarmente per ogni nodo della TreeView attraverso la proprietà ImageIndex.

Ciao!

[web ces]

grazie
ho fatto

procedure TForm1.cambiaimmag(Sender: TObject);
begin
TreeWiew1.Selected.ImageIndex := 1;
end;

ma non va!

[alka]

Così hai modificato l'icona solo dell'elemento selezionato, rappresentato dalla proprietà Selected.

Per modificare le icone di tutti i nodi, devi iterarli usando la proprietà Items in modo simile a questo:

...
for i := 0 to TreeView.Items.Count - 1 do
  TreeView.Items[i].ImageIndex := 1;
...

[web ces]

ok ma non mi funzia neanche il mio!

[alka]

Non è sufficiente scrivere "non mi funziona"...occorre sempre indicare l'errore che si ottiene o l'effetto collaterale indesiderato.

[web ces]

no intendo proprio che non fa nulla! non succede niente!

[alka]

E' già un'indicazione utile.

Hai associato un componente ImageList al controllo TreeView?

Sei certo che vi sia un'immagine corrispondente all'interno del componente ImageList per l'indice che stai cercando di impostare nella proprietà ImageIndex del nodo selezionato?

[web ces]

TreeWiew1.Images è ImageList1
ImageList1 ha 0,1,2

ho capito che imageindex cambia correttamente ma l'icona no!

[alka]

Forse è per effetto della selezione. Prova a modificare anche SelectedImageIndex.