DESCRIPTION.

La procédure PROC_textbox() crée un champ de saisie, et le place dans sa boite de dialogue.

SYNTAXE.

PROC_textbox( boite , texte , identifiant , abscisse , ordonnee , largeur , hauteur , style )

REMARQUES.

boite doit être l'identifiant de la boite de dialogue qui accueillera le champs de saisie. 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.

texte doit être une chaine de caractères quelconque mais valide. Si texte n'est pas une chaine vide, différent de "", il sera affiché dans le champs de saisie comme valeur par défaut.

identifiant doit être un nombre entier supérieur à 11.  Tous les controles d'une même boîte de dialogue doivent avoir un identifiant unique mais un identifiant peut être utilisé par plusieurs controles dans des boites de controle différentes.identifiant peut être la valeur retournée par la fonction FN_setproc(); en particulier si le programme doit utiliser identifiant pour connaitre le contenu du champs de saisie. Voir la procédure  PROC_button() pour les valeurs spéciales réservées aux boutons cliquables.

abscisse doit être des nombre entier, exprimé en unités de boite de dialogue, indiquant l'abscisse du bord gauche du champs de saisie dans boite, c'est-à-dire par rapport au bord gauche de boite.

ordonnee doit être des nombre entier, exprimé en unités de boite de dialogue, indiquant l'ordonnée du bord haut du champs de saisie dans boite, c'est-à-dire par rapport au bord haut de boite.

largeur doit être un nombre entier, exprimé en unités de boite de dialogue, donnant la largeur disponible pour la représentation du champs de saisie.

hauteur doit être un nombre entier, exprimé en unités de boite de dialogue, donnant la hauteur disponible pour la représentation du champs de saisie.

style précise le style visuel du champ de saisie. style peut valoir : 

- 0, valeur par défaut, pour afficher un champ de saisie standard ;

- 8192 (&2000), pour que le champs de saisie n'accepte que des valeurs numériques ;

- 134217728 (&8000000), pour afficher un champ de saisie grisé, désactivé ;

- 134225920 (&8002000), combine les valeurs &2000 et &8000000 ;

- 268435456 (&10000000), pour cacher le champ de saisie ;

- 268443648 (&10002000), combine les valeurs &2000 et &10000000.

Il est possible de combiner plusieurs styles visuels en additionnant les valeurs des styles respectifs. Par exemple : 134225920 (&8002000), combine les valeurs &2000 et &8000000, ce qui affichera un  champ de saisie qui n'acceptera que des valeurs numérique mais grisé.

La procédure PROC_textbox() va permettre à l'utilisateur de saisir des données sur une seule ligne afin qu'elles soient ensuite analysées par le programme.

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

Voir la fonction FN_getdlgitemtext() qui retourne le contenu d'un champ de saisie.

Voir la fonction PROC_setdlgitemtext() qui permet de modifier le contenu d'un champ de saisie.

La procédure PROC_textbox() 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 ..." , 120 , 80 )

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

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

PROC_button( DLG_Test , "Message." , FN_setproc( PROC_Action() ) , 70 , 55 , 40 , 15 , 0 )

PROC_static( DLG_Test , "Entrez votre prenom svp ...." , 101 , 10 , 10 , 100 , 15 , 0 ) 

PROC_textbox( DLG_Test , "" , 102 , 10 , 25 , 100 , 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 --- Procedures d'appel de la boite de dialogue DLG_Test ---

DEF PROC_Action( Qboite , Qbouton )

CLS

ksaisie$ = FN_getdlgitemtext( DLG_Test , 102 )

PRINT "Bonjour " , ksaisie$ , ". " 

PROC_setdlgitemtext( DLG_Test , 102 , "" )

PROC_refreshdialog( DLG_Test )

ENDPROC