Вариант 7. Запрограммировать рисование надписи на форме. В качестве надписи используется имя студента

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

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

Project1.cfg

Project1.dof

Project1.dpr

Project1.exe

Project1.res

Unit1.ddp

Unit1.dfm

Unit1.pas

Unit1.~pas

Unit3.pas

Unit4.ddp

Unit4.dfm

Unit4.pas

Отчет.docx

Содержание:


Задание

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

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

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

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

[image]

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

[image]

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

[image]

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

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

[image]

[image]

[image]

[image]

[image]

[image]

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

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, Menus, ExtCtrls, ImgList;

type

TMainForm = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

PopupMenu1: TPopupMenu;

ImageList2: TImageList;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N9: TMenuItem;

N12: TMenuItem;

RadioGroup1: TRadioGroup;

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure N12Click(Sender: TObject);