Как убрать часть графического примитива:, Примерные задания для пятого урока, Вопросы для самоконтроля, Объект Timer - Объектно-ориентированное, визуальное программирование в Delphi на уроках

    - рисуем графический примитив, например, эллипс у рыбки; - накладываем сверху на эллипс другой графический объект так, чтобы он закрывал часть эллипса; - убираем у него контур (psClear для Type в Pen) и выставляем цвет закраски в Brush как цвет фона, на котором нарисован плавник.
Примерные задания для пятого урока

Нарисовать картину, содержащую минимум: пять прямоугольников (квадратов); пять эллипсов (кругов); три отрезка; фон формы не стандартный.

    1. Новый год 2. Лето 3. Морская или речная тема 4. Космос 5. Природа 6. Твоя комната
Вопросы для самоконтроля
    1. Какие графические фигуры можно выбрать в Shape? 2. За что отвечают параметры Pen и Brush? 3. Как убрать контур? 4. Как нарисовать горизонтальную линию? 5. Как нарисовать вертикальную линию? 6. В каких границах находится Shape? 7. Что такое передний и задний планы объекта?

Шестой урок - использование Timer для "движения" объектов на форме

Объект Timer

Познакомимся с новым компонентом Timer, который поможет нам выполнить движение объектов на форме. Timer находится на вкладке System и выглядит как часы (смотри рис. № 1).

№ 1

Рис. № 1

Данный компонент является невидимым при выполнении программы, поэтому его можно разместить на форме в любом месте.

Рассмотрим параметры таймера и единственную процедуру (рис. № 2):

№ 2

Рис. № 2

Enabled - логическая величина, следовательно имеет два значения: True и False. Если значение равно True, то через каждые миллисекунды интервала таймера (interval) Выполняется процедура данного таймера. При значении False Вызов Процедуры таймера Не происходит.

Interval - задается в миллисекундах. Использование параметра описано выше.

В закладке инспектора объекта Events - процедуры-события, находится всего одна процедура, которая вызывается, если параметр Enabled равен true.

Для движения объекта на форме воспользуемся возможностями таймера, применив, например, следующий алгоритм:

    - начальное значение параметра активности таймера равно false (чтобы графический объект при запуске формы не "поехал"); - интервал пусть будет 100 миллисекунд; - в процедуре-событии опишем движение объекта, используя параметры top и left для движения по вертикали или горизонтали; - запуск работы таймера по событию click на кнопке начало.

Как заставить графический объект "двигаться"?

Как это осуществить? Рассмотрим следующий пример: выполнить движение некоторого графического объекта слева направо.

Пусть картинка как на рисунке № 3 - пять объектов Shape: четыре круга и один прямоугольник. Кроме этого на форме есть кнопка "старт", и таймер.

Рис. № 3

    1. Зададим начальные значения параметрам компонента Timer1 (смотри алгоритм); 2. В процедуре click для кнопки запишем команду:

Timer1.Enabled := true;

Включим таймер при нажатии на кнопку;

    3. Определяем Shape, у которого самая "правая" часть картинки. В нашем примере это будет Shape3; 4. Записываем команды в процедуре таймера для движения картинки.

Похожие статьи




Как убрать часть графического примитива:, Примерные задания для пятого урока, Вопросы для самоконтроля, Объект Timer - Объектно-ориентированное, визуальное программирование в Delphi на уроках

Предыдущая | Следующая