Шифр 44. Нарисовать на форме предложенное изображение, используя различные стили

  • ID: 28618 
  • 12 страниц
200 рубСкачать

гарантия низкой цены

Отчет.docx

Программа

Содержание:


Задание 1_03

Постановка задачи

Нарисовать на форме предложенное изображение, используя различные стили и цвета для кисти и пера. Для рисования использовать свойства и методы формы.

Распечатка модуля

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

{тело}

canvas.Pen.Color:= $000000;

canvas.Brush.Color:= $ffffff;

canvas.Ellipse(50,50,250,250);

{глаза}

canvas.Pen.Color:= $000000;

canvas.Brush.Color:= $0000ff;

canvas.Ellipse(100,100,130,130);

canvas.Ellipse(200,100,170,130);

canvas.Arc(100,180,200,220,100,205,200,205);

end;

end.

Скриншоты созданного приложения

[image]

Задание 2_03

Постановка задачи

Добавить на форму визуальные компоненты и запрограммировать их поведение. Для опций меню обязательно установить быстрые клавиши и иконки.

3. Создать главное меню следующего вида

[image] [image]

Распечатка модуля

unit Unit1;

interface

uses