CheckBox

Classe de sélection d'options à l'aide de cases à cocher.

Version: 1.1
Date: Le 6 août 1997
Rédaction: Jocelyn Houle
Direction: Jean Vaucher


Introduction

Les CheckBoxes sont des cases à cocher permettant la sélection d'options. Une case a deux états possibles: cochée ou non...

 

Code

BEGIN
   EXTERNAL CLASS WindowTools;

   INSPECT NEW MainWindow("CheckBox") DO
   BEGIN
      REF(Button)     Quit;
      REF(CheckBox)   Case;

      Case :- MakeCheckBox("Case a cocher"); 
      Quit :- MakeButton("Ok").PlaceDownRight;
      SetSize(150, 70);
      Show;
      Quit.Wait;
      OutText( "La case" & (IF Case.Checked THEN " est cochee."
                            ELSE " n'est pas cochee.")          );
   END;
END;

La CheckBox a été créée grâce à la fonction MakeCheckBox qui a nécéssité qu'on lui spécifie directement le texte associé ("Case a cocher").

L'attribut Checked retourne TRUE si la case est cochée, est FALSE sinon.


Informations sur les CheckBoxes

La création d'une CheckBox se fait à l'aide de la procédure MakeCheckBox qui a besoin qu'on lui spécifie l'étiquette associée (un TEXT).

Pour savoir l'état de la case, on a:
boolean procedure Checked;
Retourne TRUE si la case est cochée et FALSE sinon.

Et il existe aussi 2 procédures qui permettent de définir ou modifier la valeur de la case:
procedure SetBox;
Met à TRUE la valeur et coche la case.
procedure UnSetBox;
Met à FALSE la valeur et vide la case.

Finalement, si jamais on a besoin de changer le texte accompagnateur, il existe la procédure suivante:
procedure SetText(NewText); text NewText;
Change l'étiquette courante pour NewText.


Exemples de programmes

[Retour à l'index de WindowTools...]