Создание файла ресурсов

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

Файл ресурсов можно создать при помощи утилиты Image Editor (Редактор изображений), которая запускается выбором команды Image Editor меню Tools.

Для того чтобы создать новый файл ресурсов, надо из меню File выбрать команду New, а затем в появившемся подменю — команду Resource File (Файл ресурсов)

В результате открывается окно нового файла ресурсов, а в строке меню окна Image Editor появляется новый пункт — Resource (рис. 10.20).

Рис. 10.19. Диалоговое окно Image Editor

Рис. 10.20. Создание нового файла ресурсов а окне Image Editor

Для того чтобы в этот файл добавить новый ресурс, необходимо выбрать команду New меню Resource и из открывшегося списка — тип ресурса. В данном случае следует выбрать Bitmap (битовый образ). После выбора Bitmap открывается диалоговое окно Bitmap Properties (Свойства битового образа) (рис. 10.21), используя которое можно установить размер (в пикселах) и количество цветов создаваемой картинки.

Нажатие кнопки ОК в диалоговом окне Bitmap Properties вызывает появление элемента Bitmap1 в иерархическом списке Contents. Этот элемент соответствует новому ресурсу, добавленному в файл (рис. 10.22).

Bitmap1 — это автоматически созданное имя ресурса, которое может быть изменено выбором команды Rename меню Resource и вводом нужного имени. После изменения имени Bitmap1 можно приступить к созданию битового образа. Для этого необходимо выбрать команду Edit меню Resource, в результате чего открывается окно графического редактора.

Графический редактор Image Editor предоставляет программисту стандартный для подобных редакторов набор инструментов, используя которые можно нарисовать нужную картинку. Если во время работы надо изменить масштаб отображения картинки, то для увеличения масштаба следует выбрать команду Zoom In меню View, а для уменьшения — команду Zoom Out. Увидеть картинку в реальном масштабе можно, выбрав команду Actual Size меню View.

Рис. 10.21. Диалоговое окно Bitmap Properties

Рис. 10.22. Окно файла ресурсов после добавления ресурса Bitmap

В качестве примера на рис. 10.23 приведен вид диалогового окна Image Editor, в котором находится файл ресурсов для программы aplane. Файл содержит два битовых образа с именами FACTORY и APLANE.

Рис. 10.23. Диалоговое окно Image Editor с файлом ресурсов 

Если нужная картинка уже существует в виде отдельного файла, то ее можно через буфер обмена (clipboard) поместить в битовый образ файла ресурсов. Делается это следующим образом. 

1. Сначала надо запустить графический редактор, например Microsoft Paint, загрузить в него файл картинки и выделить всю картинку или ее часть. В процессе выделения следует обратить внимание на информацию о размере (в пикселах) выделенной области (Paint выводит размер выделяемой области в строке состояния). Затем, выбрав команду Копировать меню Правка, следует поместить копию выделенного фрагмента в буфер.
2. Далее нужно переключиться в Image Editor, выбрать ресурс, в который надо поместить находящуюся в буфере картинку, и установить значения характеристик ресурса в соответствии с характеристиками картинки, находящейся в буфере. Значения характеристик ресурса вводятся в поля диалогового окна Bitmap Properties, которое открывается выбором команды Image Properties меню Bitmap. После установки характеристик ресурса можно вставить картинку в ресурс, выбрав команду Past меню Edit.
3. После добавления всех нужных ресурсов файл ресурса следует сохранить в том каталоге, где находится программа, для которой этот файл создается. Сохраняется файл ресурса обычным образом, т. е. выбором команды Save меню File. Image Editor присваивает файлу ресурсов расширение res. 

В общем виде эта директива выглядит следующим образом: 

{$R ФайлРесурсов}

где ФайлРесурсов — имя файла ресурсов.

Например, директива может выглядеть так: 

{$R images.res}

Загрузить картинку из ресурса в переменную типа TBitMap можно при помощи метода LoadfromResourceName, который имеет два параметра:

идентификатор программы и имя ресурса.

В качестве идентификатора программы используется глобальная переменная Hinstance. Имя ресурса должно быть представлено в виде строковой константы. 

Например, инструкция загрузки картинки в переменную pic может выглядеть так:

Pic.LoadFromResourceName(HInstance,'FACTORY');

 В качестве примера в листинге 10.11 приведен текст программы, в которой изображение фона и самолета загружается из ресурсов.

Листинг 10.11. Пример загрузки картинок из ресурса 

 Показать / Скрыть текст

01.unit aplanel_;

02.{$R images.res) // включить файл ресурсов

03.interface

04.uses

05.Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

