Лабораторная работа 4. Компоненты TTimer, TImage и TShape

Пример программы. 

procedure TForm1.Button2Click(Sender: TObject);

begin

    Shape3.Brush.Color := clSkyBlue; // дневное небо

    Shape1.Visible := False;         // спрятать солнце на восходе

    Shape4.Visible := True;          // показать дневное солнце

end;

2. При щелчке по кнопке Button1 открыть изображение

из файла pic1.jpg в компоненте Image1,

а при щелчке по кнопке Button2 - из файла pic2.jpg.

Указание к выполнению: сохраните приведенные ниже рисунки

в папке с приложением в файлах с именами, указанными

в условии задачи.

Пример программы. 

Создайте процедуры для кнопок Button1

и Button2, вставьте в них следующие строки.

    Image1.Picture.LoadFromFile('pic1.jpg');

3. На форме расположить две фигуры Shape1 и Shape2 разной

формы. Задать их цвета с помощью ColorBox1 и ColorBox2

соответственно.

Пример интерфейса

Пример программы.

 Создайте процедуры для кнопок Button1

и Button2, вставьте в них следующие строки.

    Shape1.Brush.Color := ColorBox1.Selected;

 4.* В упражнении 1, Части суток, создать дополнительно

две кнопки: Ветер, Штиль.

Ветер: облако плывет по небу.

Штиль: облако останавливается.

Указание к выполнению: использовать компонент TTimer.

5.** При щелчке по кнопке Button1 фигура Shape1 перемещается

горизонтально, а при щелчке по кнопке Button2 - вертикально.

Расстояние d, проходимое фигурой, задается в поле Edit1.

Если d положительное, то перемещение выполняется вниз

или вправо, а если d отрицательное, то - вверх или влево.

Указание к выполнению: использовать компонент TTimer.

-----------------------------------------------------------------

Дополнительные задания

6.*  При щелчке по кнопке Button1 переместить фигуру Shape1

в точку с координатами x и y. В поле Edit1 задать

значение x, а в поле Edit2 - значение y.

7.** Фигура Shape1 начинает обращаться по часовой стрелке

при щелчке по кнопке Button1,а при щелчке по кнопке Button2 — против часовой стрелки

Указание к выполнению: использовать компонент TTimer.

8.*  При щелчке по кнопке Button1 фигура Shape1 начинает

"мигать", а при щелчке по кнопке Button2 "мигание"

прекращается. 

Указание к выполнению: использовать компонент TTimer.