Show In Tree

INDE.ShowInTree(id oggetto, fuocato)

// ************************************************************
// Evento notificato da un albero quando un nodo viene attivato
// ************************************************************
event InstantDeveloper.Albero.OnActivateDoc(
  IDDocument Documento // E' il documento che è stato attivato. Il valore ...
  inout boolean Cancel // E' un parametro di uscita booleano. Se lo si imp...
)
{
  OggettoBase objShown = null  // 
  OggettoBase objToShow = null // 
  // 
  Toolbar.Duplica.SetEnabled(True)
  Toolbar.Elimina.SetEnabled(True)
  // 
  objShown := OggettoBase.Cast(Proprietà.Document)
  objToShow := OggettoBase.Cast(Documento)
  // 
  // Se l'oggetto da mostrare non è gia mostrato
  if NOT(objShown IS objToShow)
  {
    // Se non c'è nessun oggetto mostrato
    if objShown IS Null Object
    {
      // Lo mostro
      Proprietà.SetDocument(Documento, True)
    }
    else
    {
      // Se il puntatore è lo stesso
      if objToShow.Puntatore <> objShown.Puntatore
      {
         // Lo mostro
         Proprietà.SetDocument(Documento, True)
      }
    }
  }
  // 
  // Mostro l'oggetto anche nell'albero di INDE
  EsempiMS.INDE.ShowInTree(objToShow.Puntatore, True)
}