Разработка текстового редактора по шаблону "Turbo Pascal"

Тип работы:
Курсовая
Предмет:
Программирование


Узнать стоимость

Детальная информация о работе

Выдержка из работы

Липецкий Филиал НОУ ВПО

«Международный институт компьютерных технологий»

Кафедра: Вычислительных систем

Курсовая работа

ППО

Технологии программирования

Разработка текстового редактора по шаблону «Turbo Pascal»

Студент Денисов Е. А.

Руководитель, доцент, к. т. н.

Лаврухина Т.В.

Липецк 2013 г.

Аннотация

Курсовая работа

Пояснительная записка: ___ с., 18 рис., 0 табл., 10 библиограф. источников, 3 приложения

СРЕДА СОЗДАНИЯ И РЕДАКТИРОВАНИЯ ИСХОДНЫХ ТЕКСТОВ ПРОГРАММ, СРЕДСТВА ОТЛАДКИ, КОМПИЛЯЦИЯ

В курсовой работе разработан алгоритм и соответствующая ему программа, позволяющая разрабатывать программное обеспечение для языка программирования Паскаль. Среда позволяет легко встраивать в код на Паскале вставки на языке ассемблера. Пользователь имеет возможность отлаживать программу шаг за шагом. Программа написана на языке Delphi XE3 в среде Embarcadero RAD Studio и функционирует в операционной системе Win 32.

Содержание

  • Введение
  • 1. Системотехническая часть
  • 1.1 Анализ и описание предметной области
  • 1.2 Постановка задачи
  • 1.3 Структурная схема программы
  • 1.4 Функциональная спецификация программы
  • 1.4.1 Перечень функций, реализуемых программой
  • 1.4.2 Описание внешней информационной среды
  • 1.5 Схема функционирования программы «Turbo Pascal»
  • 1.6 Разработка структур данных и классов
  • 1.7 Выбор и обоснование алгоритмов реализации программы
  • 1.8 Выбор и обоснование комплекса технических средств
  • 1.8.1 Расчет объема занимаемой памяти
  • 1.8.2 Минимальные требования, предъявляемые системе
  • 1.9 Выбор и обоснование программных средств
  • 1.9.1 Выбор языка программирования и среды разработки
  • 1. 10 Выбор операционной системы
  • 2. Конструкторско-технологическая часть
  • 2.1 Разработка пользовательского меню и описание интерфейса
  • 2.2 Реализация классов и описание структур данных
  • 2.3 Описание модулей программы
  • 2.4 Описание тестового примера
  • Заключение
  • Список использованной литературы
  • Приложения

Введение

Pascal это язык Delphi, содержащий все основные элементы современных языков программирования: модули, классы, интерфейсы, исключения. Данная программа включает в себя алгоритмический язык программирования высокого уровня, встроенный редактор, также простую интегрированную среду, ориентированную на эффективное обучение программированию. В нем отсутствует ряд специфических языковых конструкций Delphi, таких как открытые массивы, записи с вариантами. Кроме этого, добавлен ряд возможностей: можно описывать переменные внутри блока, методы можно описывать непосредственно в теле класса или записи, поля классов можно инициализировать при описании. Кроме того, пакет содержит большой объем справочной информации (англоязычной). Как известно, языки программирования делятся на два типа: интерпретаторы и компиляторы. Турбо Паскаль относится к компиляторным языкам.

Для нормальной работы программы необходимо порядка 10 Мбайт на жестком диске и около 20 Мбайт оперативной памяти.

1. Системотехническая часть

1.1 Анализ и описание предметной области

Основной экран интегрированной среды разработчика «Turbo Pascal» выглядит следующим образом:

[10] По функциональному назначению можно выделить три области экрана:

строка меню, рабочая область, строка состояния.

В меню содержатся следующие разделы:

File, Edit, Search, Run, Compile, Debug, Tools, Options, Window, Help.

В рабочей области имеется возможность открывать различные окна программы — окна редактируемого текста, окна помощи, отладки и настройки.

Строка состояния содержит перечень клавиш или комбинаций клавиш быстрого управления, которые наиболее часто используются в данной ситуации, а также то действие, которое выполняется или может выполняться в данный момент в среде.

1.2 Постановка задачи

