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

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

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

Project1.cfg

Project1.dof

Project1.dpr

Project1.exe

Project1.res

Unit1.dcu

Unit1.ddp

Unit1.~ddp

Unit1.dfm

Unit1.~dfm

Unit1.pas

Unit1.~pas

Контрольная работа.docx

Содержание:


Задание

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

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

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

[image][image]

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

[image]

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

unit Unit1;

interface

uses

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

Dialogs, Menus, Grids, Types, 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;

StringGrid1: TStringGrid;

ImageList1: TImageList;

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

ImageVisible: Boolean = False;

implementation

{$R *.dfm}

procedure TForm1.N5Click(Sender: TObject);

begin

Close; //закрываем форму

end;

procedure TForm1.N6Click(Sender: TObject);

begin

StringGrid1.Visible := True;//Отображение информации о рисунке

//Названия параметров рисунка

StringGrid1.Cells[0,0]:='Ширина ';

StringGrid1.Cells[0,1]:='Высота ';

StringGrid1.Cells[0,2]:='Отступ слева';

StringGrid1.Cells[0,3]:='Отступ сверху';

//Устанавливаем параметры таблицы

StringGrid1.ColWidths[0]:=94;

StringGrid1.ColWidths[1]:=34;