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

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

антиплагиат в подарок

Отчет.docx

Программа

Содержание:


Задание 1

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

5

Задание 2.

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

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

[image][image]

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

[image]

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

unit Unit1;

interface

uses

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

Dialogs, Menus, StdCtrls, Grids, ExtCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N8: TMenuItem;

StringGrid1: TStringGrid;

PopupMenu1: TPopupMenu;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

procedure FormPaint(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure Drawing;

begin

with Form1.Canvas do

begin

Arc(100,100,180,180,160,106,100,160);

Arc(140,100,220,180,220,160,160,106);

MoveTo(215,156);

LineTo(160,220);

LineTo(104,156);

MoveTo(80,70);

LineTo(160,150);

Brush.Color:= $000000;

FillRect(rect(75,65,85,75));

MoveTo(196,176);

LineTo(230,210);

MoveTo(225,200);