Разработать программу «Turbo Pascal», которая включает рабочее окно, состоящую из рабочей области, строки меню, строки состояния. На рабочей области набирается код программы, поле делается компиляция введённого кода. После «Turbo Pascal» отобразит готовую программу или выдаст код ошибки.

текстовый редактор паскаль интерфейс

1.3 Структурная схема программы

На рис. 1 описывается работа данной программы.

[3] Главная форма. Меню главной формы позволяет вводить код программы, обеспечивает доступ к строке меню.

Модуль проверки программного кода. При вводе кода программы, некоторые строки могут содержать ошибки, что не позволит откомпилировать код.

Модуль вывода программы на экран. Выводит на экран откомпилированную программу.

Рис. 1. Структурная схема программы «Turbo Pascal».

1.4 Функциональная спецификация программы

1.4.1 Перечень функций, реализуемых программой

Данная программа в ходе игры выполняет следующие функции:

Предоставление пользователю рабочую область для написания кода программы;

Предоставление пользователю строку меню для удобного пользования программой;

Предоставление строки состояния для отображение важных в данный момент операции;

Извещение об ошибке в коде;

Вывод на экран откомпилированной программы;

Предоставление справочной информации о программе;

Сохранение проекта и открытие нового.

1.4.2 Описание внешней информационной среды

На рис. 2 показано связь пользователя с программой.

Рис. 2. Контекстная диаграмма потоков данных в программе «Turbo Pascal»

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

1.5 Схема функционирования программы «Turbo Pascal»

На рис. 3 изображена функциональная схема программы «Turbo Pascal».

Во взаимодействии с пользователем участвуют 2 модуля:

Главная форма. Используя главную форму, пользователь получает доступ к рабочей области, строке меню, строке состояния.

Окно вывода результата. Отображает на дисплее результат компиляции кода.

Рис. 3. Функциональная схема программы «Turbo Pascal»

1.6 Разработка структур данных и классов

На рис. 4 изображен детальный разбор программы «Turbo Pascal».

Выделяются два основных окна. Главное где находятся строка меню, рабочая область, строка состояния, через которые пользователь может выполнять любые действия над программой. Так же в любой момент программу можно закрыть или начать новый проект. Второе окно предназначено для вывода результата откомпилированной программы.

Рис. 4. Диаграмма классов программы «Turbo Pascal»

1.7 Выбор и обоснование алгоритмов реализации программы

На рис. 5 изображён алгоритм работы программы «Turbo Pascal».

В начале работы пользователь выбирает открыть новый проект или загрузить сохранённый. Далее пользователь производит ввод кода программы или редактируют старый. После ввода кода, производится его компиляция, если нет ошибок «Turbo Pascal» выведет результат готовой программы на экран.

При ошибке компиляция прервётся и будет выделена строка с ошибкой, которую необходимо устранить.

Рис. 5. Главный алгоритм программы «Turbo Pascal».

1.8 Выбор и обоснование комплекса технических средств

1.8.1 Расчет объема занимаемой памяти

Данная программа требует для установки 11 Mb внешней памяти и 7 Mb оперативной.

1.8.2 Минимальные требования, предъявляемые системе

[3] Программа «Turbo Pascal» предназначена для использования под операционной системой семейства Win32. Минимальные требования к аппаратной части:

Тактовая частота процессора — 200 MHz

Объем оперативной памяти — 7 Mb

Объем свободного дискового пространства — 11 Mb.

1.9 Выбор и обоснование программных средств

1.9.1 Выбор языка программирования и среды разработки

Задачей данной разработки является создание приложения с графическим и удобным для пользователя интерфейсом с одной стороны, с другой стороны приложение должно быть легко модифицируемуемым. [9] Для реализации алгоритма программы «Turbo Pascal» в качестве языка программирования высокого уровня выбран Delphi XE3. В качестве среды разработки выбран Embarcadero rad studio, где с уже присутствующими нужными классами в интегрированной среде проектирования.

1. 10 Выбор операционной системы

Доля персональных компьютеров с установленной операционной системой Windows по всему миру составляет 91%.

Большинство программ пишется именно под Windows.

Файловая структура системы знакома многим пользователям.

