903437
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 5 480 руб.;
- курсы повышения квалификации от 1 400 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ 60%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до 28 февраля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

Инфоурок / Информатика / Презентации / Презентация "Графика в Delphi"

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


Напоминаем, что в соответствии с профстандартом педагога (утверждён Приказом Минтруда России), если у Вас нет соответствующего преподаваемому предмету образования, то Вам необходимо пройти профессиональную переподготовку по профилю педагогической деятельности. Сделать это Вы можете дистанционно на сайте проекта "Инфоурок" и получить диплом с присвоением квалификации уже через 2 месяца!

Только сейчас действует СКИДКА 50% для всех педагогов на все 184 курса профессиональной переподготовки! Доступна рассрочка с первым взносом всего 10%, при этом цена курса не увеличивается из-за использования рассрочки!

ВЫБРАТЬ КУРС И ПОДАТЬ ЗАЯВКУ
Выберите документ из архива для просмотра:
fon.bmp 724.16 КБ
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 53.38 КБ
Графика в DELPHI.pptx 1.03 МБ

Выбранный для просмотра документ Графика в 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

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

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. Битовые образы." представляет собой методическую разработку практического занятия по применению элементов анимации в учебных программах. Среди материалов имеется набор готовых кадров для примера анимации.

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

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

 

Общая информация

Номер материала: 385134



Очень низкие цены на курсы переподготовки от Московского учебного центра для педагогов

Специально для учителей, воспитателей и других работников системы образования действуют 60% скидки (только до конца зимы) при обучении на курсах профессиональной переподготовки (124 курса на выбор).

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Подайте заявку на интересующий Вас курс сейчас: KURSY.ORG

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

Вам будут интересны эти курсы:

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Методика преподавания информатики в начальных классах»
Курс повышения квалификации «Современные информационные технологии и их использование в работе преподавателей. Системы автоматизированного проектирования одежды и организация технологического процесса»
Курс повышения квалификации «Основы создания интерактивного урока: от презентации до видеоурока»
Курс повышения квалификации «Внедрение системы компьютерной математики в процесс обучения математике в старших классах в рамках реализации ФГОС»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс профессиональной переподготовки «Информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Облачные технологии в образовании»
Курс «Фирменный стиль» (Corel Draw, Photoshop)
Курс повышения квалификации «Сетевые и дистанционные (электронные) формы обучения в условиях реализации ФГОС по ТОП-50»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Математика и информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»
Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.