06.Dialogs, ExtCtrls, StdCtrls, Buttons;

07.type

08.TForm1= class(TForm)

09.Timer1: TTimer;

10.Image1: Tlmage;

11.procedure FormActivate(Sender: TObject);

12.procedure TimerlTimsr(Sender: TObject);

13.procedure FormClose(Sender: TObject; var Action: TCloseAction);

14.private

15.{ Private declarations }

16.public

17.{ Public declarations }

18.and;

19.var

20.Forml: TForml;

21.Back, bitmap, Buf : TBitMap; // фон, картинка, буфер

22.BackRct, BufRct: TRect; // область фона, картинки, буфера

23.х,у:integer; // координаты левого верхнего угла картинки

24.W,H: integer; // размеры картинки

25.implementation

26.{$R *.DfM}

27.procedure TForml.FormActivate(Sender: TObject);

28.begin

29.Back := TBitmap.Create; // фон

30.bitmap := TBitmap.Create; // картинка

31.Buf := TBitmap.Create; // буфер

32.// загрузить из ресурса фон

33.Back. LoadFromResourceName (HInstance, 'FACTORY') ,-

34.Forml.Imagel.canvas.Draw(0,0,Back);

35.// загрузить из ресурса картинку, которая будет двигаться

36.bitmap.LoadFromResourceName(HInstance,'APLANE1);

37.bitmap.Transparent := True;

38.bitmap.TransParentColor := bitmap.canvas.pixels[1,1];

39.// создать буфер для сохранения копии области фона, на которую

40.// накладывается картинка

41.V:- bitmap-Width;

42.Н:= bitmap.Height;

43.Buf.Width:= W;

44.Buf.Height:=H;

45.Buf.Palette:=Back.Palette; // Чтобы обеспечить соответствие палитр ! !

46.Buf. Canvas. CofpjyMocle: =cmSrcCopy ;

47.BufRct:=Bounds(0,0,W,H);

48.x:=-W;

49.y:=20;

51.// определим сохраняемую область фона

52.BackRct:=Bounds(x,y,W,H>;

53.// и сохраним ее

54.Buf.Canvas.CopyRect(BufRet,Back.Canvas,BackRct);

55.end;

56.procedure TForml.TimerlTimer(Sender: TObject:);

57.begin

58.// восстановлением фона (из буфера) удалим рисунок

59.Forml. image1. canvas. Draw (x, у, Buf) ;

60.x:=x+2;

61.if x>form1.Imagel.Width then x:=-W;

62.// определим сохраняемую область фона

63.BackRct:=Bounds(x,y,W,H);

64.// сохраним ее копию

65.Buf.Canvas.CopyRect(BufRct,Back.Canvas,BackRct);

66.// выведем рисунок

67.Forml.imagel.canvas.Draw[x,y,bitmap);

68.end;

69.procedure TForml.FormClose(Sender: TObject; var Action: TCloseAction);

70.begin

71.Back.Free;

72.bitmap.Free;

73.Buf.Free; end;

74.end.

 

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

Просмотр "мультика"

Теперь рассмотрим, как можно реализовать вывод в диалоговом окне про-

граммы простого "мультика", подобного тому, который можно видеть в диа-

логовом окне Установка связи при подключении к Internet (рис. 10.24).

Теперь рассмотрим, как можно реализовать вывод в диалоговом окне программы простого "мультика", подобного тому, который можно видеть в диалоговом окне 

Установка связи при подключении к Internet (рис. 10.24).

Рис, 1О.24. Пример мультика в диалоговом окне Установка связи

Эффект бегущего между телефоном и компьютером красного квадратика достигается за счет того, что в диалоговое окно выводятся сменяющие друг друга картинки (рис. 10.25).

Рис. 10.25. Картинки, используемые для реализации мультика в диалоговом окне Установка связи

Кадры мультика обычно находятся в одном файле или в одном ресурсе. Перед началом работы программы они загружаются в буфер, в качестве которого удобно использовать объект типа TBitMap. Задача процедуры, реализующей вывод мультика, состоит в том, чтобы выделить очередной кадр и вывести его в нужное место формы.

Вывести кадр на поверхность формы можно применением метода copyRect к свойству canvas этой формы. Метод CopyRect копирует прямоугольную область одной графической поверхности на другую.

 

Инструкция применения метода CopyRect в общем виде выглядит так:

Canvas1.CopyRect (Область 1, Canvas2, Область2)

 

где:

• Canvas1 — графическая поверхность, на которую выполняется копирование;
• Canvas2 — графическая поверхность, с которой выполняется копирование;
•  параметр областъ2 — задает положение и размер копируемой прямоугольной области, а параметр область! — положение копии на поверхности Canvas1

В качестве параметров области! и Область? используются структуры типа TRect, поля которых определяют положение и размер области.

Заполнить поля структуры TRect можно при помощи функции Bounds, инструкция обращения к которой в общем виде выглядит так:

Bounds(х,у,Width,Height)

где:

• х и у — координаты левого верхнего угла области;
• Width и Height — ширина и высота области.

Следующая программа, текст которой приведен в листинге 10.12, выводит в диалоговое окно простой мультик — дельфийскую колонну, вокруг которой "летает" некоторый объект. На рис. 10.26 приведены кадры этого мультика (содержимое файла film.bmp).

Диалоговое окно программы приведено на рис. 10.27, оно содержит один единственный компонент — таймер.

Рис. 10.26. Кадры мультика

Рис. 1О.27. Форма программы

Листинг 10.12. Мультик (использование метода CopRect) 

 Показать / Скрыть текст

01.unit multik_;

02.interface

03.uses

04.Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

05.ExtCtrls, StdCtrls;

06.type

07.TForml = class(TForm)

08.Timerl: TTimer;

09.procedure FormActivatefSender: TObject);

10.procedure TimerlTimer(Sencier; TObject);

11.private

12.! Private declarations }