Устройства и драйвера к ним разрабатываются и пишутся в первую очередь под Windows.

Легко найти специалистов, которые помогут настроить систему.

Производитель осуществляет информационное обслуживание через центр поддержки, который есть в каждой стране.

Эти пункты стали главными критериями выбора операционной системы для данной категории программных продуктов.

2. Конструкторско-технологическая часть

2.1 Разработка пользовательского меню и описание интерфейса

На рис. 6 изображен интерфейс программы, который требует участие пользователя.

Рис. 6. Диаграмма состояний интерфейса

На рис. 7 изображено главное меню программы «Turbo Pascal».

Рис. 7. Иерархия меню

File. Позволяет выполнять все основные действия с файлами (создание, открытие, сохранение)

Edit. Позволяет выполнять все основные операции редактирования текста (копирование, вставка, удаление фрагментов, отмена последних изменений)

Search. Позволяет осуществлять поиск и замену фрагментов текста.

Run. Позволяет запускать программу, в том числе в пошаговом режиме.

Compile. Позволяет осуществлять компиляцию программы.

Debug. Содержит команды, облегчающие процесс поиска ошибок в программе.

Tools. Содержит некоторые дополнительные средства Турбо Паскаль.

Options. Позволяет установить необходимые для работы параметры компилятора и среды разработчика.

Window. Позволяет выполнять все основные операции с окнами (открывать, закрывать, перемещать, изменять размер).

Help. Позволяет получить имеющуюся в системе справочную информацию.

2.2 Реализация классов и описание структур данных

На рис. 8 изображено реализация классов программы описанная в пункте 1.6.

Рис. 8. Реализация классов в программе «Turbo Pascal»

2.3 Описание модулей программы

На рис. 9 определяем порядок взаимодействия объектов программы и необходимость использования выходных данных.

Рис. 9. Структурная схема программы «Turbo Pascal»

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

На рис. 10 изображен начальный вид программы «Turbo Pascal».

На данном рисунке изображено окно программы при запуске. Рабочая программа состоит из строки меню, рабочей области, строки состояния.

В строке меню содержатся основные разделы:

File, Edit, Search, Run, Compile, Debug, Tools, Options, Window, Help.

В рабочей области имеется возможность открывать различные окна программы — окна редактируемого текста, окна помощи, отладки и настройки.

Строка состояния содержит перечень клавиш или комбинаций клавиш быстрого управления, которые наиболее часто используются в данной ситуации, а также то действие, которое выполняется или может выполняться в данный момент в среде.

Рис. 10. Начальный вид.

На рис. 11 изображена программа с написанным кодом.

Рис. 11. Ввод кода.

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

На рис. 12 изображена откомпилированный код программы.

Рис. 12. Компиляция и вывод результата.

После написания кода и компиляции результат выводится на экран.

Заключение

В результате выполнения данной курсовой работы была разработана программа «Turbo Pascal».

В результате исследования были выявлены следующие недостатки полученного программного продукта:

Запуск выполняется в несколько раз медленнее запуска обычного приложения, поскольку требует загрузки в оперативную память компонентов виртуальной машины и внешних библиотек. Работает только под Windows.

Помимо недостатков, есть и достоинства у этого программного продукта:

Качественная среда разработки, включающая мощный отладчик. Удачная система помощи — язык можно изучить лишь по справочным статьям, без посторонних книг. Высокая скорость компиляции, высокая скорость выполнения откомпилированных программ. Качественно реализованное объединение паскаля и ассемблера.

В результате учета всех сделанных выше замечаний возможно улучшение созданного программного продукта, на которое потребуется минимум изменений исходного кода программы.

Список использованной литературы

1. Моргун, А. Н. Справочник по Turbo Pascal для студентов / А. Н. Моргун — М.: Диалектика, 2006. — 608 с.

2. Павловская, Т. А. Паскаль. Программирование на языке высокого уровня: Учебное пособие для вузов / Т. А. Павловская. — 2-е изд., доп. — СПб.: Питер, 2009. — 393 с.

3. Фаронов В. В. Turbo Pascal. Наиболее полное руководство / В. В. Фаронов BHV — СПб.: Питер, 2007 — 203 с.

