2. Классы и компоненты Delphi,

предназначенные для создания изображений.

Создать заставку для приложения.

Решение

Заставки имеют многие программы, работающие в операционных системах семейства Windows. Заставка представляет собой графическое изображение, появляющееся на несколько секунд после запуска программы. В ней может содержаться название про­граммного продукта и информация о разработчиках. Графическое изображение, т.е. файл с расширением .bmp, создадим с помощью графического редактора. Перед запуском Delphi создадим папку D:\MyProject\GRAFICA.

1. Откроем любое из ранее созданных приложений или создадим новое. Графический редактор запустим с помощью команды главного меню Tools|Image Editor.

Работа в графическом редакторе Delphi мало чем отличается от работы в извес­тном графическом редакторе Paint. При создании графического файла вы можете поступить одним из двух способов - либо создать новый файл, либо внести изме­нения в существующий. Выберем первый способ. Выполним команду главного меню File|New|Bitmap File(.bmp). В появившем­ся диалоге Bitmap Properties в поле Width (ширина) установим — 300, а в поле Height (высота) - 200. В группе переключателей Colors выберем переключатель VGA (16 colors) или любой другой, в зависимости от того, сколько цветов вы хотите включить в свой рисунок.

Нажмем ОК.

4. Создадим произвольное изображение. Для того чтобы выбрать цвет символов, следует подвести курсор мыши к окну с требуемым цветом в палитре цветов и нажать левую клавишу. При нажатой правой клавише мыши выбранный цвет будет использоваться в качестве цвета фона. В простейшем случае можно поступить, например, так: набрать черными буквами на белом фоне текст:

Разработчик — Студентиков С.С.

Пример создания

ЗАСТАВКИ

Выберем черный цвет для символов, белый для фона в палитре цветов. Выполним команды EditSSelect All и EditSCut для очистки рисунка. Далее вставим приведен­ный выше текст. Для этого воспользуемся кнопкой T (Text) инструментальной панели. Прежде чем размещать текст, следует задать характеристики шрифта с помощью коман­ды Text|Font.

5. Выполним команду File | Save и сохраним графический файл в папке D:\MyProject\GRAFICA под именем ris.bmp.

Выйдем из графического редактора по команде File | Exit.

Со страницы System поместим на форму Form1 компонент Timer. Он получит имя Timer1. Свойство Interval установим равным 3000.

Со страницы Additional поместим на форму компонент Image (имя - Image1).

Выберем свойство Picture и нажмем кнопку с тремя точками. Появится окно Picture Editor. Нажмем кнопку Load. Войдем в папку D:\MyProject\GRAFICA и вы­берем файл ris.bmp. В Picture Editor нажмем ОК. Для того чтобы рисунок был виден полностью, установим свойство Autosize в True. После этого расположим рисунок так, чтобы он находился в центре формы.

Активизируем компонент Timer1 двойным щелчком и создадим следующий обра­ботчик события OnTimer:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Image1.Free;

Timer1.Free

end;

Это означает, что через 3000 миллисекунд после запуска приложения компонен­ты Image1 и Timer1 будут удалены из памяти компьютера и соответственно - с экрана.

Сохраним проект под именем Project1 (можно под любым другим) и модуль под именем Unit1 в папке D:\MyProject\GRAFICA. Запустим проект на выполнение. На рисунке изображен внешний вид приложения в момент его запуска.

Разработчик – Студентиков С.С.

Пример создания

ЗАСТАВКИ

Полный код сформированного модуля. Текст модуля Unit1.pas

unit Unit1;