HTBasic Help
×
Menu
Index

Example: Scrollbar Widget

 
10     ! *********************************************************************
20     ! Example: SCROLLBAR Widget
30     !
40     ! This program generates a horizontal SCROLLBAR widget
50     ! and displays the value set with the slider.
60     !
70     ! **************************************************
80     !
90     ASSIGN @Scroll TO WIDGET "SCROLLBAR"
100   CONTROL @Scroll;SET ("TITLE":" Example: SCROLLBAR Widget")
110   CONTROL @Scroll;SET ("ORIENTATION":"HORIZONTAL")
120   CONTROL @Scroll;SET ("X":50,"Y":25,"HEIGHT":50,"WIDTH":275)
130   CONTROL @Scroll;SET ("SYSTEM MENU":"Quit")
140   !
150   ON EVENT @Scroll,"SYSTEM MENU" GOTO Finis
160   ON EVENT @Scroll,"DONE" GOSUB Dispval
170   LOOP
180     WAIT FOR EVENT
190   END LOOP
200   !
210 Dispval: !
220   STATUS @Scroll;RETURN ("VALUE":Scrollval)
230   DISP Scrollval
240   RETURN
250   !
260 Finis: !
270   CLEAR SCREEN
280   ASSIGN @Scroll TO *                                ! Delete SCROLLBAR widget
290   END