J'ai créer une fonction afin de supprimer des images de mon quadrillage.
On sélectionne l'image et on peux alors la supprimer de deux façons :
- soit en cliquant sur le menu "supprimer" d'un formulaire
- soit en appuyant sur la touche "retour arrière" du clavier
En passant par le menu, aucun problème.
Par contre, il faut appuyer de deux à cinq fois sur la touche pour que l'image soit supprimée.
Je poste mon code :
D'où vient le problème ?
(ma touche du clavier fonctionne très bien)
On sélectionne l'image et on peux alors la supprimer de deux façons :
- soit en cliquant sur le menu "supprimer" d'un formulaire
- soit en appuyant sur la touche "retour arrière" du clavier
En passant par le menu, aucun problème.
Par contre, il faut appuyer de deux à cinq fois sur la touche pour que l'image soit supprimée.
Je poste mon code :
Code:
Sélectionner :
Rôles :
§ num_x est un nombre
§ num_y est un nombre
§ numéro_case est un nombre
§ copie_pos_case est un nombre
Actions :
("on détermine le tile qui est sélectionné")
num_x = (sourisx - ((((largeur de fond - largeur de bordure_gauche) - (nombre_case_largeur_effectif * taille_case))/2) + largeur de bordure_gauche)) / taille_case
num_y = (sourisy - ((((hauteur de fond - (bordure_haute*2)) - (nombre_case_hauteur_effectif * taille_case))/2) + bordure_haute)) / taille_case
numéro_case = (entier num_x * nombre_case_hauteur_effectif) + entier num_y
Mesure copie_casier_tiles dans copie_nombre_tiles
pour chaque copie_nombre_tiles, lis
copie_pos_case = pos_case de (copie_casier_tiles{joker})
Si copie_pos_case == numéro_case alors lis
copie_index_case = index_case de (copie_casier_tiles{joker})
sélection_on = vrai
ferme
ferme
Tu vides les touches
Tu vas vers Actions
Actions :
Rôles :
§ i est un nombre
§ action est un texte
Actions :
tu temporises
action vaut touche
Si action est vide alors tu vas vers Actions
Si action == "Retour arrière" alors lis
Parcours Edition_supprimer
Observe Edition_supprimer
ferme
("on peut également déclencher ce paragraphe en appuyant sur le menu "supprimer")
Edition_supprimer :
Rôles :
§ i est un nombre
Actions :
Si sélection_on == vrai alors lis
sélection_on = faux
Efface (copie_casier_tiles{copie_index_case})
tu ôtes (copie_casier_tiles{copie_index_case}) de copie_casier_tiles
Mesure copie_casier_tiles dans copie_nombre_tiles
Si copie_index_case != copie_nombre_tiles alors lis
pour i de copie_index_case à copie_nombre_tiles - 1, lis
index_case de (copie_casier_tiles{i}) = ((index_case de (copie_casier_tiles{i})) - 1)
ferme
ferme
ferme
D'où vient le problème ?
(ma touche du clavier fonctionne très bien)