4D Write v16WR ON EVENT |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D Write v16
WR ON EVENT
|
WR ON EVENT ( zone ; événement ; méthode ) | ||||||||
Paramètre | Type | Description | ||||||
zone | Entier long |
![]() |
Zone 4D Write | |||||
événement | Entier long |
![]() |
Code de l'événement à intercepter | |||||
méthode | Chaîne |
![]() |
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ètres | Type | Description |
$1 | Entier long | Référence de la zone 4D Write |
$2 | Entier | Touche Maj |
$3 | Entier | Touche Alt (Windows), touche Option (Mac OS) |
$4 | Entier | Touche Ctrl (Windows), touche Commande (Mac OS) |
$5 | Entier | Type d’événement qui a provoqué l’appel |
$6 | Entier | Sa valeur varie en fonction du paramètre événement |
$0 | Entier long | Si méthode retourne une valeur |
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.
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
Produit : 4D Write
Thème : WR Utilitaires
Numéro :
89174
Modifié : 4D Write 2004.1
4D Write - Langage ( 4D Write v16)