Программирование пункта Закрыть главного меню Файл

При визуальном или программном изменении позиции ползунка возникает событие OnScroll. Можно использовать событие OnChange, но в нем отсутствует параметр ScrollCode и ScrollPos, позицией ползунка управляет свойство position.

Работа с диапазоном значений

Тема: Управление числовыми процессами: ScrollBar, TrackBar, ProgressBar, UpDown

Лекция №20

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

Оба компонента представляют собой вертикальную или горизонтальную полосу с ползунком. Ползунок можно передвигать с помощью мыши или клавиш управления курсором, а также клавиш <PageUp>, <PageDown>.

Компонент ScrollBar (Standard) - полоса прокрутки информации

Свойства:

1. min/max – диапазон изменения возможных значений
2. position – текущая позиция ползунка
3. kind – расположение полосы по вертикали или горизонтали
4. smallChange/ LargeChange – шаги перемещения ползунка при управлении с клавиатуры клавишами управления курсором/ клавишами <PageUp>, <PageDown>
5. ScrollPos – (программно) определяет позицию ползунка в событии OnScroll.
6. ScrollCode – (программно) код состояния полосы прокрутки в событии OnScroll:
1. scLineUp – нажата клавиша # (!) или щелчок мышью на верхней (левой) стрелке полосы прокрутки OnScroll
2. scLineDown - нажата клавиша $ (") или щелчок мышью на нижней (правой) стрелке полосы прокрутки
3. scPageUp – нажата клавиши <PageUp> или щелчок мышью сверху (слева) от ползунка
4. scPageDown
5. scTrack – ползунок перемещен мышью
6. scEndScroll – перетаскивание ползунка закончено

Задача: Полоса прокрутки ScrollBar1 управляет горизонтальным положением надписи Label1 на форме. Метка Label2 над полосой прокрутки отражает состояние операции перемещения.

1. Установить свойства:

Form1.Width:=420;

ScrollBar1.Min:=0;

ScrollBar1.Max:=400;

ScrollBar1.Position:= 200; //ползунок в середину окна

ScrollBar1.SmallChange:=1;

ScrollBar1.LargeChange:= 40;

Label1.Left:=ScrollBar1.Position; // Надпись в середину окна

Label2.Caption:=’Начальное положение’;

1. Программирование ползунка ScrollBar1 событие OnScroll

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;

var ScrollPos: Integer);

begin

Label1.Left:=ScrollPos; //перемещение надписи

case ScrollCode of

scLineUp: Label2.Caption:='Ползунок перемещается влево';

scLineDown: Label2.Caption:='Ползунок перемещается вправо';

scPageUp: Label2.Caption:='Перемещение быстро влево';

scPageDown: Label2.Caption:='Перемещение быстро вправо';

scTrack: Label2.Caption:='Перемещение вручную';

end;

end;

Компонент TrackBar (Win32) – шкала для изменения значения в заданном диапазоне с делениями (например регулятор громкости звука, выбор разрешения монитора)

Свойства:

1. min/max – диапазон изменения возможных значений
2. position – текущая позиция ползунка
3. orientation - расположение шкалы по вертикали или горизонтали
4. LineSize/PageSize - шаги перемещения ползунка при управлении с клавиатуры клавишами управления курсором/ клавишами <PageUp>, <PageDown>
5. Frequency – частота делений
6. TickStyle – стиль делений:
1. tsAuto – автоматическая расстановка
2. tsManual – на концах шкалы
3. tsNone – деления отсутствуют
7. TickMarks – позиции делений:
1. tmBottomRight – внизу (справа) шкалы
2. tmTopLeft – сверху (слева) шкалы
3. tmBoth – по обе стороны шкалы

Задача: Изменение цвета объекта Shape. Цвет образуется смешением трех – красного, зеленого и синего. Интенсивность каждого цвета может изменяться в диапазоне 0-255.

procedure TForm1.TrackBar1Change(Sender: TObject);

begin

r:=TrackBar1.position;

Shape1.Brush.Color:=RGB(r, g, b);

end;

procedure TForm1.TrackBar2Change(Sender: TObject);

begin

g:=TrackBar2.position;

Shape1.Brush.Color:=RGB(r, g, b);

end;

procedure TForm1.TrackBar3Change(Sender: TObject);

begin

b:=TrackBar3.position;

Shape1.Brush.Color:=RGB(r, g, b);

end;

Компонент ProgressBar (Win32) – полоса, показывающая ход выполнения продолжительной операции. По мере выполнения операции эта полоса заполняется слева направо синими прямоугольниками. Например, форматирование дискеты, копирование файлов.

Свойства:

1. Min/Max – диапазон индикатора. По умолчанию 0 и 100%.
2. Position – текущий объем выполненной операции.
3. Step – шаг - величина, на которую возрастает свойство Position при каждом наращивании индикатора. По умолчанию 10.

Компонент UpDown (Win32) – счетчик. Имеет две кнопки со стрелками, используемыми для увеличения и уменьшения значения на заданную величину.

Счетчик UpDown не имеет поля, в котором отображается изменяемое число, поэтому он связывается с однострочным редактором Edit.

Свойства:

1. Associate – связывание счетчика с другим компонентом (Edit)
2. AlignButton – выравнивание счетчика в поле связанного компонента (слева/справа)
3. Orientation – вид счетчика (стрелки направлены горизонтально или вертикально)
4. Min/Max – числовой диапазон значений
5. Increment – шаг изменения значения
6. ArrowKeys – возможность использования клавиатуры (#$)
7. Position – текущая позиция счета. Позиция счета определяется и с помощью свойства Edit1.Text (если значение счетчика используется как строка).

ReadOnly – запрет изменения значения в поле Edit при выполнении программы

При изменении значения счетчика генерируется событие OnChanging или OnClick

Задача. Изменение размера метки с помощью счетчика

procedure TForm1.UpDown1Changing(Sender: TObject;

var AllowChange: Boolean);

begin

Label1.Font.Size:=UpDown1.Position;

end;

Задача 6.3.

Задача

procedure TForm1.N6Click(Sender: TObject);

begin

close;

end;

Дата добавления: 2014-01-04