9. Создание приложений для решения математических задач.

Ц ель урока: Изучить компонент MainMenu (Standard).

Задание: Создать проект вычисления площади, прямоугольника, треугольника, круга, периметра прямоугольника, треугольника.

В проекте используется компонент –Главное меню - MainMenu (Standard). Это не визуальный компонент. Название пунктов меню задаются в свойстве Items. По умолчанию пункты нумеруются N1,N2,N3 и т.д. Для того чтобы ориентироваться в созданном меню, удобнее свойство Name каждому пункту изменить на более понятное (Треугольник - площадь – TrPl, Треугольник – Периметр – TrPr и т.д.) Программа работает через главное меню. Пункты меню: Прямоугольник (Площадь, Периметр, Чертеж, Выход); : Треугольник (Площадь, Периметр, Чертеж, Выход); Круг (Площадь, длина окружности); Помощь (Формулы, о программе)

-При выборе пункта меню (например: Треугольник-Площадь) появляется надпись Треугольник, три SpinEdit для ввода длин сторон треугольника, под каждым соответствующая надпись. В метке с надписью Площадь появляется результат. При изменении значений в SpinEdit значение площади пересчитывается.

-Необходимо предусмотреть условие на существование треугольника с заданными сторонами. При выборе пункта Чертеж на компоненте Image появляется рисунок с заданными длинами сторон фигуры или радиусом для круга. При изменении длин сторон рисунок перерисовывается.

При выборе подпункта Выход в каждом пункте появляется вид стартового окна программы. При выборе пункта Помощь – формулы – появляется Мемо с формулами для вычисления площадей и периметров фигур. Координата третьей точки для построения чертежа треугольника: X=(a²+b²-c²)/(2*a), Y=SQRT(b²-x²)

ВОПРОСЫ:

1. Свойства и методы компонента класса TMainMenu.

2. Основные математические функции и их назначение.

10. Создание простейшего текстового редактора «Блокнот»

Цель занятия: Научиться создавать приложение Блокнот средствами Delphi.

Для выполнения задания необходимо: поместить на форму следующие компоненты: Memo1, MainMenu1. Для компонента Memo1 изменить следующие свойства:

• Свойство Align поменять на alClient для того, чтобы компонент Memo1 был расположен по всей клиентской области формы.

• В свойстве Lines нажмите на … после слова (TStrings) и удалите строку Memo1, для очистки области Memo1.

• Свойству Scrollbars присвоить значение наличия полосы прокрутки, например ssVertical – наличие вертикальной полосы прокрутки.

С помощью компонента MainMenu1 добавить следующие пункты меню: Файл, Правка, Справка. Пункт Файл содержит команды: Создать, Открыть, Сохранить, Выход. Пункт Правка – Вырезать, Копировать, Вставить. Пункт Справка содержит справку о программе.

Для пункта меню Файл написать программы:

• Для события создания нового файла написать программу, в результате которой произойдёт очистка поля объекта Memo1. Самостоятельно учтете, что если в Memo1 содержится текст, то требуется выдать сообщение о сохранении текста в файле (с помощью функции MessageBox).

• Для события открытия файла требуется добавить на форму компонент OpenDialog1. Для добавленного компонента изменить свойство Filter (Текстовые файлы *.txt и Все файлы *.*); свойство InitialDir для выбора исходной директории сохранения вашего файла (по умолчанию Мои документы); и написать программу:

procedure TForm1.N3Click(Sender: TObject);

begin

if opendialog1.Execute=true then memo1.Lines.LoadFromFile(opendialog1.FileName);

end; // если выбран файл в запущенном диалоговом окне, то имя этого файла отображается в компоненте Memo1.

• Для события сохранения файла по аналогии с открытием файла.

• Для события Выход напишите процедуру для закрытия формы.

Примечание: Самостоятельно добавьте горячие клавиши для всех команд меню, для этого измените свойство ShortCut команд меню.

Для пункта меню Правка написать программы:

• Для вырезки текста (Правка - Вырезать) написать программу, в результате которой выделенный текст в Memo1 заносится в буфер обмена с помощью программы:

procedure TForm1.N8Click(Sender: TObject);

begin memo1.CutToClipboard;

end;

• Для копирования и вставки текста программы написать самостоятельно.

Для пункта меню Справка:

• Создайте форму AboutBox (меню File – New – Forms - AboutBox), в которой располагается информация о программе.

• Для пункта меню Справка написать программу вызова формы AboutBox:

procedure TForm1.N12Click(Sender: TObject); Begin AboutBox.Show; end;

• Для скрытия диалогового окна справки написать программу для нажатия кнопки OK:

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

hide;

end;

Примечание: Отредактируйте диалоговое окно справки, изменив название окна, версию продукта, имя разработчика, рисунок. Цвет и шрифт по своему усмотрению.

ВОПРОСЫ:

1. Изучение свойств компонента Scrollbars.

2. Создание справки для приложения.