На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Главная » 2013»Февраль»15 » Программируем на Delphi. Текстовой редактор за 20 мину
02:16
Программируем на Delphi. Текстовой редактор за 20 мину
Программируем на Delphi. Текстовой редактор за 20 минут
Чтобы написать текстовый редактор, нужно сначала ознакомиться с компонентами, которые будут использоваться в процессе работы. Вот они: Memo, Button, Label, MainMenu, Open Dialog, Save Dialog, Font Dialog, Color Dialog, Print Dialog, Find Dialog. Давайте разберем все компоненты по порядку.
Запустим Delphi. При запуске автоматически создается новый проект, но если он не был создан, нажмите на File/New/Appliation. Проект Delphi содержит следующие файлы: *.dpr - файл проекта, *.pas - файл модуля, в котором содержится программный код, *.dfm - файл, в котором содержится форма, *.dcu - откомпилированный файл модуля, *.res - ресурсный файл, содержащий все иконки, курсоры и прочие ресурсы программы. Следующим нашим шагом будет сохранение проекта в нашу, уже созданную папку MyTextEditor командой File/Save all.
Теперь на палитре инструментов выберем вкладку Standard и переместим с нее на нашу форму, устанавливая желаемые размеры, компоненты MainMenu, Memo и Button. Перейдем на вкладку Dialogs и с нее перетащим на нашу форму компоненты Save Dialog, Open Dialog, Find Dialog, Color Dialog и Font Dialog. В общем, у вас на форме должно быть 8 компонентов, а форма должна выглядеть примерно как на рисунке 2.
Перейдем к созданию главного меню. Дважды щелкните на компоненте MainMenu, который должен находиться на форме, и вы увидите конструктор меню, который показан на рисунке 3.
Чтобы создать пункт меню, нужно выделить незаполненный пункт в редакторе меню и написать имя пункта в свойстве Caption Инспектора объектов. Для создания в меню разделительных линий пишите вместо названия пункта черточку "-". Наверное, каждый замечал, что в меню "Файл" подчеркнута буква "Ф" - это значит, что при нажатии на кнопки + <Ф> меню будет открываться. Такие клавиши называют клавишами ускоренного доступа. Связать пункт меню с клавишей ускоренного доступа можно, поставив перед соответствующей буквой в имени меню знак "&". Таким образом, постройте меню, показанное на рисунке 4.
Далее очистите свойство Lines у компонента Memo1 (это можно сделать, нажав на кнопку с тремя точками, появляющуюся справа от свойства Lines (когда он выбран)). Свойство же Caption у Label1, так же как и у Form1, может быть любым, я, к примеру, написал "Этот шедевр написал Я - Супер-программист" у Label1 и "Самая лучшая в мире программа " у Form1. У Button1 в Caption напишите "Печать". Функцию к этой кнопке, я надеюсь, вы сможете сделать сами. Выберите свойство Filter, у компонента Open Dialog1, щелкните на кнопке с тремя точками. Вы увидите окно с названием Filter Editor. В левый столбик введите имена фильтров, а в правый сами фильтры, как показано на рисунке 5. Расширение по умолчанию можно задать в свойстве DefaultExt, у нас оно будет равно txt. Аналогичные действия проделайте с компонентом Save Dialog1.
Чтобы главное меню программы функционировало, нужно к каждому отдельному пункту меню написать определенный набор команд - код. Для этого на форме, а не в конструкторе меню, выбираем нужный пункт и щелкаем по нему, и перед нами появляется окно редактора кода, с уже автоматически сделанной заготовкой процедуры, которая будет происходить при каждом нажатии на этом пункте меню. В эту пустую структуру процедуры мы и будем вписывать код программы. Вообще, еще одним плюсом Delphi является, то, что он сам создает заготовки кода, в которые остается написать нужные операторы, и программа начнет работать. Таким образом, мы сможем сделать наше меню не просто "пустышкой", а инструментом работы с текстами.
Итак, напрямую перейдем к процессу кодинга. Теперь мы будем поочередно создавать процедуры для всех пунктов меню. Начнем с пункта "Новый" меню "Файл". В заготовку процедуры впишем следующий код:
Код
Memo1.Lines.Clear;
With OpenDialog1 do Begin If not Execute then Exit; Memo1.Lines.LoadFromFile (FileName); End
Аналогично заполним процедуру пункта меню "Сохранить":
Код
With SaveDialog1 do Begin If Execute then Exit; Memo1.Lines.SaveToFile (FileName); End
Этими процедурами мы закончили делать меню "Файл". Следующее меню, которое мы будем доделывать, - "Правка". Код к этим пунктам необычайно прост. Для "Вставить" вписываем в заготовку следующее:
Код
Memo1.PasteFrom-Clipboard;
Для пункта "Копировать" впишем:
Memo1.CopyToClipboard;
Ну и наконец - код для пункта "Вырезать" меню "Правка":
Memo1.CutToClipboard;
Про эти свойства компонента я не рассказывал, потому что они настолько просты и понятны (PasteFromClipboard - вставить из буфера обмена, CopyToClipboard - копировать в буфер обмена, CutToClipboard - вырезать в буфер обмена). Также я не рассказал про свойства SaveToFile() и LoadFromFile(), которые тоже интуитивно понятны (сохранить текст из компонента Memo1 в файл и открыть файл с текстом, загрузив текст в Memo1).
Перейдем к меню "Вид". В этом меню пользователь, работающий в нашем редакторе, сможет изменять шрифт и цвет фона компонента Memo1. В заготовку пункта "Изменить шрифт" впишем:
Код
With FontDialog1 do Begin If not Execute then Exit; Memo1.Font:= Font; End
Код для пункта "Изменить цвет фона" выглядит так:
With ColorDialog1 do Begin If not Execute then Exit; Memo1.Color:= Color; End
Для поиска текста, сделайте еще одно меню под названием "Текст" с пунктом "Поиск текста". И в заготовку процедуры пункта "Поиск текста" впишите:
Код
Var SelPos: integer; Begin With TFindDialog (Sender) do Begin SelPos: = Pos (FindText, Memo1.Lines.Text); If SelPos > 0 then Begin Memo1.SelStart:= SelPos -1; Memo1.SelLength:= Length (FindText); End else ShowMessage ('Текст "' + FindText + '" не найден'); End;
В этом коде использованы стандартные процедуры работы с текстом, которые вы, при желании, можете найти в любой книжке по Delphi. Осталось написать только процедуру для пункта "Выход" меню "Файл". Вот она:
Application.Terminate;
Нажмите на кнопку F9 (Запустить), и через несколько мгновений должна появиться только что написанная вами программа. Она должна выглядеть примерно как на рисунке
|