DESCRIPTION.

La procédure PROC_multiwin() initialise le module et déclare le nombre maximum de fenêtres secondaires qui pourront être créées.

SYNTAXE.

PROC_multiwin( quantite )

REMARQUES.

quantite doit être un nombre entier supérieur à 1. 

La procédure PROC_multiwin() permet initialiser les variables, les procédure et les fonctions utiles pour l'utilisation du module ; Son appel est obligatoire et ne doit être faite qu'une seule fois, et avant tout appel d'une procédure ou d'une fonction définie dans le module.

Le nombre de fenêtres de sortie secondaires qui seront réellement crées par l'application peut être inférieur à quantite, mais jamais supérieur.

Rappel : la fenêtre de sortie principale, c'est-à-dire la fenêtre initiale, à l'identifiant 0 et ne doit pas être créée.

La procédure PROC_multiwin() est importée depuis le module multiwin.bbc. 

EXEMPLE.

REM --- Initialisation ---

INSTALL @lib$ + "multiwin.bbc"

PROC_multiwin( 5 )

MODE 8

REM --- Création des fenetres secondaires ---

PRINT "Fenetre princiaple : 0 "

PRINT "Creation des fenetres secondaires. Veuillez patienter ... "

FOR kfenetre = 1 TO 5

ktitre$ = "Fenetre numero : " + STR$( kfenetre )

kadresse = FN_createwin( kfenetre , ktitre$  , ( kfenetre * 100 ) ,   ( kfenetre * 100 ) , 480 , 680 , 0 , 0 , 0 )

NEXT kfenetre

REM --- Création des fenetres secondaires ---

PRINT "Fenetre princiaple : 0 "

PRINT "Creation des fenetres secondaires. Veuillez patienter ... "

FOR kfenetre = 1 TO 5

ktitre$ = "Fenetre numero : " + STR$( kfenetre )

PROC_selectwin( kfenetre )

PRINT ktitre$

WAIT( 50 )

NEXT kfenetre

REM --- Utilisation des fenetres secondaires --

FOR kfenetre = 1 TO 5

ktitre$ = "Fenetre numero : " + STR$( kfenetre )

PROC_selectwin( kfenetre )

PRINT ktitre$

NEXT kfenetre

REM --- Pause ---

PROC_selectwin( 0 )

PRINT "Creation des fenetres secondaires termine."

INPUT "Appuyez sur entree pour fermer les fenetres secondaires ... " kpause

REM --- Création des fenetres secondaires ---

PRINT "Fermeture des fenetres secondaires. Veuillez patienter ... "

FOR kfenetre = 1 TO 5 : PROC_closewin( kfenetre ) : NEXT kfenetre

PRINT "Fermeture des fenetres secondaires termine."

REM --- Fin du programme ---

INPUT "Appuyez sur entree pour Quitter le programme ...  " kpause

END