home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / tot5.zip / DEMSC1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  640b  |  24 lines
  1. Program DemoScrollOne;
  2. {DEMSC1}
  3.  
  4. USES DOS,CRT, totFAST;
  5.  
  6. begin
  7.    Clrscr;
  8.    with Screen do
  9.    begin
  10.       WriteHScrollBar(1,80,1,31,1,1000);
  11.       WriteHScrollBar(1,80,3,31,950,1000);
  12.       WriteHScrollBar(1,39,5,31,500,1000);
  13.       WriteHScrollBar(41,80,5,31,25,100);
  14.       WriteVScrollBar(1,7,23,31,1,50);
  15.       WriteVScrollBar(3,7,23,31,50,50);
  16.       WriteVScrollBar(5,7,23,31,2,4);
  17.       ScrollTOT^.SetScrollChars(chr(30),chr(31),chr(17),chr(16),
  18.                                 chr(4),chr(219));
  19.       WriteHScrollBar(10,70,11,27,5,10);
  20.       WriteVScrollBar(50,13,23,27,8,10);
  21.       GotoXY(1,24);
  22.    end;
  23. end.
  24.