Version: 1.0
Date: Le 13 août 1997
Rédaction: Jocelyn Houle
Direction: Jean Vaucher
Un bouton peut être fancy, dans lequel cas il aura une apparence spéciale.
BEGIN
EXTERNAL CLASS WindowTools;
INSPECT NEW MainWindow("Encheres") DO
BEGIN
REF(Button) TheButton;
SetSize(150, 75);
TheButton :- MakeButton("Click").PlaceCentered;
Show;
TheButton.Wait;
OutText("Une fois..."); OutImage;
TheButton.Wait;
OutText("Deux fois..."); OutImage;
TheButton.Wait;
OutText("Trois fois..."); OutImage;
OutText("Vendu!!!");
END;
END;
Le bouton a été créé grâce à la fonction MakeButton où l'on a spécifié l'étiquette du bouton.
TheButton.Wait attend qu'on ait appuyé sur le bouton TheButton avant de continuer le programme.
|
|
|
Pour attendre un bouton, on n'a qu'à faire un Wait:
|
On peut également changer l'étiquette d'un bouton:
|
Mais la taille du bouton ne change pas automatiquement. Pour ce, il faut appeler:
|
On peut finalement afficher une Picture dans le bouton plutôt que du texte:
|
Il existe finalement une procédure accessible de la fenêtre parente et qui peuvent s'avérer utile...
|