Применение полос прокрутки

Цель работы — создать программу, выполняющую следующие действия.

• 1. После запуска программы в окне изображается две полосы прокрутки. Вертикальная полоса будет управлять движением по вертикали, горизонтальная — по горизонтали.
• 2. Наводя указатель мыши на одну из двух фигур, можно выбирать, какая из этих фигур связана с полосами прокрутки.

Рис. 78. Окно разработанной программы

3. Требуются дополнительные объекты, с помощью которых ограничивается область движения фигур в окне.

• 4. Если полоса прокрутки активна, она должна реагировать на клавиши-стрелки, PAGE UP, PAGE DOWN.
• 5. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

В данном проекте рассматривается инструмент Brush (Кисть) свойства Canvas объекта Image, который определяет цвет и стиль заливки области.

По умолчанию заливка является сплошной, однако можно задать и другой стиль заливки Brush. Style:

• • bsSolid — сплошная заливка;
• • bsClear — нет заливки;
• • bsHorizontal — горизонтальная штриховка;
• • bsVertical — вертикальная штриховка;
• • bsFDialogonal — диагональная штриховка;
• • bsBDialogonal — диагональная штриховка;
• • bsCross — клетки;
• • bsDialogCross — диагональные клетки.

Описание плана разработки программы

• 1. Откройте новый проект.
• 2. Разместите на форме экземпляры компонентов: панель Panel, полоса прокрутки ScrollBar, фигура Shape.
• 3. Введите дополнительную переменную логического типа тип. Если она принимает значение True (Да), то текущей считается первая фигура. Значению False (Нет) соответствует вторая фигура. Эта переменная должна быть доступна во всех процедурах.
• 4. Выполните действия, перечисленные в табл. 40.
• 5. Сохраните проект, запустите и протестируйте его.

Таблица 40

Листинг подпрограммы

procedure TForml. ScrollBarlChange (Sender: TObject); begin.

if num then.

Shapel.Left := ScrollBarl. Position else.

Shape2.Left := ScrollBarl.Position.

end;

procedure TForml. ScrollBar2Change (Sender: TObject); begin.

if num then.

Shapel.Top := ScrollBar2. Position else.

Shape2.Top := ScrollBar2.Position.

end;

procedure TForml. ShapelMouseMove (Sender: TObject;

Shift: TShiftState; X, Y: Integer); begin.

Shapel.Brush.Color := clAgua;

Shapel.Brush.Color := clFuchsia; num := True;

ScrollBarl.Position := Shapel. Left; ScrollBar2. Position := Shapel. Top; end;

procedure TForml. Shape2MouseMove (Sender: TObject;

Shift: TShiftState; X, Y: Integer); begin.

Shape2.Brush.Color := clFuchsia;

Shape2.Brush.Color := clAgua; num := False;

ScrollBarl.Position := Shape2. Left; ScrollBar2. Position := Shape2. Top; end;

procedure TForml. FormCreate (Sender: TObject); begin

num := True; end;