4D Write v16

WR ON EVENT

Accueil

 
4D Write v16
WR ON EVENT

WR ON EVENT 


 

WR ON EVENT ( zone ; événement ; méthode ) 
Paramètre Type   Description
zone  Entier long in Zone 4D Write
événement  Entier long in Code de l'événement à intercepter
méthode  Chaîne in Nom de la méthode à exécuter

La commande WR APPELER SUR EVENEMENT filtre les événements avant qu’ils soient traités par 4D Write. Lorsqu’un événement donné survient, la méthode dont le nom est passé en troisième paramètre est exécutée.

Si zone vaut 0, la commande WR APPELER SUR EVENEMENT s’applique à l’ensemble des zones 4D Write. Dans ce cas, il est préférable de passer cette commande dans la Méthode base Sur ouverture (qui est exécutée à l’ouverture de la base). Si une zone a sa propre méthode d’événement installée, celle-ci est prioritaire sur la méthode d’événement installée sur l’ensemble des zones.

Passez dans le paramètre événement une valeur indiquant l'événement à intercepter. Vous pouvez utiliser les constantes suivantes, placées dans le thème "WR Evénements" :

Constante Type Valeur Comment
wr on key Entier long 0 Appui d'une touche (y compris flèches, retours chariot, tabulations…)
wr on double click Entier long 1 Double-clic
wr on single click Entier long 2 Clic souris unique
wr on triple click Entier long 3 Trois clics rapprochés
wr on right click Entier long 4 Clic avec le bouton droit
wr on activate Entier long 5 Zone 4D Write activée ou désactivée
wr on printing Entier long 7 Impression du document
wr on ruler Entier long 8 Changement dans la règle
wr on compute references Entier long 9 Recalcul des références en provenance de 4D
wr on close Entier long 10 Fermeture d’une fenêtre ou d’une zone 4D Write
wr on drag Entier long 11 Un objet est glissé
wr on drop Entier long 12 Un objet est déposé
wr on timer Entier long 13 Fin d'un cycle du minuteur

Pour activer méthode pour tous les événements listés ci-dessus, passez -1 dans événement.

méthode est la méthode 4D qui est appelée quand l’événement passé en second paramètre est détecté. Elle doit comporter 7 paramètres qui devront être déclarés en vue d’une éventuelle compilation.

