Компонент TScrollBar в Lazarus является элемент управления, который позволяет пользователю прокручивать содержание связанного управления путем перемещения ползунка. Перемещать ползунок можно как мышкой, так и с клавиатуры. С помощью ползунка TScrollBar мы можем изменять целое число, не выходящее за пределы диапазона чисел Min и Max определеное в свойстве компонента. Для изменения ориентации ползунка используется свойство Kind принимающее значения sbHorizontal и sbVertical
Для примера использования TScrollBar можно взять цветовую модель RGB для этого разместим на форме 3 TScrollBar каждый из которых будет отвечать за свой цвет из RGB т.е красный, зеленый и голубой и 3 элемента edit для отображения в них значений наших ползунков. Пропишите в свойстве min в каждом ползунке 0, а в свойстве max 255. Затем находим в ScrollBar событием OnChange и двойным щелчком открываем редактор кода куда вставляем код
procedure TForm1.ScrollBar3Change(Sender: TObject); begin Form1.color:=RGBToColor(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position); edit1.text:=ScrollBar1.Position.ToString; edit2.text:=ScrollBar2.Position.ToString; edit3.text:=ScrollBar3.Position.ToString; end;
для двух других элементов TScrollBar в событие OnChange выбираем из выпадающего списка созданное событие и запускаем проект, результат изображен на изображении ниже
