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

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

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

Number 1.bmp

Number 2.bmp

Number 3.bmp

Number 4.bmp

Number 5.bmp

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

Содержание:


Задание 1

17

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

Задание 2.

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

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

[image][image]

10. Поместить на форму TRadioGroup следующего вида

[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;

RadioGroup1: TRadioGroup;

procedure N2Click(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure Drawing;

var

x0,y0,x,y,x1,y1,x2,y2:Longint;

coord,ten:array [1..8] of TPoint;

begin

x0:=Form1.Width div 2-100;

y0:=Form1.Height div 2-50;

x:=x0; y:=y0;

with Form1.Canvas do

begin

//В массив coord заносим координаты нашей фигуры

coord[1].X:=x0;coord[1].Y:=y0;

x:=x+40; coord[2].X:=x; coord[2].Y:=y;

x:=x+40; y:=y-40; coord[3].X:=x; coord[3].Y:=y;

y:=y-40; coord[4].X:=x; coord[4].Y:=y;

x:=x+80; coord[5].X:=x; coord[5].Y:=y; x1:=x; y1:=y;