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

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

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

Отчет.docx

Программа

Содержание:


Задание 1

9

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

Задание 2

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

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

[image] [image]

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

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

N7: TMenuItem;

N8: TMenuItem;

PopupMenu1: TPopupMenu;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

procedure N2Click(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure N3Click(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

{$R *.dfm}

procedure Elka(BrushColor,PenColor:TColor);

var

coord:array [1..17] of TPoint;

x0,y0,x,y:integer;

begin

if (BrushColor=clGray) then begin

x0:=Form1.Width div 2+50+10;

y0:=Form1.Height div 2-150+8;

end

else

begin

x0:=Form1.Width div 2+50;

y0:=Form1.Height div 2-150;

end;

with Form1.Canvas do

begin

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

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

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

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