funzioneScopo
Ritorna l'indice del tab attualmente selezionato all'interno dell'oggetto Tabbed View. Deve essere utilizzata nei confronti quando richiesto dalla procedura. Utilizzare la funzione Me del pannello contenuto nel Tab per effettuare il confronto.
Sintassi
int Idx = 0 // Leggo l'indice del tab selezionato
//
Idx := TabbedView.SelectedPage()
//
Idx := TabbedView.SelectedPage()
Valore di ritorno
Ritorna un numero intero che identifica il tab selezionato tra tutti gli altri tab dell'oggetto Tabbed View.
Esempio di codice
// ****************************************************************************
// Nell'evento di Change Page impedisco all'utente di passare al tab degli
// ordini se il pannello dei clienti è in stato QBE.
// ****************************************************************************
event Clienti.ClientiTabbed.ChangePage(
int PreviousPage // It is the previuos page seleted
inout boolean Cancel // Set it to true to abort page change
)
{
// Se l'utente cerca di visualizzare il tab ordini ma il pannello clienti è
// in stato di ricerca (QBE) mostro un messaggio a video e impedisco il
// cambio pagina impostando cancel = True
if ClientiTabbed.SelectedPage() = Ordini.Me() AND Clienti.Status()
= QBE
{
EsempiGL.MessageBox(Prima di selezionare gli ordini...)
Cancel := True
//
return
}
//
// Svuoto l'icona
ClientiIndicator.Icon := Convert(Empty String)
//
// Se l'utente ha selezionato il tab clienti imposto l'icona dell'indicator
if ClientiTabbed.SelectedPage() = Clienti.Me()
{
ClientiIndicator.Icon := Convert(ToImage(Cliente))
}
//
// Se l'utente ha selezionato il tab clienti imposto l'icona dell'indicator
if ClientiTabbed.SelectedPage() = Ordini.Me()
{
ClientiIndicator.Icon := Convert(ToImage(Ordine))
}
}
// Nell'evento di Change Page impedisco all'utente di passare al tab degli
// ordini se il pannello dei clienti è in stato QBE.
// ****************************************************************************
event Clienti.ClientiTabbed.ChangePage(
int PreviousPage // It is the previuos page seleted
inout boolean Cancel // Set it to true to abort page change
)
{
// Se l'utente cerca di visualizzare il tab ordini ma il pannello clienti è
// in stato di ricerca (QBE) mostro un messaggio a video e impedisco il
// cambio pagina impostando cancel = True
if ClientiTabbed.SelectedPage() = Ordini.Me() AND Clienti.Status()
= QBE
{
EsempiGL.MessageBox(Prima di selezionare gli ordini...)
Cancel := True
//
return
}
//
// Svuoto l'icona
ClientiIndicator.Icon := Convert(Empty String)
//
// Se l'utente ha selezionato il tab clienti imposto l'icona dell'indicator
if ClientiTabbed.SelectedPage() = Clienti.Me()
{
ClientiIndicator.Icon := Convert(ToImage(Cliente))
}
//
// Se l'utente ha selezionato il tab clienti imposto l'icona dell'indicator
if ClientiTabbed.SelectedPage() = Ordini.Me()
{
ClientiIndicator.Icon := Convert(ToImage(Ordine))
}
}
- L'indice che rappresenta un tab è uguale all'indice del pannello che vi è contenuto, pertanto è univoco solamente all'interno dello stesso oggetto Tabbed View.
Ultima modifica: 24/03/2021 / Validità: da 6.5.2680