ENABLE |
"Enable"permet de dégriser 1 ou plusieurs boutons au bas de l'écran et/ou les menus dela barre de menus.
Enable liste_status
liste_status | Listede id_status séparéespar le caractère ','. | Aucune |
id_status | Expressionentière | Pourles menus et boutons standards, utiliser les variables globales définies dansle traitement GLOBVAR. |
# dégrisage des boutons CREER ENREGISTRER et leurmenu associé dans le menu "fichier"
EnableGSTACRE, GSTAENR
# pourrait s'écrire ( mais déconseillé lorsqu'ilexiste une variable globale pour le status à traiter)
Enable93, 92
# dégrisage des boutons particuliers à la fonction
EnableGSTABOU+1, GSTABOU+2 # appel d'une boite de dialogue avec dégrisage ougrisage 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 ... thenEnable GSTABOU+1,GSTABOU+2
elseDisable GSTABOU+1, GSTABOU+2
Boxinp [ABC] using REPONS
"
Enable "permet de dégriser 1 ou plusieurs boutons au bas de l'écran et / ou les menusde 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'actionSETBOUT. Les statutsutilisables par l'instruction "
Enable "sont pour la plupart stockés chacun dansune variable globale définie dans le traitement GLOBVAR. Il est possible d'utiliser le sous-programme SETBOUT du traitement GESECRANpour certains statuts seulement (voir exemple d'utilisation ci-dessous)..
# dégrisage des boutons CREER ENREGISTRER peutaussi s'écrire de la façon suivante
# dans ce cas, c'est le sous-programme du superviseurSETBOUT qui exécute les Enable et
# Disableen fonction du positionnement à 0 ou 1des postes de la variable ETABOU
Local Integer ETABOU(1..GNBBOU)
ETABOU (GCREE) = 1
ETABOU (GENRE) = 1
Call SETBOUT(ETABOU) From GESECRAN
Adonix X3(r) L4G |