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

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

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

Отчет.docx

Программа

Содержание:


Задание

Вариант 32.

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

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

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

[image][image]

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

[image]

Листинг программы

unit Task1;

interface

uses

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

Dialogs, Menus, ImgList;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

PopupMenu1: TPopupMenu;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

ImageList1: TImageList;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses About;

{$R *.dfm}

procedure Picture(Color: TColor);

begin

with Form1.Canvas do

begin

Pen.Color := Color;

Pen.Style := psSolid;

Pen.Width := 2;

MoveTo(10,50);

LineTo(60,10);

LineTo(90,45);

LineTo(81,52);

LineTo(120,80);

LineTo(109,88);

LineTo(155,140);

LineTo(72,105);

LineTo(88,96);

LineTo(42,75);

LineTo(56,68);

LineTo(10,50);

end;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Picture(clBlack);

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Picture(Form1.Color);

end;