Boite de dialogue avec cliché

[Morgul]

Bonjour à tous,

 

Voilà mon problème, j'ai créé une boite de dialogue habillé avec des clichés.

Avec aussi un bouton Ok et Annuler.

Je voudrais supprimer le bouton OK affin que l'on ai juste à cliquer sur l'un des clichés et la commande ce lance comme si l'on avait cliqué Ok.

Je souhaite conserver le bouton annuler.

 

Voici mon code lisp :

 

(setq id_dcl (load_dialog "Favoris.dcl"))

(if (not (new_dialog "Boite" id_dcl) ) (exit))

 

 

(setq x (dimx_tile "image1") y (dimy_tile "image1")) ; pour récuperer la taille de l'image dans le dcl

(start_image "image1")

(slide_image 1 -6 x y "Mesures.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y)

(end_image)

 

(setq x2 (dimx_tile "image2") y2 (dimy_tile "image2")) ; pour récuperer la taille de l'image dans le dcl

(start_image "image2")

(slide_image 1 -6 x2 y2 "Blocs.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y)

(end_image)

 

(setq x3 (dimx_tile "image3") y3 (dimy_tile "image3")) ; pour récuperer la taille de l'image dans le dcl

(start_image "image3")

(slide_image 1 -6 x3 y3 "Fenetres.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y)

(end_image)

 

(setq x4 (dimx_tile "image4") y4 (dimy_tile "image4")) ; pour récuperer la taille de l'image dans le dcl

(start_image "image4")

(slide_image 1 -6 x4 y4 "Texte.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y)

(end_image)

 

(setq x5 (dimx_tile "image5") y5 (dimy_tile "image5")) ; pour récuperer la taille de l'image dans le dcl

(start_image "image5")

(slide_image 1 -6 x5 y5 "Presentation.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y)

(end_image)

 

(setq x6 (dimx_tile "image6") y6 (dimy_tile "image6")) ; pour récuperer la taille de l'image dans le dcl

(start_image "image6")

(slide_image 1 -6 x6 y6 "Calques.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y)

(end_image)

 

(setq x7 (dimx_tile "image7") y7 (dimy_tile "image7")) ; pour récuperer la taille de l'image dans le dcl

(start_image "image7")

(slide_image 1 -6 x7 y7 "Tracer.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y)

(end_image)

 

(setq x8 (dimx_tile "image8") y8 (dimy_tile "image8")) ; pour récuperer la taille de l'image dans le dcl

(start_image "image8")

(slide_image 1 -6 x8 y8 "Purger.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y)

(end_image)

 

(setq x9 (dimx_tile "image9") y9 (dimy_tile "image9")) ; pour récuperer la taille de l'image dans le dcl

(start_image "image9")

(slide_image 1 -6 x9 y9 "Quitter.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y)

(end_image)

 

 

(action_tile "image1" "(setq OuvreProg va)")

(action_tile "image2" "(setq OuvreProg vb)")

(action_tile "image3" "(setq OuvreProg vc)")

(action_tile "image4" "(setq OuvreProg vd)")

(action_tile "image5" "(setq OuvreProg ve)")

(action_tile "image6" "(setq OuvreProg vf)")

(action_tile "image7" "(setq OuvreProg vg)")

(action_tile "image8" "(setq OuvreProg vh)")

(action_tile "image9" "(setq OuvreProg vi)")

 

(action_tile "OK" "OK (done_dialog)")

(action_tile "Annuler" "(done_dialog 0)")

 

 

 

 

(if (= (start_dialog) 1)

 

(progn

(start_dialog)

(unload_dialog id_dcl)

 

etc...

 

 

Voici le code de la dcl :

 

Boite : dialog {label ="Favoris";

: spacer {}

: spacer {}

: row {

: column {

: spacer {}

: image_button {key = "image1"; width = 15; height = 6; color = graphics_background;}

: text {value = "Mesures"; alignment = centered;}

: spacer {}

}

 

: column {

: spacer {}

: image_button {key = "image2"; width = 15; height = 6; color = graphics_background;}

: text {value = "Blocs"; alignment = centered;}

: spacer {}

}

 

: column {

: spacer {}

: image_button {key = "image3"; width = 15; height = 6; color = graphics_background;}

: text {value = "Fenêtres"; alignment = centered;}

: spacer {}

}

 

: column {

: spacer {}

: image_button {key = "image4"; width = 15; height = 6; color = graphics_background;}

: text {value = "Textes"; alignment = centered;}

: spacer {}

}

 

: column {

: spacer {}

: image_button {key = "image5"; width = 15; height = 6; color = graphics_background;}

: text {value = "Présentations"; alignment = centered;}

: spacer {}

}

 

: column {

: spacer {}

: image_button {key = "image6"; width = 15; height = 6; color = graphics_background;}

: text {value = "Calques"; alignment = centered;}

: spacer {}

}

 

: column {

: spacer {}

: image_button {key = "image7"; width = 15; height = 6; color = graphics_background;}

: text {value = "Tracer"; alignment = centered;}

: spacer {}

}

 

: column {

: spacer {}

: image_button {key = "image8"; width = 15; height = 6; color = graphics_background;}

: text {value = "Purger"; alignment = centered;}

: spacer {}

}

 

: column {

: spacer {}

: image_button {key = "image9"; width = 15; height = 6; color = graphics_background;}

: text {value = "Quitter"; alignment = centered;}

: spacer {}

}

}

 

 

: spacer {}

: spacer {}

:row{fixed_width = true;alignment = centered;

: ok_button {label = "OK"; width = 15;}

: spacer {}

: spacer {}

: spacer {}

: spacer {}

: spacer {}

: cancel_button {label = "Annuler"; width = 15;}

}

}

 

Merci pour votre aide.

 

PS : Pendant que j'y suis, Comment fait-on pour mettre un cadre rouge autour du cliché choisi ?

[Patrick_35]

Salut

 

(action_tile "image1" "(setq OuvreProg va)(done_dialog)")

par exemple.

Tu peux aussi donner une valeur au done_dialog pour l"exploiter plus tard

 

@+

 

[Morgul]

Merci, je vais tester demain.