Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Презентации / Презентация "Графика в Delphi"
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 24 мая.

Подать заявку на курс
  • Информатика

Презентация "Графика в Delphi"

Выберите документ из архива для просмотра:

724.16 КБ fon.bmp
53.38 КБ kadr1.bmp
53.38 КБ kadr2.bmp
53.38 КБ kadr3.bmp
53.38 КБ kadr4.bmp
53.38 КБ kadr5.bmp
53.38 КБ kadr6.bmp
53.38 КБ kadr7.bmp
1.03 МБ Графика в DELPHI.pptx

Выбранный для просмотра документ Графика в DELPHI.pptx

библиотека
материалов
Графика в DELPHI Битовые образы Электростальский филиал ГБПОУ «Московский кол...
Основные определения Битовый образ(заранееподго-товленныенебольшие картинки)...
Использование битовых образов В программе битовый образ представляет собой об...
Задание: Сформировать на поверхности формы изображе-ние, состоящее из несколь...
Выполнение задания Создайте новый проект. Поместите на форму компонент Timer...
Объявление переменных Var pic,f: TBitMap; x,y,w,h,k: Integer; pic – битовый о...
Создание обработчиков событий procedure TForm1.FormCreate(Sender: TObject); b...
Создание обработчиков событий procedure TForm1. FormActivate(Sender: TObject)...
Создание обработчиков событий procedure TForm1.FormPaint(Sender: TObject); be...
Создание обработчиков событий // обработка сигнала таймера procedure TForm1.T...
Создание обработчиков событий //удаление отработанного кадра Метод CopyRect –...
Создание обработчиков событий procedure TForm1.Timer1Timer(Sender: TObject);...
Запуск программы Результаты: Фон выводится. Удалось реализовать перемещение к...
Исправление анимации k:=0 k=7 k:=k+1 k:=1 Да Нет k pic.LoadFromFile(‘kadr1.bm...
Благодарю за внимание! ProPowerPoint.Ru
15 1

Описание презентации по отдельным слайдам:

№ слайда 1 Графика в DELPHI Битовые образы Электростальский филиал ГБПОУ «Московский кол
Описание слайда:

Графика в DELPHI Битовые образы Электростальский филиал ГБПОУ «Московский колледж управления, гостиничного бизнеса и информационных технологий «Царицыно» Алферова Ж.О. преподаватель ProPowerPoint.Ru

№ слайда 2 Основные определения Битовый образ(заранееподго-товленныенебольшие картинки)
Описание слайда:

Основные определения Битовый образ(заранееподго-товленныенебольшие картинки) Представляютсобой Используются находящуюся в памяти компьютера картинку, которую можно быстро вывести на экран, на поверхность формы или в область для отображения иллюстраций для формирования сложных изображений - элементы изображения загружаются из файлов и выводятся в нужные точки экрана ProPowerPoint.Ru

№ слайда 3 Использование битовых образов В программе битовый образ представляет собой об
Описание слайда:

Использование битовых образов В программе битовый образ представляет собой объект типа TBitMap. Загрузить битовый образ из файла можно при помощи метода LoadFromFile, указав в качестве параметра имя bmp-файла, в котором хранится нужная картинка. Вывести битовый образ на поверхность формы или в область компонента IMAGE можно путём применения метода Draw к свойству Canvas. ProPowerPoint.Ru

№ слайда 4 Задание: Сформировать на поверхности формы изображе-ние, состоящее из несколь
Описание слайда:

Задание: Сформировать на поверхности формы изображе-ние, состоящее из нескольких элементов: Фоновое изображение (файл fon.bmp) Перемещающийся объект (файлы kadr1.bmp – kadr7.bmp) ProPowerPoint.Ru

№ слайда 5 Выполнение задания Создайте новый проект. Поместите на форму компонент Timer
Описание слайда:

Выполнение задания Создайте новый проект. Поместите на форму компонент Timer (палитра System). Сохраните проект в новой папке. Поместите в папку с проектом подготовлен-ные изображения. Объявите необходимые переменные в общем разделе. Создайте необходимые обработчики событий ProPowerPoint.Ru

№ слайда 6 Объявление переменных Var pic,f: TBitMap; x,y,w,h,k: Integer; pic – битовый о
Описание слайда:

Объявление переменных Var pic,f: TBitMap; x,y,w,h,k: Integer; pic – битовый образ, предназначенный для отображения текущего кадра анимации F – битовый образ, предназначенный для вывода фона x, y – текущее положение очередного кадра w, h – размеры текущего кадра k – счётчик кадров ProPowerPoint.Ru

№ слайда 7 Создание обработчиков событий procedure TForm1.FormCreate(Sender: TObject); b
Описание слайда:

Создание обработчиков событий procedure TForm1.FormCreate(Sender: TObject); begin // период возникновения события onTimer – 0,1 сек Timer1.Interval:=100; // запуск таймера Timer1.Enabled:=True; end; ProPowerPoint.Ru

№ слайда 8 Создание обработчиков событий procedure TForm1. FormActivate(Sender: TObject)
Описание слайда:

Создание обработчиков событий procedure TForm1. FormActivate(Sender: TObject); begin // создание двух битовых образов pic:=TBitMap.Create; // картинка f:=TBitMap.Create; // фон //загрузка изображений из файлов f.LoadFromFile(‘fon.bmp’); pic.LoadFromFile(‘kadr1.bmp’); pic.Transparent:=True; //установка «прозрачного» фона //установка начальных значений для определения координат w:=pic.Width; x:=Form1.Width; H:=pic.Height; y:=0; end; ProPowerPoint.Ru

№ слайда 9 Создание обработчиков событий procedure TForm1.FormPaint(Sender: TObject); be
Описание слайда:

Создание обработчиков событий procedure TForm1.FormPaint(Sender: TObject); begin // вывод фона Form1.Canvas.Draw(0,0,f); end; ProPowerPoint.Ru

№ слайда 10 Создание обработчиков событий // обработка сигнала таймера procedure TForm1.T
Описание слайда:

Создание обработчиков событий // обработка сигнала таймера procedure TForm1.Timer1Timer(Sender: TObject); begin end; Эффект перемещения объекта 1 Перерисовка части «испорченного» фона Удаление предыдущего кадра 2 Вывод нового кадра Смещение относительно положения предыдущего кадра ProPowerPoint.Ru

№ слайда 11 Создание обработчиков событий //удаление отработанного кадра Метод CopyRect –
Описание слайда:

Создание обработчиков событий //удаление отработанного кадра Метод CopyRect – копирует прямоугольную область одной графической поверхности на другую. Canvas1.CopyRect (Rect1, f.Canvas2, Rect2); Canvas1 – графическая поверхность на которую копируется Canvas2 – графическая поверхность с которой копируется Rect2 – область из которой выполняется копирование Rect1 – область в которую выполняется копирование Form1.Canvas.CopyRect (Rect(x,y,x+w,y+h), f.Canvas, Rect(x,y,x+w,y+h)); ProPowerPoint.Ru

№ слайда 12 Создание обработчиков событий procedure TForm1.Timer1Timer(Sender: TObject);
Описание слайда:

Создание обработчиков событий procedure TForm1.Timer1Timer(Sender: TObject); begin //удаление отработанного кадра Form1.Canvas.CopyRect(Rect(x,y,x+w,y+h),f.Canvas,Rect(x,y,x+w,y+h)); x:=x-8; //смещение кадра //обновление координат после выхода за границу фона If x<=-w Then x:=Form1.Width; Form1.Canvas.Draw(x,y,pic); // вывод кадра end; ProPowerPoint.Ru

№ слайда 13 Запуск программы Результаты: Фон выводится. Удалось реализовать перемещение к
Описание слайда:

Запуск программы Результаты: Фон выводится. Удалось реализовать перемещение кадра. Недостатки: Размеры фона и формы не совпадают. Не происходит смены кадров в анимации. По форме перемещается только первый кадр. //установка размеров формы в обработчике события onActivate для Form1 Form1.Width; :=pic.Width; Form1.Height:=pic.Height; ProPowerPoint.Ru

№ слайда 14 Исправление анимации k:=0 k=7 k:=k+1 k:=1 Да Нет k pic.LoadFromFile(‘kadr1.bm
Описание слайда:

Исправление анимации k:=0 k=7 k:=k+1 k:=1 Да Нет k pic.LoadFromFile(‘kadr1.bmp’) pic.LoadFromFile(‘kadr7.bmp’) ……. 1 7 Form1.Canvas.Draw(x,y,pic) ProPowerPoint.Ru

№ слайда 15 Благодарю за внимание! ProPowerPoint.Ru
Описание слайда:

Благодарю за внимание! ProPowerPoint.Ru

Краткое описание документа:

Презентация "Графика в Delphi. Битовые образы." представляет собой методическую разработку практического занятия по применению элементов анимации в учебных программах. Среди материалов имеется набор готовых кадров для примера анимации.

Битовые образы представляют собойнаходящуюся в памяти картинку, которую можно быстро вывести на экран, поверхность формы или в область для отображения иллюстраций. Они используются для формирования сложных изображений.

В практическом задании рассматривается создание изображения, состоящего из нескольких элементов: фонового изображения и перемещающегося объекта.

 

Автор
Дата добавления 13.02.2015
Раздел Информатика
Подраздел Презентации
Просмотров653
Номер материала 385134
Получить свидетельство о публикации

Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх