Horizontal scrollbars

Angel · **Posted:** Sat Jan 03, 2004 5:17 pm

Can someone please explain this code to me?

code:

% The "GUI.CreateHorizontalScrollBar Example" program.

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

Thanks.

Tony · **Posted:** Sat Jan 03, 2004 6:18 pm

basically there's this GUI scrollbar. Each time you move it, it triggers "ScrollBarMoved" function (well prosedure rether) which displays the value of the scrollbar.

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members