Version: 1.0
Date: Le 20 mai 1997
Rédaction: Jocelyn Houle
Direction: Jean Vaucher
BEGIN EXTERNAL CLASS WindowTools; INSPECT NEW MainWindow("Scroll Window") DO BEGIN REF(Button) Quit; REF(ScrollWindow) SW; SetSize(300, 200); Show; Quit :- MakeButton("OK"); SW :- MakeScrollWindow.AllowInput; Quit.Wait; END; END;
La création d'une ScrollWindow se fait à l'aide de la procédure MakeScrollWindow. L'option AllowInput permet à l'usager d'écrire dans la zône.
![]() |
|
Pour voir la liste exhaustive des procédures disponibles aux ScrollWindows, il serait préférable de se référer aux TextAreas.
Mais puisque ce sont des ScrollWindows, nous avons répété les procédures de défilement...
![]() |
procedure ScrollLineUp; | Défile d'une ligne vers le haut. |
![]() |
procedure ScrollLineDown; | Défile d'une ligne vers le bas. |
![]() |
procedure Scroll(n); integer n; | Défile de n lignes. Si n est positif, vers le bas; s'il est négatif, vers le haut. |
![]() |
procedure ScrollPage(Up); boolean Up; | Si Up est TRUE, défile d'une page écran vers le haut, sinon, ce sera vers le bas. |
![]() |
procedure ScrollToTop; | Se rend au début du texte. |
![]() |
procedure ScrollToBottom; | Se rend à la fin du texte. |
![]() |
procedure ScrollTo(fraction); real fraction; | Défile pour être rendu a la fraction du texte définie par fraction. |
![]() |
procedure ScrollToLine(n); integer n; | Défile le texte de façon à avoir la ligne n au centre de l'écran. |
![]() |
procedure ScrollLineTop(n); integer n; | Défile le texte de façon à avoir la ligne n au haut de l'écran. |