Шупрута В.В. - Delphi 2005 - Учимся программировать (1080891), страница 42
Текст из файла (страница 42)
При таком подходе кадры создаются путем вывода изображений(битовых образов) в определенное место экрана, как правило, имеющее фоновый рисунок. Такой подход широко используется разработчиками компьютерных игр.Второй подход заключается в том, что отображаемые кадры подготавливаются заранее и в нужный момент последовательно отображаются. Этотподход используют в основном создатели мультфильмов. В среде разработкиBorland Delphi 2005 воспроизведение классической анимации, выполненной ввиде gif-файла, можно осуществить с помощью компонента PictureBox.Использование битовых образовДля формирования изображений используют битовые образы. Битовыйобраз - это картинка, которая хранится в памяти компьютера.
Битовыйобраз создается путем загрузки из файла графического формата (bmp.jpgи т.д.), ресурса или же путем копирования из другого графическогообъекта.Создать битовый образ можно с помощью метода C r e a t e . В качествепараметра этому методу необходимо передать, например, имя файла, вкотором хранится изображение. Следующий фрагмент исходного кодадемонстрирует создание битового образа:var „image:Bitmap;begin„image:=Bitmap.Create('source.bmp1);end;Таким образом, битовый образ сформирован. Что же дальше? Дальше всепросто - картинка хранится в памяти компьютера и ее можно вывести наповерхность формы методом Drawlmage. В качестве параметров нужно указатьбитовый образ, который мы собираемся отображать, и координаты точки•ГЛАВА б т Изучаем основы работы с графикой в .NETповерхности, с которой будет осуществляться вывод. Следующий операторпозволяет вывести битовый образ в левом верхнем углу формы:е.Graphics.Drawlmage(_image,0,0);Вместо координат точек возможно использование структуры типа Point.Кроме того, для битового образа также можно задать прозрачныйцвет.
Точкикартинки, цвет которых совпадает с прозрачным, отображаться не будут.Например, оператор_image.MakeTransparent(Color.White);указывает, что для битового образа _image прозрачным является белый цвет.В качестве параметра метода MakeTransparent можно указать цвет какойлибо точки битового образа:_image.MakeTransparent(_image.GetPixel(1,1) ) ;Данная инструкция задает прозрачным цвет точки с координатами (1,1). Винструкции вызова метода M a k e T r a n s p a r e n t цвет можно и не указывать.Тогда прозрачным будет цвет точки, находящейся в левом нижнем углубитового образа.Следующая программа (листинг 6.11) демонстрирует создание и отображение битовых образов.Листинг 6.11т Работа с битовыми образами// Обработка события Load.procedure TWinForm.TWinForm_Load(sender: System.Object;e: System.EventArgs);begin// Загружаем фон.sky:=Bitmap.Create('sky.bmp');// Изменяем размер окна под размер фоновой картинки.Self.Width:=sky.Width;Self.Height:=sky.Height;// Загружаем изображение парашютиста.parashut:=Bitmap.Create('parashut.bmp1)jend;// Обработка события Paint.procedure TWinForm.TWinFormJPaint(sender: System.Object;e: System.Windows.Forms.PaintEventArgs);varp:Point; // Координаты вывода битового образа.Знакомимся с основными приемами мультипликацииbegin// Отображаем фон (небо).е.Graphics.Drawlmage(sky,0,0);// Отображаем левого парашютиста.р.Х :=100; p.Y := 50;е.Graphi с s.Drawlmage(parashut,р);// Отображаем правого парашютиста.р.Х :=200; р.У:=80;// Устанавливаем 'прозрачный' цвет// (цвет левой нижней точки).parashut.MakeTransparent;е.Graphics.Drawlmage(parashut,p);end;В результате окно нашей программы будет выглядеть так, как показано нарис.
6.10.Рис. 6.10т Использование битовых образов и установки прозрачного цветаПосле того как мы научились отображать битовые образы, самое времяперейти к мультипликации. Для этого нам потребуется последовательноотображать битовые образы в разных местах экрана, тем самым создаваяиллюзию движения.Для того чтобы у наблюдателя складывалось впечатление о движении объекта, необходимо периодически перерисовывать изображение объекта со смещением относительно предыдущего положения.
Следовательно, необходимо периодически фиксировать событие, процедура обработки которого и осуществляла быГЛАВА 6 т Изучаем основы работы с графикой в .NETперерисовку. Такое событие можно получить, например, использованием компонента Timer.Приведенный в листинге 6.12 исходный код демонстрирует данный приеммультипликации.Лиртинг 6.12 • Мультипликация с помощью битовых образовu n i t WinForm;interfaceusesSystem.Drawing, System.Collections, System.ComponentModel,System.Windows.Forms, System.Data, System.Resources;typeTWinForm = class(System.Windows.Forms.Form){$REGION 'Designer Managed Code'}strict privatecomponents: System.ComponentModel.IContainer;Timerl: System .-Windows.
Forms. Timer;procedure InitializeComponent;procedure TWinForm_Load(sender: System.Object;e: System.EventArgs);procedure TimerlJTick(sender: System.Object;e: System.EventArgs);{$ENDREGION}strict protectedprocedure Dispose(Disposing: Boolean); override;publicconstructor Create;end ;implementationusesSystem.Globalization;const dy=l;// Шаг смещения парашютиста.varsky,parashut:System.Drawing.Bitmap; // Битовые образы.rect:rectangle; // Копируемая прямоугольная область.d:graphics;// Графическая поверхность для рисования.{$REGION 'Windows Form Designer generated code'}procedure TWinForm.Dispose(Disposing: Boolean);beginif Disposing thenЗнакомимся с основными приемами мультипликацииbeginif Components <> nil thenComponents.Dispose(};end;inherited Dispose(Disposing);end;constructor TWinForm.Create;begininherited Create;InitializeComponent;end;// Процедура обработки события таймера.procedure TWinForm.Timerl_Tick(sender: System.Object;e: System.EventArgs)';begin// Стираем парашютиста с исходной позиции.d.DrawImage(sky,rect,rect,GraphicsUnit.Pixel);// Прибавляем к координате значение шага.rect.Y:=rect.Y+dy;// Если вертикальная координата >160, то заканчиваем движение.if re'ct.Y>160 thenbeginTimerl.Enabled:=False;end;// Рисуем парашютиста на ноиом месте.d.DrawImage(Parashut,rect.X,rect.
Y) ;У/ Обновляем содержимое формы// (точнее - прямоугольного участка формы rect).Self.Invalidate(Rect);end;// Обработка события Load.procedure TWinForm.TWinForm_Load(sender: System.Object;e: System.EventArgs);begin// Загружаем фон в объект sky.sky:=Bitmap.Create('sky.bmp');// Изменяем размер окна под размер фоновой картинки.Self.Width:=sky.Width;Self.Height:=sky.Height ;// Загружеаем фоновый рисунок из файла.Self.BackgroundImage:=Image.FromFile('sky.bmp1);// Загружаем изображение парашютиста.parashut:=Bitmap.Create('parashut.bmp');ГЛАВА 6 • Изучаем основы работы с графикой в .NETparashut.MakeTransparent;// Вводим координаты положения парашютистаrect.X:=100;rect.Y:=10;// и размеры копируемого фрагмента.rect.Width:=Parashut.Width;rect.Height:=Parashut.Height;d:=Graphics.Fromlmage(self.Backgroundlmage);// Запускаем таймер.Timerl.Interval:=60;Timerl.Enabled:=True;end;end.Программа работает следующим образом.
Сначала объект выводится насозданную нами графическую поверхность d, через некоторое время стираетсяи выводится снова, но уже на некотором расстоянии dy от первоначальногоположения. Таким образом, парашютист «движется» вертикально (рис. 6.11).Необходимо отметить, что перерисовку формы можно производитьразными способами. Можно применить к форме метод R e f r e s h - это наиболеепростой способ. Но данный метод перерисовывает все окно, а в этом нетнеобходимости - перерисовывать требуется только часть окна, занимаемуюпарашютистом, - прямоугольную область r e c t . Поэтому в программе применяется другой метод - I n v a l i d a t e . Этот метод также выполняет перерисовку, но ему в качестве параметра перерисовки указывается область,которую надо перерисовать ( r e c t ) .Рис.
6.11 т Движение битового образаЗнакомимся с основными приемами мультипликацииИспользование GIF-анимацииИспользование этого приема построено на особенности графическогоформата GIF. Этот формат позволяет хранить в одном файле несколькоизображений, поэтому его часто используют для хранения кадров анимации.Отображается файл данного формата точно так же, как и все остальныефайлы изображений, - с помощью компонента P i c t u r e B o x . Если нетнеобходимости управлять процессом смены и отображения кадров, то загрузкифайла в данный компонент достаточно. При этом управлять процессом сменыи отображения кадров будут параметры анимации, заданные во время созданияGIF-файла.Если есть необходимость управлять процессом отображения анимации, тонужно использовать объект ImageAnimator.
Использонание этого объектапоясним на примере (листинг 6.13).Листинг 6 . 1 3 т Использование GIF-анимацииu n i t WinForm,interfaceusesSystem.Drawing, System.Collections, System.ComponentModel,System.Windows.Forms, System.Data, System.Resources;typeTWinForm = class(System.Windows.Forms.Form){$REGION 'Designer Managed Code 1 }strict privateComponents: System.ComponentModel.Container;PictureBoxl: System.Windows.Forms.PictureBox;Buttonl: System.Windows.Forms.Button;Labell: System.Windows.Forms.Label;procedure InitializeComponent;{$ENDREGION}procedure OnFrameChanged(sender: System.Object;e: System. Event Args),procedure Buttonl_Click(sender: System.Object;e: System.EventArgs);procedure PictureBoxl_Paintl(sender: System.Object;e: System.Windows.Forms.PaintEventArgs);strict protectedprocedure Dispose(Disposing: Boolean); override;publicГЛАВА 6 • Изучаем основы работы с графикой в .NETconstructor Create;end;imp1ementat ionusesSystem.Globalization;var// Объект ImageAnimator.img_animator:ImageAnimator;gif_img:System.Drawing.Bitmap; // Битовый образ gif-файла.ev_handler:EventHandler ;// Указатель на процедуру// обработки события// объекта ImageAnimator.// Координаты верхней левойp: Point;// точки, с которой// будет происходить вывод// анимации.{$REGION 'Windows Form Designer generated code'}procedure TWinForm.Dispose(Disposing: Boolean);beginif Disposing thenbeginif Components <> nil thenComponents.Dispose();end;inherited Dispose(Disposing);end;procedure TWinForm.OnFrameChanged(sender: System.Object;e: System.EventArgs);begin// Инициируем рисование кадра.PictureBoxl.Invalidate;end;constructor TWinForm.Create;begininherited Create;InitializeComponent;// Создаем битовый образ gif-файла.gif_img:=System.Drawing.bitmap.Create('abc.gif');// Инициируем указатель на процедуру обработки события, // OnFrameChanged, генерируемого объектом ImageAnimator.ev_handler:=OnFrameChanged;р:= Point.Create(1,1);Знакомимся с основными приемами мультипликацииWend;procedure TWinForm.PictureBoxl_Paintl(sender: System.Object;e: System.Windows.Forms.PaintEventArgs);begin// Отображаем текущий кадр анимации.е.Graphics.Drawlmage(gif_img,p);// Подготавливаем очередной кадр анимации.img_animator.UpdateFrames;end;// Нажимаем на кнопку 'Анимация'/'Стоп'.procedure TWinForm.Buttonl_Click(sender: System.Object;e: System.EventArgs);beginif Buttonl.Text = 'Стоп' thenbegin// Останавливаем воспроизведение.img_animator.StopAnimate(gif_img,ev_handler);Buttonl.Text := 'Анимация';endelsebegin// Начинаем воспроизведение.img_animat.or .Animate (gif_img, GV_handler) ;Buttonl.Text ':= 'Стоп';end;end ;end.Данная программа, форма диалогового окна которой приведено на рисунке6.12, воспроизводит анимацию с помощью компонента P i c t u r e B o x .
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
