Пример. Написать программу, которая на поверхности формы рисует флаг Российской Федерации (рис
Написать программу, которая на поверхности формы рисует флаг Российской Федерации (рис. 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 – Олимпийский флаг
|
