Разделы презентаций


Создание простейшего текстового редактора в Delphi

Содержание

Необходимые компоненты:TMemo и TMainMenu Установим - свойство Align в alClient - компонент растянется на все свободное пространство формы. свойство ScrollBars в ssBoth, а WordWrap в False. уберем введенный в Memo1

Слайды и текст этой презентации

Слайд 1Создание простейшего текстового редактора в Delphi
Преподаватель информатики
ГБОУ СПО

«Сибайский педагогический колледж»
Гаврилова Екатерина Федоровна

Создание простейшего   текстового редактора   в DelphiПреподаватель информатикиГБОУ СПО «Сибайский педагогический колледж»Гаврилова Екатерина Федоровна

Слайд 2Необходимые компоненты:
TMemo и TMainMenu
Установим
- свойство Align в alClient

- компонент растянется на все свободное пространство формы.
свойство

ScrollBars в ssBoth, а WordWrap в False.
уберем введенный в Memo1 текст по умолчанию, удалив этот текст из свойства Lines.
Необходимые компоненты:TMemo и TMainMenu Установим - свойство Align в alClient  - компонент растянется на все свободное

Слайд 3 Меню "Файл".
Щелкнем по MainMenu1 два раза - появится окно.


Теперь создадим меню "Файл". В нем элементы: "Создать", "Открыть", "Сохранить",

"Сохранить как...", разделительную полоску (символ "-") и "Выход"
Установим горячие клавиши как показанно на рис 1. Горячие клавиши устанавливаются в свойстве ShortCut


Рис. 1 - Меню "Файл"

Меню

Слайд 4Аналогично создаем меню "Правка":
Рис. 2 - Меню "Правка"
Аналогично создаем

меню "Формат":
Рис. 3 - Меню "Формат"

Аналогично создаем меню

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

Щелкнем по меню "Файл", а там выберем "Выход".
Рис. 4 -

Создание события onClick


Close;

После нажатия по меню "Выход" появляется окно редактора кода с уже готовой процедурой. Пишем:

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

Слайд 6Реализация переноса по словам
В меню "Формат" выберем "Перенос по словам":
procedure

TForm1.N14Click(Sender: TObject);
begin
If Memo1.WordWrap then
begin
Memo1.WordWrap:=false;
Memo1.ScrollBars:=ssBoth;
N14.Checked:=False;
end

else
begin
Memo1.WordWrap:=True;
Memo1.ScrollBars:=ssVertical;
N14.Checked:=True;
end;
end;
Реализация переноса по словамВ меню

Слайд 7 
Реализация функции "Сохранить как..."
Воспользуемся компонентом TSaveDialog
на вкладке Dialogs.

Нам нужно *.txt, т.е. текстовые документы. Чтобы это сделать нужно

найти свойство Filter и нажать на кнопку

Появится окно. Заполните его как показанно на рис. 5.

Рис. 5 - Редактор фильтра

измените свойство DefaultExt на *.txt. Это расширение которое будет добавляться к файлу.

  Реализация функции

Слайд 8Создадим процедуру сохранения файла. Напишем этот код сразу после {$R

*.dfm}.
Procedure SaveAs;
begin
If Form1.SaveDialog1.Execute then
begin
Form1.Memo1.Lines.SaveToFile(Form1.SaveDialog1.FileName);
FileWork:=Form1.SaveDialog1.FileName;
end;
end;
Далее выберем

в меню "Файл" —> "Сохранить как...".

SaveAs;


Слайд 9Запишите в тетрадь как работает эта процедура? Самостоятельно.

Запишите в тетрадь как работает эта процедура? Самостоятельно.

Слайд 10В переменной FileWork будет храниться путь к файлу с которым

работает пользователь. Это нужно для реализации функции "Файл" —> "Сохранить".

Не забудьте ее объявить в разделе Var перед implementation.

var
Form1: TForm1;
FileWork: String;

Реализация функции "Сохранить"
Выберем "Файл" —> "Сохранить". И пишем:

If FileWork='' then SaveAs else Memo1.Lines.SaveToFile(FileWork);


Слайд 11Реализация функции "Открыть"
Помимо TSaveDialog существует TOpenDialog
этот компонент предназначен для

открытия файлов.
Выложите этот компонент на форму и свойство Filter измените

так же как у SaveDialog1.
Вообще компоненты TSaveDialog и TOpenDialog очень похожи. Диалог открытия вызывается так же — функцией Execute, которая возвращает True если пользователь желает открыть файл.
Жмем "Файл" —> "Открыть". Пишем:

if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
FileWork:=OpenDialog1.FileName;
end;


Слайд 13Реализация функций в меню "Шрифт..."
Нам понадобится еще один компонент -

TFontDialog
Создаем событие по клику по меню "Шрифт...".
if FontDialog1.Execute then

Memo1.Font:=FontDialog1.Font

Завершаем...

Изменим заголовок окна: в свойстве Caption напишите "Блокнот". Свойство Position измените на poScreenCenter для того, чтобы форма появлялась по центру экрана.

Ну и напоследок добавим модуль XPMan в список модулей (секция uses):

Реализация функций в меню

Слайд 14uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,

Menus, StdCtrls, XPMan;
Этот модуль подключает XMManifest к приложению, т.е. если

у Вас установленна XP, то все компоненты приобретают XP-шный вид, а если Vista - то становятся стиля Висты. Можете поэкспериментировать.
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, XPMan;Этот модуль подключает XMManifest к

Слайд 15Реализуйте программу в среде программирования Delphi

Реализуйте программу в среде программирования Delphi

Слайд 16Использованные источники:
Валеева, Ю.А. Объектно-ориентированное программирование в среде Delphi [Текст] / Ю.А. Валеева.

- Новокузнецк, 2003.
Фаронов В.В. Delphi. Программирование на языке высокого уровня:

учебник для вузов–СПб: Питер, 2006.–640с.
Использованные источники:Валеева,	Ю.А.	Объектно-ориентированное программирование в среде Delphi [Текст] / Ю.А. Валеева. - Новокузнецк, 2003.Фаронов В.В. Delphi. Программирование на

Обратная связь

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно  хранить и делиться своими презентациями с другими пользователями.


Для правообладателей

Яндекс.Метрика