DESCRIPTION.

La procédure PROC_seteditboxtabs() permet de définir les nombre de colonnes et leur largeur qui seront présentes dans un éditeur de texte multiligne.

SYNTAXE.

PROC_seteditboxtabs( boite , editeur , tableau , colonnes )

REMARQUES.

boite doit être l'identifiant de la boite de dialogue qui accueillera l'éditeur de texte. Il s'agit du nom de la variable qui a reçu la valeur retournée par la fonction FN_newdialog() du module dlglib.bbc pour la création de boite.

editeur doit être l'identifiant de l'éditeur de texte multilignes qui sera associé a tableau.

tableau doit être l'identifiant d'un tableau de données, ne contenant que des valeurs numériques entières, exprimant les largeurs de chaque colonnes, en unités de boîte de dialogue ou en unités graphiques BBC BASIC, qui seront placées dans editeur selon la méthode de création de la boite. 

colonnes doit être un nombre entier indiquant le nombre d'éléments, ou items, provenant de tableau qui doivent être insérés dans editeur. Si tableau peut être inférieur au nombre d'items de tableau, il ne doit jamais lui être supérieur, chaque colonne de editeur devant pouvoir faire référence au contenu d'un item de tableau. 

La procédure PROC_seteditboxtabs() doit être invoquée avant PROC_seteditboxarray() afin que l'étendue de la barre de défilement horizontale soit correctement ajustée pour les taquets de tabulation.

IMPORTANT : une fois qu'un éditeur de texte est associé à un tableau de données pour formater ses colonnes, il n'est plus possible de changer de tableau de données pour modifier ces dimensions.

Rappel : pour insérer une tabulation dans une chaine de caractères, il faut utiliser l'expression CHR$( 9 ).

Rappel : Les éditeurs de texte multiligne, créer avec le module editbox.bbc, devant être accueillis dans une boite de dialogue, il faut impérativement installer le module dlglib.bbc avant le module module editbox.bbc.

La procédure PROC_seteditboxtabs() est importée depuis la module editbox.bbc. 

EXEMPLE.

REM --- Importation des modules ---

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

INSTALL @lib$ + "dlglib.bbc"

INSTALL @lib$ + "editbox.bbc"

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

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

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

DIM LST_Editeur$( 10 )

LST_Editeur$( 0 ) = "quantite" + CHR$( 9 ) + "prix" + CHR$( 9 ) + "TOTAL" + CHR$( 9 ) + "Remarques" 

LST_Editeur$( 1 ) ="7" + CHR$( 9 ) + "12" + CHR$( 9 ) + "84" + CHR$( 9 ) + "Bleu" 

LST_Editeur$( 1 ) = "2" + CHR$( 9 ) + "4" + CHR$( 9 ) + "8" + CHR$( 9 ) + "Sans les cases" 

DIM LST_colonnes( 5 ) : LST_colonnes( ) = 70 , 50 , 100 , 200 , 100 , 100

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

DLG_Test = FN_newdialog( "Test ..." , 170 , 150 )

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

PROC_button( DLG_Test , "Fermer." , 8 , 115 , 130 , 40 , 15 , 0 )

PROC_editbox( DLG_Test , "" , 101 , 5 , 5 , 160 , 120 , &300000 ) 

PROC_seteditboxtabs( DLG_Test , 101 , LST_colonnes , 4 )

PROC_seteditboxarray( DLG_Test , 101 , LST_Editeur$() , 10 )

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