4. Берн Э. Игры, в которые играют люди. Люди, которые играют в игры: Пер. с англ. /Берн Э. — 3-е изд., доп. — СПб.: Питер, 2010. — 310 с.

5. Иванова, Г. С. Технология программирования / Г. С. Иванова. — М.: КНОРУС, 2011. — 336 с.

6. Архангельский, А. Я. Программирование в Delphi. Учебник по классическим версиям Delphi. / А. Я. Архангельский. — 2-е изд. — М.: ООО Бином-Пресс, 2010. — 1152 с.: ил.

7. Абрамян М. Э. Основы программирования на языке Паскаль: Скалярные типы данных, управляющие операторы, процедуры и функции. / М. Э. Абрамян, С. С. Михалкович. — Ростов н/Д.: ООО ЦВВР, 2004. — 198 с.

8. Абрамян М. Э. Практикум по программированию на языке Паскаль: Массивы, строки, файлы, рекурсия, указатели. / М. Э. Абрамян — Ростов н/Д.: ООО ЦВВР, 2004. — 187 с.

9.В. Р. Рубанцев Самоучитель Delphi в примерах, играх и программах. / В. Р. Рубанцев — СПб.: Питер, 2011. — 163 с.

10. Меженный О. А. Самоучитель Turbo Pascal / О. А. Меженный — СПб.: Питер, 2008. — 210 с.

Приложения

Приложение А

Руководство пользователю

Программа «Turbo Pascal» предназначена для обучения программированию на языке Паскаль и ориентирована на школьников и студентов младших курсов. Эта система призвана осуществить плавный переход от простейших программ к модульному, объектно-ориентированному, событийному и компонентному программированию. Многие концепции в Turbo Pascal упрощены, что позволяет использовать их на более ранних этапах обучения. Например, модуль графики обходится без объектов, хотя его возможности практически совпадают с графическими возможностями Delphi.

Установка программы:

1. Запустить файл setup. exe.

2. В появившемся окне нажмите кнопку Next.

Рис. 13. Установка программы.

В следующем окне укажите место установки.

Рис. 14. Выбор места установки.

Нажмите кнопку Next, инсталляция «Turbo Pascal"завершена. Переходим в каталог, куда вы установили «Turbo Pascal» и запускаем файл TPX. EXE.

Рис. 15. Создание нового проекта или открытие старого.

Главное меню содержит следующие разделы:

File. Позволяет выполнять все основные действия с файлами (создание, открытие, сохранение)

Edit. Позволяет выполнять все основные операции редактирования текста (копирование, вставка, удаление фрагментов, отмена последних изменений)

Search. Позволяет осуществлять поиск и замену фрагментов текста.

Run. Позволяет запускать программу, в том числе в пошаговом режиме.

Compile. Позволяет осуществлять компиляцию программы.

Debug. Содержит команды, облегчающие процесс поиска ошибок в программе.

Tools. Содержит некоторые дополнительные средства Турбо Паскаль.

Options. Позволяет установить необходимые для работы параметры компилятора и среды разработчика.

Window. Позволяет выполнять все основные операции с окнами (открывать, закрывать, перемещать, изменять размер).

Help. Позволяет получить имеющуюся в системе справочную информацию.

Для запуска программы в текущем окне редактора следует нажать клавишу ALT+F9 или кнопку Run.

Программа вначале компилируется во внутреннее представление, после чего, если не найдены ошибки, программа начинает выполняться. При выполнении программы кнопка запуска программы становится неактивной. Выполнение программы можно в любой момент прервать нажатием комбинации клавиш Ctrl-F2.

Рис. 16. Компиляция и вывод результата.

Режим пошагового выполнения предназначен для отладки программы. Для выполнения одного шага (одной строки) программы следует нажать клавишу F8. Прервать программу, находящуюся в режиме пошагового выполнения, можно с помощью комбинации клавиш Ctrl-F2.

В случае неправильного ввода кода, при компиляции программа выдаст сообщение: «Ошибка» и установит курсор на строку с ошибкой.

Описание ошибок, которые могут возникнуть при работе можно посмотреть во вкладке Help.

Приложение B

Руководство системного программиста

