Вариант 19. Delphi. Описание алгоритма. Результат работы. Листинг программы. Запрограммировать рисование надписи на

  • ID: 39181 
  • 10 страниц

Содержание:


Задание

Вариант 19.

Запрограммировать рисование надписи на форме. В качестве надписи используется имя студента. Для рисования использовать свойства и методы формы. Примерный вид букв приведен ниже (буквы обязательно имеют контур и закрашены внутри контура).

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

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

Главное меню следующего вида

[image] [image]

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

[image]

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

[image]

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

Программа выполнена в Delphi 7. В начале работы на главной форме были размещены необходимые компоненты. Далее был запрограммирован обработчик формы FormPaint (прорисовка формы), добавлена новая форма с заголовком Автор (AboutBox), компонентам которой также сопоставлены обработчики. Результат работы

[image]

[image]

[image]

[image]

[image]

[image]

[image]

[image]

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Menus, Unit2, ExtCtrls, ImgList;

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;

RadioGroup1: TRadioGroup;

ImageList2: TImageList;

procedure Button1Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);