
Мультипликация.pptx
- Количество слайдов: 9
Delphi Мультимедийные возможности
Движущаяся окружность Основную работу выполняет процедура Ris, которая стирает окружность и выводит ее на новом месте. Стирание окружности выполняется путем перерисовки ее поверх нарисованной, но цветом фона.
Var Form 1 : TForm; x, y : byte ; // координаты центра окруж. dx : byte; // приращения координаты x Переменные x, y, dx объявлены вне процедуры Ris, т. е. они являются глобальными. Поэтому надо выполнить их инициализацию. В программе инициализацию глобальных параметров реализует процедура Form. Activate.
Procedure Ris; begin // Стереть окружность Form 1. Canvas. Pen. Color: =form 1. Color; Form 1. Canvas. Ellipse(x, y, x+10, y+10); x: =x+dx; // нарисовать окружность на новом месте Form 1. Canvas. Pen. Color: = cl. Black; Form 1. Canvas. Ellipse (x, y, x+10, y+10); end;
Для обеспечения периодического вызова процедуры Ris в форму программы добавлен невизуальный компонент Timer, значок которого находится на вкладке System палитры компонентов.
Свойства компонента Timer Свойство Определяет Name Имя компонента. Используется доступа к компоненту для Interval Период генерации события Задается в миллисекундах Enabel Разрешение работы. Разрешает (значение True) или запрещает (значение False) генерацию события On. Timer.
// сигнал от таймера Procedure TForm 1. Timer 1 Timer (Sender : TObject); begin Ris; end; // обращение к процедуре
Procedure TForm 1. Form. Activate (Sender : TObject); begin x: =0; y: =10; dx: =5; //сигнал таймера On. Timer каждые - 50 млсек timer. Interval: =50; Form 1. Canvas. brush, color : = form. color; end.
Мультипликация.pptx