13.public

14.{ Public declarations )

15.end;

16.var

17.Forml: TForm1;

18.implementation

19.{$R *.DFM}

20.const

21.FILMFILE = 'film2.bmp'; // фильм - bmp-файп

22.N KADR=12; // кадров в фильме (для данного файла)

23.var

24.Film: TBitMap; // фильм — все кадры

25.WKadr.HKadr: integer; // ширина и высота кадра

26.CKadr: integer; // номер текущего кадра

27.RectKadr: TRect; // положение и размер кадре в фильме

28.Rectl : Trect; // координаты и размер области отображения фильма

29.procedure TForml.FonnActivate(Sender: TObject);

30.begin

31.Film := TBitMap.Create;

32.Film.LoadFromFile(FILMFILE);

33.WKadr := Round(Film.Width/N Kadr);

34.HKadr :=Film.Height; 3

35.Rectl := Bounds(10,10,WKadr,HKadc);

36.Ckadr:=0;

37.Forml.Timerl.Interval := 150; // период обновления кедров — 0.15 с

38.Forml.Timerl.Enabled:=True; // запустить таймер

39.end;

40.// отрисовка кадра

41.procedure DrawKadr;

42.begin

43.// определим положение текущего кадра в фильме

44.RectKadr:=Bounds(WKadr*CKadr,0,WKadr,HKadr);

45.// вывод кадра из фильма

46.Forml.Canvas.CopyRect(Rectl,Film*.Canvas,RectKadr);

47.// подготовимся к выводу следующего кадра

48.CKadr :=CKadr+1;

49.if CKadr = NJCftDR

50.then CKadr:=0;

51.end;

52.// обработка сигнала от таймера

53.procedure TForm1.Timer1TirertSender: TObject);

54.begin

55.Drawkadr;

56.end;

57.end.

 

Программа состоит из трех процедур. Процедура TForm1.FormActivate создает объект Film и загружает в него фильм — BMP-файл, в котором находятся кадры фильма. Затем, используя информацию о размере загруженного битового образа, процедура устанавливает значения характеристик кадра: высоту и ширину.

 

После этого создается объект Kadr (типа TBitMap), предназначенный для хранения текущего кадра. Следует обратить внимание, что после создания объекта Kadr принудительно устанавливаются значения свойств width и Height. Если этого не сделать, то созданный объект будет существовать, однако память для хранения битового образа не будет выделена. В конце своей работы процедура TForm1.FormActivate устанавливает номер текущего кадра и запускает таймер.

 

Основную работу в программе выполняет процедура DrawKadr, которая выделяет из фильма очередной кадр и выводит его в форму. Выделение кадра и его отрисовку путем копирования фрагмента картинки с одной поверхности на другую выполняет метод CopyRect (рис. 10.28), которому в качестве параметров передаются координаты области, куда нужно копировать, поверхность и положение области, откуда нужно копировать. Положение фрагмента в фильме, т. е. координата х левого верхнего угла, определяется умножением ширины кадра на номер текущего кадра. Запускает процедуру DrawKadr процедура TFormi. TimeriTimer, обрабатывающая событие OnTimer.

Рис. 10.28. Инструкция Canvasl .CopyRect (Rect1, Canvas2,Rect2) копирует в область Rectl поверхности Canvasl область Rect2 с поверхности Canvas2