ParamètresTypeDescription
$1Entier longRéférence de la zone 4D Write
$2EntierTouche Maj
$3EntierTouche Alt (Windows), touche Option (Mac OS)
$4EntierTouche Ctrl (Windows), touche Commande (Mac OS)
$5EntierType d’événement qui a provoqué l’appel
$6EntierSa valeur varie en fonction du paramètre événement
$0Entier longSi méthode retourne une valeur
  • $1 renvoie le nom de la zone.
  • $2 vous informe sur l’état de la touche Maj. Si $2 est égal à 1, la touche a été enfoncée.
  • $3 vous informe sur l’état de la touche Alt sous Windows ou Option sous Mac OS. Si $3 est égal à 1, la touche a été enfoncée.
  • $4 vous informe sur l’état de la touche Ctrl sous Windows ou Commande sous Mac OS. Si $4 est égal à 1, la touche a été enfoncée.
  • $5 renvoie le type d’événement qui a provoqué l’appel de la méthode.
  • $6 varie en fonction de l’événement filtré :
    • Si événement est égal à 0, $6 vous renseigne sur le code de la touche interceptée. Si vous souhaitez interdire cette touche, initialisez $0 à 1.
    • Si événement est égal à 1 ou à 2, $6 vous indique si le clic ou le double-clic a eu lieu sur une référence. Dans ce cas, $6 a pour valeur 1. 
      Note :
      La méthode est appelée exceptionnellement avant la gestion du clic :
      • lors d’un clic ou d’un double-clic sur une référence (lien hypertexte, expression 4D ou expression HTML),
      • lors d’un clic droit (Windows) ou Control+clic (Mac OS) qui a pour vocation d’appeler le menu présentant la liste des champs de la base. Pour une meilleure compatibilité, il est conseillé d'utiliser l'événement 4 (wr sur clic droit).
    •  L'événement égal à 3 concerne la sélection de paragraphe. Un triple clic ne peut s'effectuer sur une référence sauf si une méthode d'appel sur événement a été installée sur le double-clic et que celui-ci a été intercepté par $0:=1. $6 n'est pas significatif dans ce cas.
    • Si événement est égal à 4, $6 indique le type de menu contextuel sur le point d’être affiché (en fonction de l’emplacement du clic) :
      • Si $6 est égal à 1, un menu de type 1 (clic dans l’en-tête/le pied de page) est affiché.
      • Si $6 est égal à 2, un menu de type 2 (clic dans le texte de la zone de corps) est affiché.
      • Si $6 est égal à 3, un menu de type 3 (clic dans une image de la zone de corps) est affiché.
    • Si événement est égal à 5, $6 prend la valeur 1 si la zone 4D Write est active et 0 dans le cas inverse.
    • Si événement est égal à 7, $6 vous indique le numéro de la table sur lequel porte le mailing. Dans le cas d’une impression simple, $6 prend la valeur 0.
    • Si événement est égal à 8 (une action s'est produite dans la règle), $6 ne retourne pas de valeur significative. Initialisez $0 à 1 si vous souhaitez empêcher toute action dans la règle.
    • Si événement est égal à 9, $6 vous indique l’endroit où s’effectue le recalcul de la référence :
      • Si $6 est égal à 0, le recalcul s’effectue dans le corps du document.
      • Si $6 est égal à 1, le recalcul s’effectue dans l’en-tête.
      • Si $6 est égal à 2, le recalcul s’effectue dans le pied de page.
    • Si événement est égal à 13, la méthode sera appelée automatiquement tous les N ticks (un tick = 1/60e de seconde), quelles que soient les actions de l’utilisateur. Par défaut, le minuteur génère l'événement tous les 3600 ticks (60 secondes).

L'utilisation d'un minuteur dans une zone permet notamment de mettre en oeuvre un mécanisme de sauvegardes de sécurité automatiques des documents en cours d’édition. Vous pouvez modifier la fréquence du minuteur à l'aide de la commande WR FIXER PROPRIETE ZONE. Attention, la méthode ne doit pas effectuer de traitement trop lourd, car son exécution répétée peut ralentir significativement l’application.

Important : méthode renvoie 0 ou 1 dans $0. Si vous souhaitez que cette méthode prenne en compte l’événement, initialisez $0 à 0. En revanche, si vous ne souhaitez pas en tenir compte, initialisez $0 à 1.
Pour illustrer ce point, imaginons le cas suivant : pour une raison quelconque, vous ne souhaitez pas qu’apparaisse le caractère “@” dans votre document. Dans ce cas, filtrez la saisie de tous les caractères apparaissant dans le document, initialisez $0 à 1 et lorsque $6 est égal au code de caractère de l’arobas, ignorez-le. Vous empêchez ainsi la frappe de ce caractère.

Note : Si vous filtrez la saisie de caractères, elle sera considérablement ralentie. En effet, un contrôle s’opérera sur chaque frappe.

Exemple  

Vous souhaitez, suivant l’événement filtré, appliquer un traitement :

  `Méthode formulaire d’une base en mode "Menus créés"
 If(Form event=On Load)
    WR ON EVENT(LaZone;wr on key;"MéthEvénement")
  `Appel sur la frappe de caractères
    WR ON EVENT(LaZone;wr on activate;"MéthEvénement")
  `Appel sur l’état de la zone (active ou désactive)
    DISABLE MENU ITEM(2;1)
  `Désactivation de la commande de menu "Changer polices"
    WR SET AREA PROPERTY(LaZone;wr fréquence appel;54000)
  `Appel du minuteur toutes les 15 mn
    WR ON EVENT(LaZone;wr on timer;"MéthEvénement")
  `Mise en place de l'autosave
 End if
 
  `Méthode MéthEvénement
 C_LONGINT($0;$1;$2;$3;$4;$5;$6)
 Case of
    :($5=wr on key)
  `Interception des touches
       If(($6=199)|($6=200))
  `Si les codes ASCII correspondent à ceux des touches « »
          BEEP
          $0:=1
       Else `On laisse l’événement à 4D Write
          $0:=0
       End if
    :($5=wr on activate`Interception du changement d’état de la zone (active ou désactivée)
       If($6=0)
  `Si la zone est désactivée
          DISABLE MENU ITEM(2;1)
  `Désactivation de la commande de menu "Changer polices"
       Else `Si la zone est active
          ENABLE MENU ITEM(2;1)
  `Activation de la commande de menu "Changer polices"
       End if
    :($5=wr on timer)
  `Toutes les 15 mn
       $NomDoc:="C:\\Temp\\Docs\\LaZone.4W7"
       WR SAVE DOCUMENT(LaZone;$NomDoc;"4WR7")
 End case



Voir aussi  

WR Get on event method
WR ON ERROR

 
PROPRIÉTÉS 

Produit : 4D Write
Thème : WR Utilitaires
Numéro : 89174

 
HISTORIQUE 

Modifié : 4D Write 2004.1

 
UTILISATION DE L'ARTICLE

4D Write - Langage ( 4D Write v16)