Вариант 23. Запрограммировать рисование надписи на форме

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

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

Project1.cfg

Project1.dof

Project1.dpr

Project1.exe

Project1.res

Отчет.docx

Содержание:


Задание

Вариант 23.

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

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

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

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

[image] [image]

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

[image]

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

[image]

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

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

[image]

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

ImageList2: TImageList;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

Bevel1: TBevel;

RadioGroup1: TRadioGroup;

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);