Инфоурок / Информатика / Конспекты / План практической работы на тему: Доработать функции «Формат/Шрифт»
Обращаем Ваше внимание: Министерство образования и науки рекомендует в 2017/2018 учебном году включать в программы воспитания и социализации образовательные события, приуроченные к году экологии (2017 год объявлен годом экологии и особо охраняемых природных территорий в Российской Федерации).

Учителям 1-11 классов и воспитателям дошкольных ОУ вместе с ребятами рекомендуем принять участие в международном конкурсе «Я люблю природу», приуроченном к году экологии. Участники конкурса проверят свои знания правил поведения на природе, узнают интересные факты о животных и растениях, занесённых в Красную книгу России. Все ученики будут награждены красочными наградными материалами, а учителя получат бесплатные свидетельства о подготовке участников и призёров международного конкурса.

ПРИЁМ ЗАЯВОК ТОЛЬКО ДО 15 ДЕКАБРЯ!

Конкурс "Я люблю природу"

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




Московские документы для аттестации!

124 курса профессиональной переподготовки от 4 795 руб.
274 курса повышения квалификации от 1 225 руб.

Для выбора курса воспользуйтесь поиском на сайте KURSY.ORG


Вы получите официальный Диплом или Удостоверение установленного образца в соответствии с требованиями государства (образовательная Лицензия № 038767 выдана ООО "Столичный учебный центр" Департаментом образования города МОСКВА).

ДИПЛОМ от Столичного учебного центра: KURSY.ORG


библиотека
материалов

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















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

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











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



Самые низкие цены на курсы переподготовки

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

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

Обучение проходит заочно прямо на сайте проекта "Инфоурок", но в дипломе форма обучения не указывается.

Начало обучения ближайшей группы: 13 декабря. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru


Общая информация

Номер материала: ДБ-173247
Курсы профессиональной переподготовки
133 курса

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

Заочное обучение - на сайте «Инфоурок»
(в дипломе форма обучения не указывается)

Начало обучения: 13 декабря
(набор групп каждую неделю)

Лицензия на образовательную деятельность
(№5201 выдана ООО «Инфоурок» 20.05.2016)


Скидка 50%

от 13 800  6 900 руб. / 300 часов

от 17 800  8 900 руб. / 600 часов

Выберите квалификацию, которая должна быть указана в Вашем дипломе:
... и ещё 87 других квалификаций, которые Вы можете получить

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

Получите наградные документы сразу с 38 конкурсов за один орг.взнос: Подробнее ->>