funzioneScopo
Ritorna la caption di un determinato comando del Command Set.
Può essere utile, ad esempio, per personalizzare i messaggi mostrati all'utente con il nome del comando selezionato, anche se questo non è noto a priori in fase di progettazione ma bensì impostato dinamicamente con la funzione SetCommandCaption.
Sintassi
string CommandCaption = "" // Stringa che conterrà la Caption del Comman...
//
CommandCaption := CommandSet.GetCommandCaption(index)
//
CommandCaption := CommandSet.GetCommandCaption(index)
Argomenti
| Index | E' un numero intero rappresentante l'indice del Command all'interno del CommandSet. |
Valore di ritorno
Viene ritornata una stringa che contiene la Caption dell'oggetto Command indicato.
Esempio di codice
// ****************************************************************************
// Utilizzo l'evento di OnCommand del CommandSet per impostare il valore
// IDCategoria del prodotto corrente come il Code del Command eseguito.
// Nell'evento di OnOpenPopup i comandi sono stati modificati per contenere
// nella caption il nome di una categoria e nel code il relativo ID.
// ****************************************************************************
event Prodotti.Impostacategoria.OnCommand(
int CommandNumber //
int Index //
inout boolean Cancel //
)
{
// Se il comando è abilitato e visibile
if Impostacategoria.GetCommandEnabled(Index) AND Impostacategoria.
GetCommandVisible(Index)
{
// Metto nel campo idcategoria il code del comando
// cliccato dall'utente, identificato tramite l'argomento Index
Prodotti.IdCategoria := ToInteger(Impostacategoria.GetCommandCode(
Index))
}
//
// Scrivo nel Debug il percorso del file icona rappresentante il comando
EsempiGL.DTTLogMessage(FormatMessage(Icona del comando: |1,
Impostacategoria.GetCommandIcon(Index), ??, ??, ??, ??), ??, ??)
//
// Mostro il messaggio dell'operazione eseguita
EsempiGL.MessageBox(FormatMessage(Impostata categoria |1, Impostacateg-
oria.GetCommandCaption(Index), ??, ??, ??, ??))
}
// Utilizzo l'evento di OnCommand del CommandSet per impostare il valore
// IDCategoria del prodotto corrente come il Code del Command eseguito.
// Nell'evento di OnOpenPopup i comandi sono stati modificati per contenere
// nella caption il nome di una categoria e nel code il relativo ID.
// ****************************************************************************
event Prodotti.Impostacategoria.OnCommand(
int CommandNumber //
int Index //
inout boolean Cancel //
)
{
// Se il comando è abilitato e visibile
if Impostacategoria.GetCommandEnabled(Index) AND Impostacategoria.
GetCommandVisible(Index)
{
// Metto nel campo idcategoria il code del comando
// cliccato dall'utente, identificato tramite l'argomento Index
Prodotti.IdCategoria := ToInteger(Impostacategoria.GetCommandCode(
Index))
}
//
// Scrivo nel Debug il percorso del file icona rappresentante il comando
EsempiGL.DTTLogMessage(FormatMessage(Icona del comando: |1,
Impostacategoria.GetCommandIcon(Index), ??, ??, ??, ??), ??, ??)
//
// Mostro il messaggio dell'operazione eseguita
EsempiGL.MessageBox(FormatMessage(Impostata categoria |1, Impostacateg-
oria.GetCommandCaption(Index), ??, ??, ??, ??))
}
- Gli indici di posizione dell'oggetto Command all'interno del CommandSet vanno da 0 a GetCommandsCount - 1. E' possibile ottenere l'indice di un comando mediante la funzione GetIndex dell'oggetto Command.
Ultima modifica: 13/02/2020 / Validità: da 6.5.2680