Enable
"Enable" permet de dégriser 1 ou plusieurs boutons au bas de l'écran et/ou les menus de la barre de menus.
Syntaxe
Enable liste_status
Paramètres
Elément | Description | Restrictions |
liste_status | Liste de id_status séparées par le caractère ','. | Aucune |
id_status | Expression entière | Pour les menus et boutons standards, utiliser les variables globales définies dans le traitement GLOBVAR. |
Exemples
# dégrisage des boutons CREER ENREGISTRER et leur menu associé dans le menu "fichier"
Enable GSTACRE, GSTAENR
# pourrait s'écrire ( mais déconseillé lorsqu'il existe une variable globale pour le status à traiter)
Enable 93, 92
# dégrisage des boutons particuliers à la fonction
Enable GSTABOU+1, GSTABOU+2# appel d'une boite de dialogue avec dégrisage ou grisage des boutons particuliers
# en fonction d'une condition
Local Dlgbox Mask ABC button mess(15,198,1), mess(101,198,1)
coded GSTABOU+1, GSTABOU+2
Boxact [ABC]
If ... then Enable GSTABOU+1, GSTABOU+2
else Disable GSTABOU+1, GSTABOU+2
Boxinp [ABC] using REPONS
Description
"Enable" permet de dégriser 1 ou plusieurs boutons au bas de l'écran et / ou les menus de la barre de menus.
"Enable" s'utilise juste avant la saisie dans la boite de dialogue.
Dans la gestion OBJet, "Enable" s'utilise principalement dans l'action SETBOUT.
Les statuts utilisables par l'instruction "Enable" sont pour la plupart stockés chacun dans une variable globale définie dans le traitement GLOBVAR.
Il est possible d'utiliser le sous-programme SETBOUT du traitement GESECRAN pour certains statuts seulement (voir exemple d'utilisation ci-dessous)..
Remarques
# dégrisage des boutons CREER ENREGISTRER peut aussi s'écrire de la façon suivante
# dans ce cas, c'est le sous-programme du superviseur SETBOUT qui exécute les Enable et
# Disableen fonction du positionnement à 0 ou 1 des postes de la variable ETABOU
Local Integer ETABOU(1..GNBBOU)
ETABOU (GCREE) = 1
ETABOU (GENRE) = 1
Call SETBOUT(ETABOU) From GESECRAN