CLICK LONG

[Tyann]

Bonjour
Après quelques essais, voici une boucle qui détecte : un click simple, un click long ou un déplacement.
X et Y = coordonnées de départ
V et W = coordonnées de fin
et E le type d'événement.

Hello
After some tests , here is a loop that senses : a simple click , long click or displacement .
X and Y = starting coordinates
V and W = End coordinates
E the type of event .

Code:


EXPORT TEST()
BEGIN
A:=1;E:=0;
WHILE A DO
 L1:=WAIT(-1);
 CASE
  IF L1(1)==0 THEN X:=L1(2); Y:=L1(3); END;
  IF L1(1)==1 THEN V:=L1(2); W:=L1(3); E:=1; END;
  IF L1(1)==2 AND E==1 OR L1(1)==3 OR L1(1)==7 THEN
    A:=0; E:=L1(1);
   END;
 END;
END;
{X,Y,V,W,E};
END;

Cela vous semble t-il correct ?
Des remarques ?
Merci d'avance.

This will seem right?
Remarks ?
Thank you in advance.