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

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

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

Icon1.ico

Icon2.ico

Icon3.ico

Icon4.ico

Icon5.ico

Icon6.ico

Icon7.ico

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

Содержание:


Задание

Вариант 19.

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

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

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

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

[image] [image]

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

[image]

При нажатии изменяет цвет букв надписи на заданный.

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

[image]

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

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

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

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

CheckBox1: TCheckBox;

Bevel1: TBevel;

Label1: TLabel;

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);