proceduraScopo
Permette di modificare il tooltip di un determinato comando del CommandSet. Può essere utilizzata, ad esempio, per impostare dinamicamente il tooltip in base al tipo di comando.
Sintassi
CommandSet.SetCommandCaption(index, tooltip)
Argomenti
| Index | E' un numero intero rappresentante l'indice del comando all'interno del CommandSet. |
| Tooltip | E' una stringa rappresentante il nuovo tooltip da assegnare al Command. |
Esempio di codice
// ***************************************************************************
// Evento notificato dal book quando l'utente esegue un click singolo nel book
// ***************************************************************************
event Desktop.LibroDesktop.OnMouseClick(
int Button //
int X //
int Y //
int XB //
int YB //
int BoxID //
inout boolean Cancel //
)
{
// Se era aperto il cambio impiegato lo chiuso subito...
CambioImpiegato.Close(??)
//
if Button = Right
{
// Se sono sullo sfondo o sul cestino, mostro sono i comandi comuni
if BoxID = LibroDesktop.SfondoDesktop.Me() OR LibroDesktop.DocDNAIcona = CESTINO
...
else // Metto i nomi degli altri impiegati
{
int i := 0
//
for (i := ZERO; i < SistemaDocumenti.GetIndex(); i := i + ONE)
{
MenuPopup.SetCommandVisible(i, True)
}
i := ZERO
//
for each row
{
select
NomeImpiegato := Cognome +c Space +c Nome
IDImpiegato := ID
from
Impiegati // Tabella Master
where
ID <> Webtop.DatiSessione.IDImpiegato
order by
ID
//
record Impiegato
string Nome //
int ID // Numero assegnato automaticamente a ogni nuovo impiegato.
//
MenuPopup.SetCommandCaption(i, Invia a: +c Impiegato.Nome)
MenuPopup.SetCommandTooltip(i, FormatMessage(Tag Immagine, Impiegato.ID, ??, ??, ??, ??))
i := i + ONE
}
}
MenuPopup.OpenPopupXY(XB, YB)
this.LastXB := XB
this.LastYB := YB
}
}
// Evento notificato dal book quando l'utente esegue un click singolo nel book
// ***************************************************************************
event Desktop.LibroDesktop.OnMouseClick(
int Button //
int X //
int Y //
int XB //
int YB //
int BoxID //
inout boolean Cancel //
)
{
// Se era aperto il cambio impiegato lo chiuso subito...
CambioImpiegato.Close(??)
//
if Button = Right
{
// Se sono sullo sfondo o sul cestino, mostro sono i comandi comuni
if BoxID = LibroDesktop.SfondoDesktop.Me() OR LibroDesktop.DocDNAIcona = CESTINO
...
else // Metto i nomi degli altri impiegati
{
int i := 0
//
for (i := ZERO; i < SistemaDocumenti.GetIndex(); i := i + ONE)
{
MenuPopup.SetCommandVisible(i, True)
}
i := ZERO
//
for each row
{
select
NomeImpiegato := Cognome +c Space +c Nome
IDImpiegato := ID
from
Impiegati // Tabella Master
where
ID <> Webtop.DatiSessione.IDImpiegato
order by
ID
//
record Impiegato
string Nome //
int ID // Numero assegnato automaticamente a ogni nuovo impiegato.
//
MenuPopup.SetCommandCaption(i, Invia a: +c Impiegato.Nome)
MenuPopup.SetCommandTooltip(i, FormatMessage(Tag Immagine, Impiegato.ID, ??, ??, ??, ??))
i := i + ONE
}
}
MenuPopup.OpenPopupXY(XB, YB)
this.LastXB := XB
this.LastYB := YB
}
}
- 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.
- Dalla versione 8.5, se il TooltipManager non è stato disattivato, allora è possibile utilizzare anche un testo HTML. E' quindi possibile mostrare tooltip che contengono immagini, comandi, ecc.
Ultima modifica: 13/02/2020 / Validità: da 8.5.3800