Что такое findtheslide.com?

FindTheSlide.com - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


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

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

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

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

Презентация, доклад на тему Создание простейшего текстового редактора в Delphi

Презентация на тему Создание простейшего текстового редактора в Delphi, из раздела: Информатика. Эта презентация содержит 16 слайда(ов). Информативные слайды и изображения помогут Вам заинтересовать аудиторию. Скачать презентацию на данную тему можно внизу страницы, поделившись ссылкой с помощью социальных кнопок. Также можно добавить наш сайт презентаций в закладки! Презентации взяты из открытого доступа или загружены их авторами, администрация сайта не отвечает за достоверность информации в них. Все права принадлежат авторам презентаций.

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

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

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

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


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

Необходимые компоненты:

TMemo и TMainMenu

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


Слайд 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):


Слайд 14
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, XPMan;Этот модуль
Текст слайда:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, XPMan;

Этот модуль подключает XMManifest к приложению, т.е. если у Вас установленна XP, то все компоненты приобретают XP-шный вид, а если Vista - то становятся стиля Висты. Можете поэкспериментировать.


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

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


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

Использованные источники:

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