Программа «Turbo Pascal» предназначена для обучения программированию на языке Паскаль и ориентирована на школьников и студентов младших курсов. Эта система призвана осуществить плавный переход от простейших программ к модульному, объектно-ориентированному, событийному и компонентному программированию.

Программа «Turbo Pascal» предназначена для использования под операционной системой семейства Win32. Минимальные требования к аппаратной части:

Тактовая частота процессора — 200 MHz

Объем оперативной памяти — 7 Mb

Объем свободного дискового пространства — 11 Mb.

В «Turbo Pascal» выделяют три области экрана: строка меню, рабочая область, строка состояния.

В рабочей области имеется возможность открывать различные окна программы — окна редактируемого текста, окна помощи, отладки и настройки.

Строка состояния содержит перечень клавиш или комбинаций клавиш быстрого управления, которые наиболее часто используются в данной ситуации, а также то действие, которое выполняется или может выполняться в данный момент в среде.

Основное меню содержит следующие поля:

работа с файлами (File);

редактирование (Edit);

поиск (Search);

выполнение (Run);

компиляция (Compile);

отладка (Debug);

инструментальные средства (Tools);

параметры (Options);

окна (Window);

помощь (Help).

Работа данной программы описывает схема (рис. 1).

Настройка программы

Для корректной работы программу необходимо установить на диск c: Program Files затем перейти в каталог с установленной программой и запусить файл TPX. EXE

Проверка программы

Проверка программы осуществляется путем ее запуска, ввода кода и компиляции.

Рис. 17. Проверка работоспособности.

Рис. 18. Вывод результата.

Приложение C

Листинг модулей программы

unit Unit1;

interface

uses

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

Dialogs, Spin, StdCtrls, ComCtrls, ToolWin, Menus, ExtCtrls, XPMan,

ImgList;

type

TForm1 = class (TForm)

mm1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

stat1: TStatusBar;

tlb1: TToolBar;

btn1: TToolButton;

btn3: TToolButton;

btn5: TToolButton;

btn6: TToolButton;

btn7: TToolButton;

btn9: TToolButton;

cbb1: TComboBox;

btn2: TToolButton;

btn4: TToolButton;

btn8: TToolButton;

redt1: TRichEdit;

btn11: TToolButton;

dlgOpen1: TOpenDialog;

dlgSave1: TSaveDialog;

N4: TMenuItem;

dlgFind1: TFindDialog;

dlgReplace1: TReplaceDialog;

dlgFont1: TFontDialog;

cbb2: TComboBox;

dlgColor1: TColorDialog;

il1: TImageList;

btn10: TToolButton;

procedure N3Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N6Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N12Click (Sender: TObject);

procedure N13Click (Sender: TObject);

procedure dlgFind1Find (Sender: TObject);

procedure N14Click (Sender: TObject);

procedure dlgReplace1Replace (Sender: TObject);

procedure N16Click (Sender: TObject);

procedure N19Click (Sender: TObject);

procedure cbb2Click (Sender: TObject);

procedure cbb1Click (Sender: TObject);

procedure N20Click (Sender: TObject);

procedure N23Click (Sender: TObject);

procedure btn3Click (Sender: TObject);

procedure btn1Click (Sender: TObject);

procedure btn4Click (Sender: TObject);

procedure btn5Click (Sender: TObject);

procedure btn2Click (Sender: TObject);

procedure btn7Click (Sender: TObject);

procedure btn9Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *. dfm}

procedure TForm1. N3Click (Sender: TObject);

begin

if dlgOpen1. Execute

then

redt1. Lines. LoadFromFile (dlgOpen1. FileName);

stat1. Panels [0]. Text: =dlgOpen1. FileName;

end;

procedure TForm1. N5Click (Sender: TObject);

begin

if dlgSave1. Execute

then

redt1. Lines. SaveToFile (dlgSave1. FileName);

stat1. Panels [0]. Text: =dlgSave1. FileName;

end;

procedure TForm1. N4Click (Sender: TObject);

begin

redt1. Lines. SaveToFile (Form1. Text+'. rtf');

end;

procedure TForm1. N2Click (Sender: TObject);

begin

Form1. Text: ='Безымянный';

redt1. Lines. Clear;

stat1. Panels [0]. Text: ='';

end;

procedure TForm1. N6Click (Sender: TObject);

begin

Close;

end;

