Знакомство с растровым образом, загрузка его из файла, вывод на форму,

Задание 1

движение образа на форме случайным образом

Нарисуйте два графических образа и сохраните их в папке проекта.

Откройте форму и положите две кнопки Start и Close, а также таймер.

Образ будет храниться в переменной класса TBitmap.

Var bit1,bit2:TBitmap;

В обработчике на создание формы напишите следующий код:

bit1:=Tbitmap.Create; {Выделяет область памяти и запоминает адрес в переменной bit1}

Bit1.loadfromfile('Полный маршрут для рисунка');

bit1.Transparent:=true; {Запрещает накладывать собственный фон изображения на фон компонента («делает рисунок прозрачным»)}

Для того чтобы скопировать рисунок на форму, используется метод Draw. Для него надо указать координаты места на форме. Пусть это будет центр формы.

cw:=clientwidth;

ch:=clientheight;

x1:=cw div 2;

y1:=ch div 2;

Form1.Canvas.Draw(x1,y1,bit1); {Копирует на экран образ с замещением изображения фона}

Timer1.Enabled:=true;

В обработчике кнопки Start напишите код, запускающий таймер: а также сгенерируйте шаг перемещения образа dx и dy.

В обработчике кнопки Close освободите память:

Bit1.free;

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

Задание 2

Рисование на поле растрового рисунка в случайных местах.

Изучите в задачнике задачу со стр. 30, п. 2.2.1. Измените проект так, чтобы по нажатию левой кнопки мыши, на поле рисовалась одна картинка, а по нажатию правой – другая (если в этом поле еще ничего нет).

Д/з № 3. Доделать, что не успели в классе. Читать из учебника стр. 118 - 132.

В графическом редакторе Paint нарисовать два образа размером примерно 30 на 30 пикселей для последующих задач.