DESCRIPTION.

La fonction PROC_setlcomboboxselect() sélectionne un élément dans une liste déroulante de sélections.

SYNTAXE.

PROC_setlcomboboxselect( boite , controle , index )

REMARQUES.

boite doit être l'identifiant de la boite de dialogue contenant le controle. Il s'agit du nom de la variable qui a reçu la valeur retournée par la fonction FN_newdialog() pour la création de boite.

controle doit être l'identifiant de la liste déroulant de sélections.

index doit être un nombre entier correspondant à l'index de l'élément de la liste fixe de sélection. Si index vaut 0, tous éléments de la liste fixe de sélection sont désélectionnés.

Voir la fonction FN_newdialog() qui permet de déclarer et de créer une boite de dialogue. 

Voir la procédure PROC_setdlgitemtext() qui modifie le contenu d'un controle.

La procédure PROC_setlcomboboxselect() est importée depuis le module dlglib.bbc. 

EXEMPLE.

REM --- Importation des modules ---

REM --- Module de la bibliothèque BBC BASIC ---

INSTALL @lib$ + "dlglib.bbc"

REM --- Chargement de la police de caracteres par defaut ---

OSCLI "FONT """ + @lib$ + "DejaVuSans"",12" 

REM --- Initialisation des elements de la liste ---

DIM LST_Choix$( 10 ) 

FOR kindex = 0 TO 10 : LST_Choix$( kindex ) = "Element " + CHR$( 64 + kindex ) : NEXT kindex

REM --- Creation d'une boite de dialogue nommee DLG_Test de 160 x 60 unites intitulee Test ---

DLG_Test = FN_newdialog( "Test ..." , 60 , 100 )

PROC_registerdlgcallback( DLG_Test, FN_Choix() ) 

REM --- Creation des controles de la boite de dialogue ---

PROC_button( DLG_Test , "Fermer." , 8 , 10 , 80 , 40 , 15 , 0 )

PROC_combobox( DLG_Test , "defaut" , 101 , 5 , 5 , 50 , 70 , 0 ) 

PROC_setcomboboxarray( DLG_Test , 101 , LST_Choix$() , 8 )

REM --- Affichage de la boite de dialogue et attende des choix de l'utilisateur ---

kcontrole = FN_showdialog( DLG_Test , &FFFFFFFF80000000 , &FFFFFFFF80000000 )  

REM --- Fermeture de la boite de dialogue ---

PROC_closedialog( DLG_Test ) 

REM --- Fin du programme ---

PRINT : PRINT "Au revoir."

END

REM --- DEFINITION DES METHODES PERSONNALISEES ---

REM --- Fonction de rappel de la boite de dialogue DLG_Test ---

DEF FN_Choix( Qboite , Qtouche )

PRINT TAB( 0 , 0 ) STRING$( 30 , " " )

kindex = RND( 10 ) : IF kindex > 8 THEN kindex = 0

PROC_setcomboboxselect( Qboite , 101 , kindex )

PROC_refreshdialog( Qboite )

= 0