Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Конспекты / План практической работы на тему: Доработать функции «Формат/Шрифт»

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


  • Информатика

Поделитесь материалом с коллегами:

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















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

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











Выполнил студент 3 курса группы ПОВТ-12

Красильников Василий

Утверждено____________

Оценка________________

Методист:_____________Бекренева Я.Р









с. Намцы 2015г.

Дата:

Время: 45 мин

Место проведение: Намский СОШ №1

Класс: 10 «а»

Цель работы:

Закрепить навыки проектирования интерфейса приложения, получить

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

Тип урока: практическая, индивидуальная.

Аппаратное и программное обеспечение:

Персональные компьютеры, мультимедийный проектор, Delphi 7.

План урока:

Организационный момент 5 мин

Пояснение к работе 5 мин

Практическая часть 30 мин

Заключение 5 мин























Ход урока:

  1. Организационный момент.

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

  1. Пояснение к работе.

Сегодня мы добавим к своему проекту компоненты «формат/шрифт» которая будет редактировать наши тексты.

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;

  1. Самостоятельно дополнить код, чтобы все выбранные атрибуты шрифта были применены к выделенному тексту.

  2. Добавить на форму компонент ColorDialog (Dialogs)., присвоить имя ColorD_1. Добавить в пункт меню Формат подпункт Цвет.

  3. Самостоятельно ввести код для изменения цвета шрифта выделенного текста.

  4. Проверить работу приложения.

  5. Добавить компоненты FindDialog и ReplaceDialog, изменить имена fd_1 и rd_1 соответственно.

  6. Для пункта меню Правка/Найти ввести код:

If fd_1.Execute Then Begin End;



  1. Для объекта 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('Текст не найден);



  1. Для пункта меню Правка/Заменить ввести код:

If rd_1.Execute Then Begin End;

  1. Для объекта 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('Текст не найден’);



  1. Добавить на форму компонент SaveDialog (Dialogs), присвоить имя sd_1, а свойству Filter значение - Документ|*.Txt. Самостоятельно ввести программу для сохранения содержимого текстового окна в файл.

  2. Добавить на форму компонент OpenDialog (Dialogs), присвоить имя od_1, а свойству Filter значение - Документ|*.Txt. Самостоятельно ввести программу для открытия файла и вывода его содержимого в текстовое окно.

  3. Проверить работу приложения. Результат показать преподавателю.



Задания для самостоятельного выполнения

Доработать созданное приложение для реализации новых функций.

Задание №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 – Единое окно.




Автор
Дата добавления 01.09.2016
Раздел Информатика
Подраздел Конспекты
Просмотров42
Номер материала ДБ-173247
Получить свидетельство о публикации

Похожие материалы

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