DESCRIPTION.

La fonction FN_getdlgitemtext() retourne l'état d'une case à option ou d'une case à choix.

SYNTAXE.

kchaine$ = FN_getdlgitemtext( boite , controle )

REMARQUES.

boite doit être l'identifiant de la boite de dialogue qui accueille la case à cocher. 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 du controle.

La fonction FN_isdlgitemchecked() retourne une chaine de caractères, correspondante à l'attribut texte du controle,

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 FN_getdlgitemtext() 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 --- Creation d'une boite de dialogue nommee DLG_Test de 160 x 60 unites intitulee Test ---

DLG_Test = FN_newdialog( "Test ..." , 160 , 35 )

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

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

PROC_button( DLG_Test , "Activer." , FN_setproc( PROC_Action() ) , 10 , 10 , 40 , 15 , 0 )

PROC_button( DLG_Test , "ACTIF" , 101 , 60 , 10 , 40 , 15 , 0 )

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 --- Activation / desactivation du bouton temoin ---

DEF PROC_Action( Qboite , Qbouton )

IF FN_getdlgitemtext( Qboite , 101 ) = "ACTIF" THEN 

PROC_enabledlgitem( Qboite , 101 , FALSE )

PROC_setdlgitemtext( Qboite , 101 , "inactif" )

ELSE

PROC_enabledlgitem( Qboite , 101 , TRUE )

PROC_setdlgitemtext( Qboite , 101 , "ACTIF" )

ENDIF

PROC_refreshdialog( DLG_Test )

ENDPROC