Unité GEM : Fonction evnt_multi

Déclaration

Description

Paramètres

1. ev_mflags Masque qui spécifique les événements à attendre.
   Preuve comme suit :
   • MU_KEYBD (1) frappe au clavier
   • MU_BUTTON (2) Clic de souris
   • MU_M1 (4) premier événement souris
   • MU_M2 (8) deuxième événement souris
   • MU_MESAG (16) information
   • MU_TIMER (32) Période de temps
   • MU_WHEEL (64) Roue de souris, XaAES
   • MU_MX (128) Mouvement de souris, XaAES
   • MU_KEYBD4 (256) GEM/4
   • MU_NORM_KEYBD (512)Codes clés normalisés, XaAES
   • MU_DYNAMIC_KEYBD (1024) XaAES, pas encore implémentéq
   • X_MU_DIALOG (2048) (Geneva)
2. ev_mbclicks comme dans evnt_button
3. ev_mbmask comme dans evnt_button
4. ev_mbstate comme dans evnt_button
5. ev_mm1flags comme dans evnt_mouse
6. ev_mm1x comme dans evnt_mouse
7. ev_mm1y comme dans evnt_mouse
8. ev_mm1width comme dans evnt_mouse
9. ev_mm1height comme dans evnt_mouse
10. ev_mm2flags comme dans evnt_mouse
11. ev_mm2x comme dans evnt_mouse
12. ev_mm2y comme dans evnt_mouse
13. ev_mm2width comme dans evnt_mouse
14. ev_mm2height comme dans evnt_mouse
15. ev_mmgpbuff comme dans evnt_mesag
16. ev_mtlocount comme dans evnt_timer
17. ev_mthicount comme dans evnt_timer
18. ev_mmox Résultat : coordonnée X actuelle de la souris
19. ev_mmoy Résultat : coordonnée Y actuelle de la souris
20. ev_mmobutton Résultat : état des boutons de la souris
21. ev_mmokstate Résultat : Etat du clavier (Se référer à evnt_button)
22. ev_mkreturn Résultat : touche enfoncée (Se référer à evnt_keybd)
23. ev_mbreturn Résultat : nombre de clics sur le bouton de la souris (Se référer à evnt_button)

• MU_WHEEL : Ce message n'est envoyé que s'il n'y a pas de fenêtre principale ou si celle-ci ne comporte pas de widgets fléchés.
• MU_MX : Ce message signale tout mouvement de souris à l'application (ev_mmox, ev_mmoy), avec l'état du clavier.
• MU_KEYBD4 : Utilisé en interne dans GEM/4 pour vérifier une demande d'aide contextuelle.
• MU_NORM_KEYBD : Si le masque d'événement MU_NORM_KEYBD est transmis à evnt_multi, l'application reçoit un code de touche normalisé (NKCC) au lieu du code de touche AES standard, ainsi que l'état de la souris. Ce masque peut être utilisé avec MU_KEYBD ; si les deux sont transmis, MU_NORM_KEYBD prévaut. Le code clé normalisé se trouve dans ev_mmokstate et ev_mkreturn, qui ont tous deux la même valeur.
• X_MU_DIALOG : Si le bit 14 du paramètre ev_mflags est activé (ev_mflags |= X_MU_DIALOG), tout clic de souris ou action clavier dans les fenêtres contenant des boîtes de dialogue activera le bit 14 de la valeur renvoyée par ev_mwhich depuis evnt_multi. Dans ce cas, le mot 2 de ev_mmgpbuff contient l'index de l'objet sélectionné dans la boîte de dialogue. Si l'objet était un bouton TOUCHEXIT et que l'utilisateur a double-cliqué dessus, le bit 15 sera activé, comme pour form_do. Le mot 3 du tampon de messages ev_mmgpbuff contient le handle de la fenêtre dans laquelle l'événement s'est produit. Cette fonctionnalité est utilisée conjointement avec l'option wind_set de X_WF_DIALOG.

Résultat

Références croisées evnt_keybd, evnt_button, evnt_mouse, evnt_mesag, evnt_timer

Exemple

{ Boucle principale d'un éditeur GEM. Nous avons besoin   }
{ de frappes, de clics de souris, de messages et nous voulons   }
{ faire clignoter le curseur toutes les 0,5 secondes }
event := evnt_multi( 
  MU_KEYBD or MU_MESAG or MU_BUTTON or MU_TIMER,
  2, 1, 1,{ pour les clics de souris     }
  0, 0, 0, 0, 0,    { on n'a pas besoin }
  0, 0, 0, 0, 0,    { on n'a pas besoin }
  pipe,   { pour les infos    }
  500, 0, { toutes les 0,5 secondes  }
  x, y, state,      { État de la souris        }
  kstate, { État du clavier    }
  key,{ bouton}
  clicks );         { Nombre de clics de souris  }

if (event and MU_KEYBD) <> 0 then
  ProcessKey( key );
if (event and MU_BUTTON) <> 0 then
  ProcessMouseClick( x, y, state, kstate, clicks );
if (event and MU_MESAG) <> 0 then
  ProcessMessage( pipe );
if (event and MU_TIMER) <> 0 then
  BlinkCursor;