Шупрута В.В. - Delphi 2005 - Учимся программировать (1080891), страница 53
Текст из файла (страница 53)
Основное внимание будет уделено отличиям новойпрограммы от той, что была разработана в главе 6. Начнем разрабатывать новыйвариант программы с применения уже знакомых нам битовых образов.Использование битовых образовВ Win32 в отличие от .NET битовый образ создается в два этапа. Сначаланеобходимо применить метод C r e a t e . После этого следует применить методLoadFromFile, которому в качестве параметра необходимо передать имяфайла, хранящего изображение.
Следующий фрагмент исходного кода демонстрирует создание битового образа:var _image:TBitmap;begin_image:=TBitmap.Create;_image.LoadFromFile('source.bmp');>end;Для битового образа возможно задание прозрачного цвета. Для этогосначала необходимо установить значение свойства T r a n s p a r e n t в True, aзатем указать цвет, который будет являться прозрачным. Соответственно, всеточки, имеющие данный цвет, отображаться не будут. Вышесказанное поясняетприведенный ниже код:_image.Transparent:=True;_image.TransparentColor:=_image.Canvas.Pixels[1,1];Таким образом, битовый образ сформирован. Далее картинку, хранимую впамяти компьютера, можно вывести на поверхность формы методом Draw.В качестве параметров нужно указать битовый образ, который собираемсяотображать, и координаты точки поверхности, с которой будет осуществлятьсявывод.
Например, следующий оператор позволяет вывести битовый образ влевом верхнем углу формы:ГЛАВА 8 • Изучаем основы работы с графикой в Win32Forml.Canvas.Draw(0 , 0,_image) ;Следующая программа (листинг 8.8) демонстрирует создание и отображениебитовых образов.Листинг 8.8 т Работа с битовыми образамиunit Unitl;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics,Controls, Forms, Dialogs;typeTForml = class(TForm)procedure FormPaint(Sender: TObject);procedure FormCreate(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForml: TForml;sky,parashut:TBitmap;implementation{$R *.dfm}procedure TForml.FormCreate(Sender: TObject);begin// Загружаем фон.sky:=TBitmap.Create;sky.LoadFromFile('sky.bmp');// Изменяем размер окна под размер фоновой картинки.Width:=sky.Width;Height:=sky.Height;// Загружаем изображение парашютиста.parashut:=TBitmap.Create;parashut.LoadFromFile('parashut.bmp');end ;procedure TForml.FormPaint(Sender: TObject);beginГрафические возможности для создания мультипликации// Отображаем фон (небо).Forml.Canvas.Draw(0,0,sky);// Левый парашютист.Forml.Canvas.Draw(100,80,parashut);// Правый парашютист.// Устанавливаем 'прозрачный' цвет// (цвет левой нижней точки).parashut.Transparent:=True;parashut.TransparentColor:=parashut.Canvas.Pixels[1,1];Forml.Canvas.Draw(300,80,parashut);end;end.В результате окно нашей программы будет выглядеть так, как показано нарис.
8.13.Рис. 8.13 • Использование битовых образов и установки прозрачного цветаМультипликация с помощью битовых образовПосле того как мы научились отображать битовые образы в Win32, самое времяперейти к мультипликации. Для этого нам потребуется последовательноотображать битовые образы в разных местах экрана, тем самым создаваяиллюзию движения.Немного изменим текст программы по аналогии с известным нам подходом,рассмотренным в главе 6. Приведенный ниже в листинге 8.9 исходный коддемонстрирует данный прием мультипликации.ГЛАВА 8 • Изучаем основы работы с графикой в Win 3 2Листинг 8.9 • Мультипликация с помощью битовых образовunit Unitl;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics/Controls, Forms, Dialogs, ExtCtrls;typeTForml = claes(TForm)Timerl: TTimer;procedure TimerITimer(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure FormActivate(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForml: TForml.;sky,parashut:TBitmap;rect,drect:TRect;// Структуры для хранения прямоугольных// областей.d:TBitmap;// Буфер.х,у:integer;// Текущие координаты парашютиста (левого•// верхнего угла)._width,_height:integer;// Длина и высота копируемого фрагмента.implementation{$R *.dfm}procedure TForml.FormActivate(Sender: TObject);begin// Создаем и отображаем фон (небо).sky: =TBitmap.
Create,sky.LoadFromFile('sky.bmp');Forml.ClientWidth:=sky.Width;Forml. ClientHeight: =sky. Height ;Forml.Canvas.Draw(0,0,sky);// Создаем парашютиста.parashut:=TBitmap.Create;Графические возможности для создания мультипликацииparashut.Create.LoadFromFile('parashut.bmp');-parashut.Transparent:=True;parashut.TransparentColor:=parashut.Canvas.Pixels[1,1] ;// Настраиваем буфер.d:=TBitMap.Create;_width:=parashut.Width;_height:=parashut.Height;// Настраиваем буфер, где будет храниться картинка.d.Width:=_width;d.Height:=_height;d.Palette:=sky.Palette;d.Canvas.CopyMode:=cmSrcCopy;rect:=Boands(0,0,_width,_height);// Начальное положение парашютиста.x:=200;y:=20;// Сохранением область фона, на которую накладывается картинка.drect:=Bounds(x,y,_width,_height);d.Canvas.CopyRect(rect,sky.Canvas,drect);end;procedure TForml.FormClose(Sender: TObject;var Action: TCloseAction);beginsky.Free;parashut.Free;d.Free;iend;%procedure TForml.TimerITimer(Sender: TObj ect);begin// Восстанавливаем фон из буфера (удаляем рисунок).Forml.Canvas.Draw(х,у,d);у:=у+1;if y=150 then Timerl.Enabled:=False;// Определим сохраняемую часть фона.drect:=Bounds(x,y,_width,_height);// Сохраним ее в буфер.d.Canvas.CopyRect(rect,sky.Canvas,drect);// Выведем рисунок в указанной области.Forml.Canvas.Draw(х,у,parashut);end ;end.ГЛАВА 8 • Изучаем основы работы с графикой в Win32Рис.
8.14т Движение битового образаПрограмма работает следующим образом. Сначала объект выводится насозданную нами графическую поверхность d, через некоторое времястирается и выводится снова, но уже на некотором расстоянии dy отпервоначального положения. Таким образом, парашютист «движется»вертикально (рис. 8.14).ЗаключениеПодведем некоторые итоги.
Мы закончили изучение основ работы в средеBorland Delphi 2005. Вы узнали, что представляет собой среда разработкиBorland Delphi 2005 в целом, как создаются программы, а также немного познакомились с языком программирования Delphi.По-моему, на этом пока можно остановиться. Согласен, мы рассмотрели далеко не все, но книга задумывалась как средство, которое позволит начинающему пользователю познакомиться с этим мощным программным продуктом, ане дать ответы на все вопросы о среде разработки Borland Delphi 2005. Конечно, если взяться за подробное изложение всех возможностей этого продукта,то будет невозможно ограничиться таким объемом книги, да и тогда эта книгапотеряет изначально заложенный в нее смысл.Я очень надеюсь, что оправдал ваши ожидания, и книга действительно стала вашим хорошим помощником и верным спутником на пути освоения средыпрограммирования Borland Delphi 2005 и языка Delphi.Если вы прочитали ее полностью, а главное - попробовали поэкспериментировать с приведенными примерами, а также сделать что-нибудь своими руками, то примите мои поздравления - вы проделали очень большую работу.
Прежде всего - для себя. Теперь вы уже не начинающий программист, и если хотитеосваивать программирование дальше, то вам вполне по силам читать уже совершенно другие книги.ПриложениеПримеры программВсе рассмотренные в книге примеры программ доступны для бесплатной загрузки с сайта издательства www.ntpress.ru/download/delphi.rar. Каждый загружаемый проект после распаковки представляет собой отдельный каталог, в котором находятся все необходимые файлы - исходные коды проекта,исполняемый файл и вспомогательные файлы (там, где это необходимо).Ниже в табл. П1.1 приведен полный перечень проектов, а также их краткоеописание.Таблица П1.1 т Перечень примеров программ, рассматриваемых в книгеПроектГлава книги КомментарийExample_01Example_02Example_03Example_04Example_05Example_06Example_07Example_08Example_09Example_105Example_115Example_125Программа вычисления корней квадратного уравнения, написаннаядля платформы .NETПрограмма вычисления корней квадратного уравнения, написаннаядля платформы Win32Пример программы, демонстрирующей основные свойства компонентаLabelПример программы, демонстрирующей основные особенностикомпонента TextBox.
В программе реализована фильтрация вводимыхсимволов в поле компонентаПример программы, демонстрирующей основные особенностикомпонента PanelПример программы, демонстрирующей основные особенностикомпонента checkBox. Программа позволяет вычислить стоимость заказаПример программы, демонстрирующей основные особенностикомпонента RadioButton. Программа позволяет задавать опциитуристической поездкиПример программы, демонстрирующей основные особенностикомпонента PictureBox. Программа позволяет просматривать файлыизображений из каталогаПример программы, демонстрирующей основные особенностикомпонента PictureBox. Программа позволяет задавать основныережимы отображения картинки в поле компонентаПример программы, демонстрирующей основные особенностикомпонента StatusBarПример программы, демонстрирующей основные особенностикомпонента StatusBar. Программа представляет собой простейшийсекундомерПример программы, демонстрирующей основные особенности компонентаComboBox.
Программа представляет собой вариант тестового опросаПриложение^=t£fТаблица П1.1 т Перечень примеров программ, рассматриваемых в книге (продолжение)ПроектГлава книги КомментарийExample_135Пример программы, демонстрирующей основные особенностикомпонента ToolBar. Программа представляет собой простейшийтекстовый редакторExample_145Пример программы, демонстрирующей основные особенностикомпонента ProgressBar. Программа выполняет копирование файловЕхатр1е_155Пример программы, демонстрирующей основные особенностикомпонента MainMenu. Программа представляет собой простейшийтекстовый редактор с главным менюЕхатр1е_165Пример программы, демонстрирующей основные особенностикомпонента ContextMenuЕхатр1е_175Пример программы, демонстрирующей основные особенностикомпонента OpenFllaDialogЕхатр1е_185Пример программы, демонстрирующей основные особенностиЕхатр1е_196Пример программы, демонстрирующей основные возможностиграфики.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
