План практической работы на тему: Доработать функции «Формат/Шрифт»

АУ РС(Я) СПО «Намский педагогический колледж» им. И.Е. Винокурова

План практической работы

на тему: Доработать функции «Формат/Шрифт»

Выполнил студент 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 – Единое окно.