АУ
РС(Я) СПО «Намский педагогический колледж» им. И.Е. Винокурова
План
практической работы
на
тему: Доработать функции «Формат/Шрифт»
Выполнил студент 3
курса группы ПОВТ-12
Красильников
Василий
Утверждено____________
Оценка________________
Методист:_____________Бекренева
Я.Р
с.
Намцы 2015г.
Дата:
Время:
45 мин
Место
проведение: Намский СОШ №1
Класс:
10 «а»
Цель
работы:
Закрепить
навыки проектирования интерфейса приложения, получить
навыки
использования стандартных диалоговых окон и буфера обмена.
Тип
урока: практическая, индивидуальная.
Аппаратное
и программное обеспечение:
Персональные
компьютеры, мультимедийный проектор, Delphi
7.
План
урока:
Организационный
момент 5 мин
Пояснение
к работе 5 мин
Практическая
часть 30 мин
Заключение
5 мин
Ход урока:
1.
Организационный момент.
Все
встали, Здравствуйте! Садитесь. Сегодня мы продолжим прошлый урок, где мы
разработали компоненты «Вырезать, копировать, вставаить». Все садимся за
компьютеры.
2.
Пояснение к работе.
Сегодня
мы добавим к своему проекту компоненты «формат/шрифт» которая будет
редактировать наши тексты.
3 часть
Порядок выполнения
1. Добавить
на форму компонент FontDialog (Dialogs)., присвоить имя fontD_1
Для пункта меню Формат/Шрифт ввести следующий код:
If
fontd_1.Execute Then
Begin
Document.SelAttributes.Name :=FONTd_1.Font.Name ;
Document.SelAttributes.Size :=FONTd_1.Font.Size ;
End;
2.
Самостоятельно дополнить код, чтобы все
выбранные атрибуты шрифта были применены к выделенному тексту.
3.
Добавить на форму компонент ColorDialog
(Dialogs)., присвоить имя ColorD_1. Добавить в пункт меню Формат
подпункт Цвет.
4.
Самостоятельно ввести код для изменения
цвета шрифта выделенного текста.
5.
Проверить работу приложения.
6.
Добавить компоненты FindDialog и ReplaceDialog,
изменить имена fd_1 и rd_1 соответственно.
7. Для
пункта меню Правка/Найти ввести код:
If
fd_1.Execute Then Begin End;
8.
Для объекта Fd_1 выбрать событие OnFind
и ввести код:
FinStr:=fd_1.FindText
;
k:=pos(FinStr,document.Text
);
If
k<>0 Then
Begin
document.SelStart :=k -1; ;//начало
выделения
текста
document.SelLength
:=length(finstr); //выделение текста
document.SetFocus;
End
Else
ShowMessage('Текст не
найден);
9.
Для пункта меню Правка/Заменить
ввести код:
If rd_1.Execute Then Begin End;
10. Для
объекта rd_1 выбрать событие OnReplace и ввести код:
FinStr:=rd_1.FindText
;
k:=pos(FinStr,document.Text
);
If
k<>0 Then
Begin
document.SelStart :=k -1
document.SelLength :=length(finstr);
document.SelText :=rd_1.replaceText;.// замена
End
Else
ShowMessage('Текст не
найден’);
11.
Добавить на форму компонент SaveDialog
(Dialogs), присвоить имя sd_1, а свойству Filter значение - Документ|*.Txt.
Самостоятельно ввести программу для сохранения содержимого текстового окна в
файл.
12. Добавить
на форму компонент OpenDialog (Dialogs), присвоить имя od_1, а
свойству Filter значение - Документ|*.Txt. Самостоятельно ввести
программу для открытия файла и вывода его содержимого в текстовое окно.
13. Проверить
работу приложения. Результат показать преподавателю.
Задания для самостоятельного выполнения
Доработать
созданное приложение для реализации новых функций.
Задание
№1
·
При
изменении размера окна должен меняться размер текстового окна;
·
Добавить
в меню пункт, который позволяет вставлять в позицию курсора текущую дату и
время;
·
Изменить
программный код для кнопок панели инструментов для того, чтобы форматирование
(размер, цвет, начертание, тип шрифта) применялось только к выделенному
фрагменту.
Задание №2
·
Если
фрагмент текста не выделен, режимы Вырезать и Копировать должны
быть не доступны (в меню и на панели инструментов);
·
Если
не был выбран режим Вырезать и Копировать нет доступа к режиму Вставить;
Задание
№3
·
Разработать
программный код для пункта Файл/ Новый. При выборе этого пункта
текстовое окно очищается, если его содержимое было сохранено. Если сохранение
не выполнялось, вывести запрос о подтверждении действия.
Пример диалогового
окна для выбора дальнейших действий
if messagedlg('Уверены?
',mtconfirmation, [mbyes,mbno], 0) = mryes then … else …;
Задание №4
·
После сохранения отобразить имя файла в
заголовке формы;
·
Реализовать режим печати текста на
принтере;
·
Предусмотреть перехват ошибок при
обращении к принтеру.
Контрольные
вопросы
1.
Как обратится к буферу обмена в
программном коде?
2.
Какие стандартные диалоговые окна можно
использовать в проекте?
3.
Как обратится к выделенному фрагменту
текста и какие объекты позволяют это сделать?
4.
Как обратиться к абзацу текста?
5.
В какие объекты можно вывести содержимое
текстового файла?
Заключение.
И так, на этом мы завершаем нашу тему.
Насколько сложно было данная работа для вас? Что нового вы узнали? Понадобится
ли это вам в дальнейшем?
Использованная литература.
http://nsportal.ru – социальная сеть работников образования.
http://kpolyakov.spb.ru
– Преподавание наука и жизнь.
http://school.xvatit.com
– Гипермаркет знаний.
http://windows.ebu.ru
– Единое окно.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.