proceduraScopo
Attacca una collection di documenti ad un albero. Normalmente questa procedura è utilizzata per inizializzare un albero document oriented. Tutti i documenti contenuti nella collection fornita alla procedura SetCollection diventano i nodi radice dell'albero.
Sintassi
// Inizializzo l'albero
Albero.SetCollection(collection)
Albero.SetCollection(collection)
Argomenti
| Collection | E' la collection che contiene tutti i documenti che diventeranno i nodi radice dell'albero. Deve essere un oggetto derivato dalla libreria IDCollection. |
Esempio di codice
// ************************************************
// Il documento corrente diventa il nuovo root item
// ************************************************
public void AlberoDO.NodoRadice()
{
OggettoAlbero oa = null //
//
oa := OggettoAlbero.Document
//
// I figli del nodo indicato, diventano i figli dell'albero
Documenti.SetCollection(oa.OggettiFigli)
OggettoAlbero.SetCollection(oa.OggettiFigli)
//
// Ricalcolo la caption
Documenti.Caption := Figli di +c oa.GetNamedPropertyValue(Full Name)
//
// Aggiorno il testo
OggettoAlbero.Testo.Text := FormatMessage(TESTO ALBERO DO ROOT, oa.
GetNamedPropertyValue(Full Name), ??, ??, ??, ??)
}
// Il documento corrente diventa il nuovo root item
// ************************************************
public void AlberoDO.NodoRadice()
{
OggettoAlbero oa = null //
//
oa := OggettoAlbero.Document
//
// I figli del nodo indicato, diventano i figli dell'albero
Documenti.SetCollection(oa.OggettiFigli)
OggettoAlbero.SetCollection(oa.OggettiFigli)
//
// Ricalcolo la caption
Documenti.Caption := Figli di +c oa.GetNamedPropertyValue(Full Name)
//
// Aggiorno il testo
OggettoAlbero.Testo.Text := FormatMessage(TESTO ALBERO DO ROOT, oa.
GetNamedPropertyValue(Full Name), ??, ??, ??, ??)
}
Attenzione, questo articolo è stato dichiarato obsoleto! Ultima modifica: 22/03/2016 / Validità: da 6.5.2680