TScrollBar

// Главная форма
frm=new TForm();
frm.Caption="JS+ - визуальный компонент TScrollBar";
frm.Width =525;
frm.Height=375;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Нажмите кнопку "Старт"';

// Кнопка
btn=new TButton(frm);
btn.Caption="Старт";
btn.Left=frm.ClientWidth-btn.Width-15;
btn.Top =stb.Top-btn.Height-15;
btn.OnClick=btn_Click;

// Панель закладок
pgc=new TPageControl(frm);
pgc.SetBounds(10,10,frm.ClientWidth-20,btn.Top-20);

for (i=0;i<2;i++) {
  // Закладка
  tsh=new TTabSheet(pgc);

  // Полоса прокрутки на закладке
  scb=tsh.cmpTag=new TScrollBar(tsh);
  scb.DoubleBuffered=false;
  scb.LargeChange=5;

  switch (i) {
    case 0: tsh.Caption="Горизонтальный";
            scb.Kind=sbHorizontal;
            scb.Width=tsh.ClientWidth-30;
            scb.Left=(tsh.ClientWidth -scb.Width )/2;
            scb.Top =(tsh.ClientHeight-scb.Height)/2;
            break;

    case 1: tsh.Caption="Вертикальный";
            scb.Kind=sbVertical;
            scb.Height=tsh.ClientHeight-30;
            scb.Left=(tsh.ClientWidth -scb.Width )/2;
            scb.Top =(tsh.ClientHeight-scb.Height)/2;
  }
}

// Таймер
tmr=new TTimer(frm);
tmr.Interval=150;
tmr.OnTimer=tmr_Timer;

frm.ShowModal();

// Обработчик события OnClick
function btn_Click(btn)
{
  var stb_Str=' Нажмите кнопку "';

  switch (btn.numTag=1-btn.numTag) {
    case 0: btn.Caption="Старт";
            tmr.Enabled=false;
            break;

    case 1: btn.Caption="Стоп";
            tmr.Enabled=true;
  }

  stb.SimpleText=stb_Str+btn.Caption+'"';
}

// Обработчик события OnTimer
function tmr_Timer(tmr)
{
  var scb=pgc.Pages[pgc.ActivePageIndex].cmpTag;

  if (scb.Position>=scb.Max) {
    scb.Position=scb.Min;
    return;
  }
  scb.Position+=scb.LargeChange;
}