Шифр 30. Описание алгоритма

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

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

Project1.cfg

Project1.dof

Project1.dpr

Project1.~dpr

Project1.exe

Project1.res

Unit1.dcu

Unit1.ddp

Unit1.~ddp

Unit1.dfm

Unit1.~dfm

Unit1.pas

Unit1.~pas

Unit2.dcu

Unit2.ddp

Unit2.~ddp

Unit2.dfm

Unit2.~dfm

Unit2.pas

Unit2.~pas

Отчет.docx

Содержание:


Задание

Вариант 30.

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

4

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

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

[image][image]

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

[image] Описание алгоритма

Программа выполнена в Delphi 7. В начале работы на главной форме были размещены необходимые компоненты(MainMenu, RadioGroup1, ImageList1). Далее был запрограммирован обработчик формы FormPaint (прорисовка рисунка, если установлен флаг, разрешающий прорисовку), добавлена новая форма «О программе» (AboutBox), компонентам которой также сопоставлены обработчики.

Результат работы

[image]

[image]

[image]

[image]

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

Основной модуль программы

unit Unit1;

interface

uses

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

Dialogs, Menus, StdCtrls, ExtCtrls, ImgList;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

RadioGroup1: TRadioGroup;

ImageList1: TImageList;

procedure FormPaint(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Draw_Picture: Boolean; //выводим рисунок или нет