Компонент TScrollBar

Компонент 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 выбираем из выпадающего списка созданное событие и запускаем проект, результат изображен на изображении ниже

ScrollBar

Подписаться
Уведомить о
guest

0 комментариев
Межтекстовые Отзывы
Посмотреть все комментарии