FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Quelle option est cochée ?
par Klaus Hier à 20:07

» PPE...le retour ?...
par Jean Claude Hier à 19:57

» Univers sans fin
par jjn4 Hier à 17:55

» Palette de couleurs
par jjn4 Hier à 17:51

» New: Maître-expert alphabétique
par jjn4 Hier à 17:12

» Sortie de Sub intempestive
par JL35 Dim 19 Fév 2017 - 17:31

» Caracteres de blocs
par Yannick Sam 18 Fév 2017 - 16:04

» KGF_dll - nouvelles versions
par Yannick Sam 18 Fév 2017 - 15:46

» KGF.dll et EXCEL
par Jicehel Sam 18 Fév 2017 - 14:38

» Gestion des évènements par une DLL
par Klaus Sam 18 Fév 2017 - 13:50

» un éditeur en attendant Panoramic_Editor OK
par Jack Sam 18 Fév 2017 - 8:19

» Bug de PANORAMIC.EXE
par Klaus Ven 17 Fév 2017 - 21:00

» PLM N35
par Jean Claude Ven 17 Fév 2017 - 18:42

» Maître-expert couleur
par Jicehel Ven 17 Fév 2017 - 15:55

» La (micro) guerre des Etoiles
par Yannick Ven 17 Fév 2017 - 14:09

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728     
CalendrierCalendrier

Partagez | 
 

 Confirmation d'action

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
JL35



Nombre de messages : 5779
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Confirmation d'action   Sam 7 Fév 2015 - 19:47

Histoire de meubler un peu le silence actuel...
Si on demande confirmation avant d'effectuer une action (par exemple supprimer un fichier, ou quitter, etc., on peut utiliser la commande x=Message_Confirmation_Yes_No() qui est bien pratique, mais petit inconvénient pour moi elle s'affiche au centre de l'écran, éventuellement loin du clic sur le bouton d'origine.

Une petite sub qui affiche la question au plus près du clic d'origine, avec un exemple:
Code:

LABEL Conf
DIM t$,n
BUTTON 10: TOP 10,350: LEFT 10,100: CAPTION 10,"Supprimer": ON_CLICK 10,Conf
BUTTON 20: TOP 20,20: LEFT 20,400: CAPTION 20,"Quitter": ON_CLICK 20,Conf
END
' ==============================================================================
Conf:
n = NUMBER_CLICK
IF n=10
    t$ = "Supprimer le fichier ?"
ELSE
    t$ = "Quitter l'application ?"
END_IF
Confirmer(t$)
PRINT CLIPBOARD_STRING_PASTE$
RETURN
' ==============================================================================
SUB Confirmer(Texte$)
' Demande de confirmation d'une action, affichage d'une boîte 'OK' ou 'Annuler'
' au plus près du clic d'origine. Résultat dans le clipboard = caption du bouton
' cliqué.
DIM_LOCAL n,f,x,y,clk
IF LABEL("clkbt")=0 THEN LABEL clkbt
n=NUMBER_CLICK: x=MOUSE_X_LEFT_DOWN(n)+LEFT(n): y=MOUSE_Y_LEFT_DOWN(n)+TOP(n)
f = 5000
FORM f: TOP f,y+50: LEFT f,x-35: WIDTH f,150: HEIGHT f,80: BORDER_SMALL f
CAPTION f,"     Confirmer"
MEMO f+1: PARENT f+1,f: FULL_SPACE f+1
ITEM_ADD f+1,Texte$: COLOR f+1,255,255,0
BUTTON f+2: PARENT f+2,f: TOP f+2,HEIGHT(f)-60: LEFT f+2,WIDTH(f)/2-60: WIDTH f+2,50
CAPTION f+2,"OK": ON_CLICK f+2,clkbt
BUTTON f+3: PARENT f+3,f: TOP f+3,TOP(f+2): LEFT f+3,LEFT(f+2)+60: WIDTH f+3,50
CAPTION f+3,"Annuler": ON_CLICK f+3,clkbt
WHILE clk=0: PAUSE 200: END_WHILE: DELETE f: EXIT_SUB
clkbt:
CLIPBOARD_STRING_COPY CAPTION$(NUMBER_CLICK): clk=1
RETURN
END_SUB
Le résultat est rendu dans le presse-papier, sous la forme du caption du bouton qui a été cliqué (par exemple ici "OK" ou "Annuler".
C'est une ébauche, après il faut prévoir une fenêtre suffisamment grande pour le texte à afficher, etc.

Un truc un peu gênant avec les subs, c'est qu'il ne faut pas les appeler deux fois de suite, c'est le plantage assuré, par exemple si on clique une deuxième fois sur un bouton sans avoir validé la première.
J'ai bien essayé de trouver une combine pour empêcher ça, avec des indicateurs, etc, mais rien de bien satisfaisant en faisant le test dans les subs elles-mêmes (pour prévenir la réentrance), il faut le faire dans le programme principal.


Dernière édition par JL35 le Sam 7 Fév 2015 - 23:22, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick



Nombre de messages : 7152
Age : 45
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 7 Fév 2015 - 22:14

Le problème vient principalement de la déclaration des variables...
Mais il doit y avoir un moyen de moyenner.... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5779
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Confirmation d'action   Sam 7 Fév 2015 - 23:16

J'avais pensé à un verrou en début de sub (le même pour toutes les subs), libéré en fin de sub, mais ça ne suffit pas, ça n'empêche pas d'entrer. Il faut mettre le verrou à l'extérieur, et ça c'est plus contraignant., il faut penser à le tester avant d'appeler chaque sub (enfin, seulement quand même les subs qui ont ont des attentes, timers ou attentes de réponses, mais j'en ai quelques unes, et ça m'est arrivé de faire une fausse manoeuvre, recliquer sur un truc, et patatras !)

Mais bon, ça c'est un aparté rapport au sujet principal, bien modeste d'ailleurs. (c'était juste pour réveiller le forum).

Tiens je m'aperçois que là-haut j'ai oublié de mettre l'exemple d'appel de la sub... je rectifie
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick



Nombre de messages : 7152
Age : 45
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Re   Dim 8 Fév 2015 - 2:50

Quoi que (je n' ai pas regardé le code) mais vu la dénomination du bouton "Quitter",
le problème doit être court... Laughing

Ceci dit, selon les actions qu' engendre un bouton, il vaut mieux inactiver le reste pendant le traitement.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Confirmation d'action   

Revenir en haut Aller en bas
 
Confirmation d'action
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [RESOLU] une action en sortant d'un bouton (type onmouseout)
» probleme de copier / coller action
» Action envoyer un e-mail multi pièces jointes et envoi de groupe : Possible ou pas ?
» icone action
» [RÉSOLUT] Action quand on clique sur un sprite

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Présentation et bavardage-
Sauter vers: