EURÉKA! Le double clic!!!

Bonjour à tous les panoramiciens de la planète!!!

Et oui! Après mon clic droit évènementiel, le double clic!
(C'est JL35 qui va être content, même tout le monde!)
Aujourd'hui, vous allez révolutionner vos programmes. En effet, j'ai trouvé comment faire ce fameux double clic en panoramic pur! Et vous pouvez voir que le code est hyper simple à mettre en oeuvre! Seulement 17 petites lignes de code.
La valeur du wait est à ajuster. J'ai de très bon résultats entre 80 et 180! Les 2 scancode sont nécessaires. Le premier permet de purger la fonction number_click de l'évènement on_click et le second détecte le second clic!
Ça marche sur: Edit, Memo, List, Combo, Alpha, Option, Scene2d, Scene3d, Form, Picture, Spin et Grid.
Sur Button et Check, on a en retour un clic simple en plus, mais franchement, ça ne sert à rien le double clic sur ces objets là!
Je n'ai pas testé sur un container_option (mais ça devrait être bon aussi) ni sur un sub_menu, mais sur cet objet-là un seul clic suffit!
Klaus, même si on se servira moins de ta dll "intercepter clic gauche, double et droit", elle reste toujours valable pour toutes les autres fonctions qu'elle donne!
Lode, tu ne pourras pas lancer de défi double clic maintenant, hé,hé,hé...

Voilà, j'espère que ce petit bout de code servira à tout le monde et nous permettra d'avoir des programmes en panoramic beaucoup plus simple d'emploi!
Si vous avez des suggestions pour simplifier ce code, je suis preneur!

Code:

dim clic,nclic
label cliquer
picture 1:left 1,200:color 1,100,0,0
on_click 1,cliquer
end
cliquer:
nclic=number_click
if number_click>0
  wait 140:' <=== Valeur à ajuster (j'obtiens de bon résultats entre 80 et 180)
  clic=scancode
  clic=scancode
  if clic=1 then nclic=nclic+1
end_if
if nclic=1 then print "simple clic!"
if nclic=2 then print "double clic!"
nclic=0
return

A bientôt chers amis! Cordialement.

PS: je n'ai plus de fièvre et je suis presque guéri!

Hum, si tu as eu l'idée pendant que tu avais la fièvre on ne te souhaitera plus un bon rétablissement... Vivement ta prochaine grippe ^^
Le double clic marche super bien, en effet

C'est à croire qu'il faut conseiller de tomber malade ... Bravo - c'est super !

Ah oui, très bien, et très astucieux, et surtout reste au lit, bien au chaud !

Non, le plumard, c'est fini maintenant! J'ai assez transpiré comme ça depuis 3 jours! Mes neurones ont besoin de se reposer maintenant...

M'en fou, j'attends que tu finisses de te remettre, puis que tu profites un peu puis je fais une attaque bactériologique en t'envoyant une lettre avec des microbe pour que tu es à nouveau de la fièvre et retrouves de bonnes idées pendant ta fièvre
Non mais ...

Terroriste! va!

....

Impeccable!! T'as bossé comme un malade, on dirait

Lol lodchjo ^^

Bravo le jeu de mots !

J'avoue que trouver l'idée du double-click fallait le faire, c'est fortiche.

Ah! Trève de plaisanteries!
Je viens de simplifier mon programme du double clic!
Au lieu de 17 lignes, il n'y en a plus que 13!

Code:

dim clic
label cliquer
picture 1:left 1,200:color 1,100,0,0
on_click 1,cliquer
end
cliquer:
wait 120:' <=== Valeur à ajuster (j'obtiens de bon résultats entre 100 et 180)
if scancode=1 then clic=clic+1
if scancode=1 then clic=clic+1
if clic=1 then print "simple clic!"
if clic=2 then print "double clic!"
clic=0
return

C'est vraiment trop simple!
bonne nuit!

N'étant pas chez moi pour quelque jours je ne peut pas tester,

Quand même ! y faut vraiement être malade pour avoir une idée pareil !

Je pense que je vais me faire inoculer le PanoH1N1, çà va m'aider..

Bravo pour l'idée...

A+

Bonsoir,
Comme je travaille sur mon programme PLANORAMIC, je vais tenter d'utiliser le double clic sur un list de cette manière. Je ne pense pas avoir de problèmes car au premier abord ça a l'air simple, mais on ne sait jamais.

Code:

dim clic
label cliquer
list 1:left 1,200:color 1,200,200,200
item_add 1,"SALUT"
item_add 1,"BONJOUR"
item_add 1,"HELLO"
on_click 1,cliquer
end
cliquer:
wait 120:' <=== Valeur à ajuster (j'obtiens de bon résultats entre 100 et 180)
if scancode=1 then clic=clic+1
if scancode=1 then clic=clic+1
if clic=1 then print item_read$(1,item_index(1)); " simple clic!"
if clic=2 then print item_read$(1,item_index(1)); " double clic!"
clic=0
return