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

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

гарантия низкой цены

Project1.cfg

Project1.dof

Project1.dpr

Project1.exe

Project1.res

Unit1.dcu

Unit1.ddp

Unit1.~ddp

Unit1.dfm

Unit1.~dfm

Unit1.pas

Unit1.~pas

Отчет.docx

Содержание:


Задание

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

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

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

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

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

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

unit Unit1;

interface

uses

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

Dialogs, Menus, StdCtrls, ExtCtrls;

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;

RadioGroup1: TRadioGroup;

procedure FormPaint(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

c:longint;

implementation

{$R *.