1 TCHUI.TControl 0 Aantal lijnen dat de scrollbar beslaat %Integer Totaal aantal stappen in de scrollbar %Integer 100 Positie tov van Max range 1 tot Max %Integer 0 Indien ingevuld dan wordt voor het bepalen of het einde bereikt is, rekeninggehouden met het aantal lijnen de numeroflines wordt van het maximum afgetrokken wordt ook gebruikt om te bepalen of er een scrollbar moet getekend worden. %Integer 0 %String $$$fsLijn 1 FontSelected 0 Quit ; Geen maximum ingegeven If ..Current<1 Quit ; Geen current aangeduid (geen scrollbar mogelijk) If ..Max<..NumberOfLines Quit ; Alles kan binnen de lijst getoond worden (geen scrollbar nodig) Do ..Canvas.TechnicalOn() If ..Current=1 Do ; Eerste . Do ..Canvas.MoveTo(..Top,..Left) . Do ..Canvas.TextOut($C(69)) Else If ..Current<(..Max-..NumberOfLines) Do ; Tussen in . Set Pos=..Length*..Current/(..Max-..NumberOfLines)\1 . Set:Pos'<(..Length) Pos=..Length-1 . Set:Pos<1 Pos=1 . Do ..Canvas.MoveTo(..Top+Pos-1,..Left) . Do ..Canvas.TextOut($C(68)) . Do ..Canvas.MoveTo(..Top+Pos,..Left) . Do ..Canvas.TextOut($C(69)) Else Do ; Laatste . Do ..Canvas.MoveTo(..Top+..Length-1,..Left) . Do ..Canvas.TextOut($C(68)) Do ..Canvas.GraphicsOff() ]]>