Задание для самостоятельного решения. Procedure TForm. FormPaint (Sender: TObject). Procedure TForm. FormPaint (Sender: TObject)

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

Лабораторная работа №31.

Тема: «Разработка программ создания и использования графических примитивов, иллюстраций».

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

 

ЗАДАНИЕ

Напишите программу, которая на поверхности формы рисует олимпийский флаг, (рис. 26).

 

 

Рис. 26

Решение:

{Олимпийский флаг}

procedure TForm. FormPaint (Sender: TObject);

begin

with Canvas do

begin

{полотнище}

Canvas. Pen. With: =1;

Canvas. Pen. Color: =clBlack;

Canvas. Brush. Color: =clCream;

Rectangle (30, 30, 150, 115);

{кольца}

Pen. Width: =2;

Brush. Style: =bsClear; {область внутри круга не закрашивать}

Pen. Color: =clBlue;

Ellipse (40, 40, 80, 80);

Pen. Color: =clBlack;

Ellipse (70, 40, 110, 80);

Pen. Color: =clRed;

Ellipse (100, 40, 140, 80);

Pen. Color: =clYellow;

Ellipse (55, 65, 95, 105);

Pen. Color: =clGreen;

Ellipse (85, 65, 125, 105);

end

end.

Задание для самостоятельного решения.

Усовершенствуйте программу (задания выше) таким образом, чтобы все кольца были закрашены в цвета соседних колец, а контур остался без изменения.

 

Лабораторная работа №32.

Тема: «Разработка программ создания и использования мультимедийных возможностей».

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