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

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

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

Project1.cfg

Project1.dof

Project1.dpr

Project1.exe

Project1.res

Unit1.ddp

Unit1.dfm

Unit1.pas

Unit3.pas

Unit4.ddp

Unit4.dfm

Unit4.pas

Отчет.docx

Содержание:


Задание

Вариант 10.

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

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

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

[image][image]

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

[image]

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

[image]При выборе пункта на форме появляется надпись с именем студента

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

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

[image]

[image]

[image]

[image]

[image]

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

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, Menus, ExtCtrls, ImgList;

type

TForm4 = 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;

N5: TMenuItem;

N8: TMenuItem;

CheckBox1: TCheckBox;

Bevel1: TBevel;

Panel1: TPanel;

Label1: TLabel;

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure FormPaint(Sender: TObject);