BiD_Avert

N° Fonction Catégorie Version
BID 02 BiD_Avert Boîte de Dialogue 1.0 - Janvier 2007

Description

But Envoie un message d'avertissement dans une boîte de dialogue.
Prototype (BiD_Avert Ligne1 Ligne2 Ligne3 Ligne4 Ligne5)
Arguments Ligne1 à Ligne5 - Les messages (Obligatoirement 5) - chaîne -
Eventuellement des chaînes vides " " pour des lignes blanches.
Retours Néant
Var. globales Néant
Description Envoie un message de 5 lignes de 50 caractères maxi.
Notes Les fichiers BiRaRR.dcl et BiRaRR.slb doivent être accessibles.
Exemples
Exemple 
 (setq avert1 "Vous pouvez à l'aide de cette routine" 
       avert2 "afficher jusqu'à 5 lignes de 50 car. maximum."
       avert3 "et même éventuellement des lignes blanches." 		
       avert4 " " 
       avert5 "Les textes sont centrés automatiquement.")
	   
(BiD_Avert avert1 avert2 avert3 avert4 avert5)

Autre exemple : 

(BiD_Avert "" "Cette dimension n'existe pas en standard." 
"Revoyez votre catalogue" "Ou inventez un nouveau modèle..." "" )
Exemple

La fonction 


(defun BiD_Avert (*L1 *L2 *L3 *L4 *L5 / Fich_dcl xw yw) 

  (setq Fich_dcl (load_dialog "BiRaRR.dcl"))   ; charge fichier .dcl
  (if (< Fich_dcl 0) (exit))                   ; s'il n'existe pas, sort
  (if (not (new_dialog "BiD02" Fich_dcl))      ; si ne trouve pas le dialogue BiD02
    (exit)                                     ; sort également.
  )
  (Setq xw (dimx_tile "image2")                ; fixe les dimensions de l'image
        yw (dimy_tile "image2"))
  (Start_Image "image2")                       ; lance la création de l'image
  (Slide_Image 0 -50 xw yw "birarr(exclam)")   ; charge le cliché
  (End_Image)
  (set_tile "avert_1" "ATTENTION")             ; définit les valeurs des éléments
  (set_tile "avert_2" *L1)                     ; avert_1 à avert_6
  (set_tile "avert_3" *L2)
  (set_tile "avert_4" *L3)
  (set_tile "avert_5" *L4)
  (set_tile "avert_6" *L5) 
  (action_tile "accept" "(done_dialog)")       ; définit l'action 'accept'
  (start_dialog)                               ; ouvre la boîte de dialogue
  (unload_dialog Fich_dcl)                     ; ferme le fichier .dcl
)


Le dialogue dans le fichier .dcl 

BiD02 : dialog {
       label = "Avertissement BiRaRR";      //  Ligne de titre
     : row {                                //  Commencer une rangée
       : column {                           //  commencer une 1ère colonne
        : image { key = "image2"; height = 12 ; width = 20 ;       //  Caractéristiques 
          fixed_width = true;   aspect_ratio = 2 ; color = -15; }  //de l'image
       }                                    //  fin de la colonne
       : column { children_alignment = centered;         //  nouvelle colonne
            : text { width = 50; key   = "avert_1"; }
            : text { label = "---------------------------------------"; }
            : text { label = ""; key = "avert_2"; }      //  1ère ligne de message
            : text { label = ""; key = "avert_3"; }
            : text { label = ""; key = "avert_4"; }
            : text { label = ""; key = "avert_5"; }
            : text { label = ""; key = "avert_6"; }
            : text { label = "  "; }
            spacer;                                      //  espacement
            ok_only;                                     //  bouton OK
        }                                                //  fin de la colonne
      }	                                                 //  fin de la rangée
 }