Clear Scroll Tips

Pannello.ClearScrollTips()

// *****************************
// Crea scrolltip personalizzati
// *****************************
public void PannelliAccoppiati.ScrolltipPersonalizzati()
{
  int r = 0 // La riga in fase di calcolo
  // 
  // Disabilito la generazione degli scrolltip automatici
  ProdottiLista.ScrollTipRate := ZERO
  // 
  // Cancello quelli esistenti
  ProdottiLista.ClearScrollTips()
  // 
  // Ora creo quelli nuovi
  for each row (ProdottiLista)
  {
    record Prodotto
      ...
    string pref = ""  // Prefisso
    string suff = "" // Suffisso
    // 
    r := r + ONE
    // 
    // Se è sospeso lo voglio barrato
    if Prodotto.Sospeso = True
    {
      pref := Tag Strike +c pref
      suff := Fine Strike +c suff
    }
    else
    {
      // Se è sotto scorta lo voglio rosso
      if Prodotto.Scorte < Prodotto.LivelloDiRiordino
      {
         pref := Tag Font Red +c pref
         suff := Fine Font +c suff
      }
    }
    // 
    // Ecco il nuovo tip
    ProdottiLista.AddScrollTip(r, Nome Prodotto:  +c pref +c Prodotto.Nome +c suff)
  }
  // 
  // Mando i nuovi tip al client
  ProdottiLista.RefreshScrollTips()
}