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

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

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

Отчет.docx

Программа

Содержание:


Задание 1

16

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

Задание 2

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

[image]1. Создать главное меню следующего вида

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

[image]

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

unit Unit1;

interface

uses

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

Dialogs, Menus, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

Label1: TLabel;

RadioGroup1: TRadioGroup;

procedure N2Click(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure Drawing;

var

x0,y0:longint;

ten:array [1..5] of TPoint;

begin

x0:=100;

y0:=100;

with Form1.Canvas do

begin

Pen.Color:=0;

MoveTo(x0,y0);

LineTo(x0+100,y0);

LineTo(x0+100,y0+10);

LineTo(x0+65,y0+10);

LineTo(x0+100,y0);

MoveTo(x0+65,y0+10);

LineTo(x0+200,y0+10);

LineTo(x0+200,y0+20);

LineTo(x0+300,y0+20);

LineTo(x0+260,y0+60);

LineTo(x0+300,y0+100);

LineTo(x0+200,y0+100);

LineTo(x0+200,y0+90);

MoveTo(x0+200,y0+100);

LineTo(x0+235,y0+90);