DESCRIPTION.

La procédure PROC_geteditboxscroll() retourne la position des barres de défilement associées à un éditeur de texte multiligne.

SYNTAXE.

PROC_seteditboxscroll( boite , editeur , khorizontale , kverticale )

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.

La procédure PROC_geteditboxscroll() va retourner : 

- la position de la barre horizontale de défilement dans khorizontale ;

- la position de la barre verticale de défilement dans kverticale.

Rappel ; pour que les barres de défilement soient visibles, il faut ajouter à la valeur du style lors de la création de editeur : &100000, pour associer une barre de défilement horizontale et/ou &200000, pour pour associer une barre de défilement verticale, à l'éditeur de texte.

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.

Voir la fonction PROC_seteditboxscroll() qui modifie les positions des barres de défilement d'un éditeur de texte multiligne.

La procédure PROC_seteditboxscroll() 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 defautC ---

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

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

DIM LST_Editeur$( 100 )

LST_Editeur$( 0 ) = "Vous pouvez entrer du texte a partir d'ici ..."

FOR kindex = 1 TO 99 : 

ktexte$ = "Ligne " +  STR$( kindex ) + " ...  -" + STRING$(kindex , STR$( kindex ) + " -" )

LST_Editeur$( kindex ) = ktexte$

NEXT kindex 

LST_Editeur$( 100 ) = "C'est ici que ce termine l'editeur de texte."

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_button( DLG_Test , "Bouger !" , FN_setproc( PROC_Action() ) , 5 , 130 , 60 , 15 , 0 )

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

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

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 ) : 

khozizontale = RND( 3000 ) : kverticale = RND( 3000 )

PROC_seteditboxscroll( Qboite , 101 , khozizontale , kverticale )

PROC_geteditboxscroll( Qboite , 101 , kbas , kdroite )

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

PROC_refreshdialog( Qboite )

ENDPROC