Panneaux de controle avances

Supposons que vous souhaitez effectuer un saut automatique vers une ligne specifique de texte. La commande HyperText pourrait ressembler a ceci :

X> HText 1,0,0,40,20,text_address,0,4,0,3;
   [ZChange 1,ZPosition]

Et dans le texte, vous incluriez des lignes comme celles-ci :

X> {[10] Aller a la ligne 10}
   {[100] Aller a la ligne 100}

Apres avoir defini la valeur retournee, vous pouvez egalement definir les couleurs papier et stylo du bouton. Si elles ne sont pas specifiees, l interface inversera simplement les couleurs de l encre et du fond quand le mot est surligne.

Enfin, indiquez le mot ou la phrase a surligner. Cela peut aller d un seul caractere jusqu a une ligne entiere. Le texte sera automatiquement affiche a la position du curseur courant.

La definition de zone se termine avec une accolade fermante }.

Si une erreur se produit, ou s il y a trop de zones interactives sur une ligne, alors le texte sera affiche tel quel, et les caracteres [ seront visibles a l ecran.

Faire defiler la fenetre avec un curseur

Pour faire defiler la fenetre HyperText avec un curseur, il est utile de connaitre le nombre de lignes de texte. Cela permet de fixer la valeur total du curseur.

La commande HyperText stocke cette taille dans une variable interne, accesible avec ZVar. Vous pouvez donc definir le curseur juste apres avoir ouvert la fenetre. Exemple :

X> SetVar 1,0 ; la variable 1 contient la position dans le texte
   HText 1,0,0,38,20,0 VA,1 VA,10,0,1 ;[]
   SetVar 2,ZVar ; charge le nombre de lignes dans la variable 2
   VSlider 2,38 8*,0,8,20 8*,1 VA,40,2 VA,1
   [SetVar 1,ZPos; ZChange 1,1 VA;] ; mise a jour de la position du texte

Deplacement manuel de l ecran

Si une fenetre HyperText est affichee sur un ecran separe, elle peut etre deplacee physiquement avec la commande ScreenMove.

ScreenMove
Instruction Interface : deplace l ecran en suivant la souris
SM;

Cette instruction simple permet de glisser-deposer l ecran avec la souris. Elle doit etre appelee dans une routine [changes] pour que l ecran suive le mouvement de la souris quand un objet est selectionne.

Voici un exemple final : un bouton qui active le deplacement de l ecran comme celui de l aide AMOS :

X> BUtton 6,24,0,SX,10,0,0,0;[][ScreenMove;]