Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
«Олимпийский флаг»
Цель работы -создать программу, которая на поверхности формы рисует олимпийский флаг.
Листинг программы:
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.
Дата публикования: 2014-11-02; Прочитано: 307 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!