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...
![]() |
|