procedure TForm1. N10Click (Sender: TObject);

begin

redt1. CopyToClipboard;

end;

procedure TForm1. N9Click (Sender: TObject);

begin

redt1. CutToClipboard;

end;

procedure TForm1. N11Click (Sender: TObject);

begin

redt1. PasteFromClipboard;

end;

procedure TForm1. N8Click (Sender: TObject);

begin

redt1. Undo;

end;

procedure TForm1. N12Click (Sender: TObject);

begin

redt1. ClearSelection;

end;

procedure TForm1. N13Click (Sender: TObject);

begin

dlgFind1. Execute;

end;

procedure TForm1. dlgFind1Find (Sender: TObject);

begin

if Pos (dlgFind1. FindText, redt1. Text) < >0 then

begin

redt1. HideSelection: =false;

redt1. SelStart: =Pos (dlgFind1. FindText, redt1. Text) — 1;

redt1. SelLength: =Length (dlgFind1. FindText);

end;

end;

procedure TForm1. N14Click (Sender: TObject);

begin

dlgReplace1. Execute;

end;

procedure TForm1. dlgReplace1Replace (Sender: TObject);

begin

redt1. HideSelection: =True;

if Pos (dlgReplace1. FindText, redt1. Text) < >0 then

begin

redt1. SelStart: =Pos (dlgReplace1. FindText, redt1. Text);

redt1. SelLength: =Length (dlgReplace1. FindText);

redt1. SelText: =dlgReplace1. ReplaceText;

end;

redt1. HideSelection: =false;

end;

procedure TForm1. N16Click (Sender: TObject);

begin

redt1. Font. Name: ='Arial';

redt1. Font. Size: =10;

redt1. Font. Color: =clBlack;

redt1. Color: =clWhite;

end;

procedure TForm1. N19Click (Sender: TObject);

begin

if dlgFont1. Execute then

redt1. Font: =dlgFont1. Font;

end;

procedure TForm1. cbb2Click (Sender: TObject);

begin

if cbb2. ItemIndex=0 then redt1. Font. Name: ='Arial';

if cbb2. ItemIndex=1 then redt1. Font. Name: ='Comic Sans MS';

if cbb2. ItemIndex=2 then redt1. Font. Name: ='MS Sans Serif';

if cbb2. ItemIndex=3 then redt1. Font. Name: ='Txt';

if cbb2. ItemIndex=4 then redt1. Font. Name: ='System';

end;

procedure TForm1. cbb1Click (Sender: TObject);

begin

redt1. Font. Size: =cbb1. ItemIndex;

end;

procedure TForm1. N20Click (Sender: TObject);

begin

if dlgColor1. Execute then

redt1. Color: =dlgColor1. Color;

end;

procedure TForm1. N23Click (Sender: TObject);

begin

aboutbox. showmodal;

end;

procedure TForm1. btn3Click (Sender: TObject);

begin

Form1. Text: ='Безымянный';

redt1. Lines. Clear;

stat1. Panels [0]. Text: ='';

end;

procedure TForm1. btn1Click (Sender: TObject);

begin

if dlgSave1. Execute

then

redt1. Lines. SaveToFile (dlgSave1. FileName);

stat1. Panels [0]. Text: =dlgSave1. FileName;

end;

procedure TForm1. btn4Click (Sender: TObject);

begin

if dlgOpen1. Execute

then

redt1. Lines. LoadFromFile (dlgOpen1. FileName);

stat1. Panels [0]. Text: =dlgOpen1. FileName;

end;

procedure TForm1. btn5Click (Sender: TObject);

begin

if dlgFont1. Execute then

redt1. Font: =dlgFont1. Font;

end;

procedure TForm1. btn2Click (Sender: TObject);

begin

if dlgColor1. Execute then

redt1. Color: =dlgColor1. Color;

end;

procedure TForm1. btn7Click (Sender: TObject);

begin

redt1. Font. Name: ='Arial';

redt1. Font. Size: =10;

redt1. Font. Color: =clBlack;

redt1. Color: =clWhite;

end;

procedure TForm1. btn9Click (Sender: TObject);

begin

aboutbox. showmodal;

end;

end.

ПоказатьСвернуть
Заполнить форму текущей работой