Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Пример. Написать программу, которая на поверхности формы рисует флаг Российской Федерации (рис




Написать программу, которая на поверхности формы рисует флаг Российской Федерации (рис. 1).

 

Рисунок 1 – Изображение флага Российской Федерации

 

Программный код.

// обработка события OnPaint

// процедура рисует флаг Российской Федерации

Procedure TForm1.FormPaint(Sender: TObject);

Const

L=200; //ширина флага(полосы)

H=40; // высота полосы

Var

X,y:integer; // левый верхний угол

Begin

X:=30;

Y:=50;

With Canvas do

Begin

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

Brush.Color :=clWhite; // цвет закраски

Pen.Color: =clWhite; // цвет границы

Rectangle(x,y,x+L,y+H);

Brush.Color:=clBlue;

Pen.Color:=clBlue;

Rectangle(x,y+H,x+L,y+3*H);

Brush.Color:=clRed;

Pen.Color: = clRed;

Rectangle(x,y+2*H,x+L,y+3*H);

// контур

Pen.Color: =clBlack;

Brush.Style:=bsClear; // прозрачная кисть

Rectangle(x,y,x+l,y+h*3);

Font.Size:=24;

Font.Name:=’Times New Roman’;

Font.Color:=clWhite;

TextOut(50,200,’Россия’);

Font.Color:=clBlack;

TextOut(51,201,’Россия’);

End;

End;

End.

 

Варианты заданий

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

 

Рисунок 2 – Олимпийский флаг

 







Дата добавления: 2014-11-10; просмотров: 469. Нарушение авторских прав


Рекомендуемые страницы:


Studopedia.info - Студопедия - 2014-2020 год . (0.001 сек.) русская версия | украинская версия