Практическая работа № 27
«Олимпийский флаг» Цель работы - создать программу, которая на поверхности формы рисует олимпийский флаг.
Листинг программы: unit Unit1;
Interface
Uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
Type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); private { Private declarations } public { Public declarations } end;
Var Form1: TForm1;
Implementation
{$R *.dfm}
procedure TForm1.FormPaint(Sender: TObject); Begin with Canvas do Begin // полотнище Canvas.Pen.Width:= 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;
end.
|
