Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Delphi (новый) без баз данных.doc
Скачиваний:
4
Добавлен:
01.07.2025
Размер:
7.61 Mб
Скачать

13.2. Практическая работа

Создадим приложение «Редактор цвета». Каждый цвет математически описывается как соотношение базовых компонент. В цветовой модели RGB базовыми компонентами считаются следующие цвета: красный, зеленый, синий. Для получения остальных цветов будем смешивать оттенки базовых, которые измеряются от 0 до 255.

Н а форме расположим три компонента ScrollBar (Sb1, Sb2, Sb3), которые будет регулировать оттенок каждого базового компонента. В свойстве max каждого из компонентов укажите значение 255. Свойство Color метки Label5 будет отображать полученный цвет.

Создадим событие изменения значения величины для первого базового компонента (R - красного).

Опишите глобальные переменные a, b, с, которые будут содержать текущее значение числовой величины каждого из регуляторов.

procedure TForm1.Sb1Change(Sender: TObject);

begin

a:=sb1.position;

label5.color:= rgb(a,c,b);

edit1.text:=inttostr(a);

end;

Аналогично создаются события для двух других компонентов ScrollBar.

13.3.Объект TrackBar

Компонент TrackBar предназначен для визуального управления числовой величиной. Он во многом схож с элементом ScrollBar и отличается от него, в основном, оформлением.

Свойства компонента:

Свойство

Ззначение

Frequency

Определяет частоту нанесения меток: 1- каждое значение диапазона, 2 – каждое второе значение и т.д.

Orientation

Определяет ориентацию компонента:

SbHorizontal – горизонтальная

SbVertical –вертикальная

Max

Максимальное значение диапазона изменения

Min

Минимальное значение диапазона изменения

Position

Текущее положение ползунка

TickMarks

Определяет способ нанесения меток:

tmBottomRight – внизу или справа

tmTopLeft – вверху или слева

tmBottom – по обеим сторонам

13.4. Самостоятельная работа

Используя компонент TrackBar создать приложение, в котором можно изменять ширину и высоту произвольной картинки.

Для этого на форму помещаем два компонента TrackBar (Tb1,Tb2) и контейнер Image.

13.5. Самостоятельная работа

Приложение описанное в пункте 12.2, реализовать с помощью компонента TrackBar.

13.6. Компонент ProgressBar

Компонент предназначен для отображения хода выполнения длительного по времени процесса. В отличие от ScrollBar и TrackBar у него нет ползунка, т.е. с его помощью можно только отображать числовую величину.

Свойство

Значение

Max

Максимальное значение диапазона изменения

Min

Минимальное значение диапазона изменения

Position

Текущее положение ползунка

Step

Шаг наращивания свойства Position методом StepIt

Методы

Назначение

StepIt

Наращивает значение свойства Position на величину, определяемую свойством Step

StepBy (Delta:integer)

Наращивает значение свойства Position на величину Delta