Computer Science Canada
Scrollbar GUI
Author:
Angel
[ Sun Jan 04, 2004 9:09 pm ]
Post subject:
Scrollbar GUI
I can't insert this GUI code into my program, but it works on its own... does anyone know how to make a scrollbar?!
code:
import GUI
View.Set ("graphics:300;60,nobuttonbar")
var scrollBar : int
procedure ScrollBarMoved (value : int)
Text.Locate (2, 3)
put "Horizontal Scroll Bar: ", value : 4
end ScrollBarMoved
scrollBar := GUI.CreateHorizontalScrollBar (10, 10, 250,
50, 150, 50, ScrollBarMoved)
loop
exit when GUI.ProcessEvent
end loop