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
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)

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;