Get Recent Files List

<Root>
  <RecentFile1 Path="C:\percorso\progetto1.idp" PrjName="Progetto 1" LastOpenDT="21/08/2008 09:55:09"/>
  <RecentFile2 Path="C:\percorso\progetto2.idp" PrjName="Progetto 2" LastOpenDT="21/08/2008 09:54:49"/>
  ...
</Root>

string XML = "" // 
// 
XML := INDE.GetRecentFilesList()

// ****************************************************************
// Evento notificato dal CommandSet quando viene aperto come popup.
// ****************************************************************
event InstantDeveloper.Filerecenti.OnOpenPopup(
  inout int Direction  // E' un parametro di output che può essere imposta...
  inout boolean Cancel // Se impostato a True annulla la visualizzazione d...
)
{
  try
  {
    XMLDocument xml = new() // 
    // 
    // Carico la stringa in un XMLDocument
    xml.LoadFromString(EsempiMS.INDE.GetRecentFilesList())
    if xml.HasNextNode()
    {
      XMLNode node = null // 
      int i = 1           // 
      // 
      // Scorro i primi 4 elementi della lista
      node := xml.GetNextNode()
      while i <= C4
      {
         string Path = ""    // 
         string PrjName = "" // 
         // 
         if node.HasNextNode()
         {
           XMLNode file = null // 
           // 
           file := node.GetNextNode()
           Path := file.GetAttribute(Path)
           PrjName := file.GetAttribute(PrjName)
         }
         // 
         // Imposto le voci del menu contestuale
         if i = ONE
         {
           File1.Visible := PrjName <> Empty String
           File1.Caption := PrjName
           File1.Tooltip := Path
         }
         // 
         if i = 2
           ...
         // 
         if i = C3
           ...
         // 
         if i = C4
           ...
         i := i + ONE
      }
    }
  }
  catch
  {
    Cancel := True
    EsempiMS.MessageBox(Impossibile leggere lista)
  }
}