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

Листинг программы: unit Unitl;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;

TForml = class(TForm)

procedure FormPaint(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;
var
Forml: TForml;

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);
Практическая работа № 27 Олимпийский флаг

Рис. 54.

// кольца

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.

Практическая работа № 26 Графика || Оглавление || Практическая работа № 28 "Узоры"


Практикум по Delphi для решения прикладных задач



Новости за месяц

  • Июнь
    2021
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс