Этим выпуском я открываю написание цикла статей на тему: "Мир Delphi: практические уроки", которые очень надеюсь, будут кому-то нужны, а главное - помогут в освоении этого программного продукта, разработанного корпорацией Borland. Я постараюсь сделать так, чтобы каждый читатель нашёл что-то своё в моих статьях, будь то начинающий или опытный программист. И сегодня мы поговорим о том, каким образом можно сделать качественный и удобный текстовый редактор, с которым можно было бы легко работать. Мы не будем делать Microsoft Word, это ни к чему. Он уже есть, а нам необходим текстовый редактор, который обладал бы всеми стандартными функциями, которые бы обеспечили работу с текстом. Итак, начнём.

Для начала необходимо определиться, какой версией Delphi Вы пользуетесь. В принципе, это не имеет особого значения, но всё же я сделаю небольшую заметку: все статьи, которые собираюсь написать в дальнейшем, будут опираться на версию 7. Для разработки нашего сегодняшнего редактора можно использовать версию в пределах Delphi 3 - Delphi 2005.

Определимся с основными функциями, которые сможет выполнять наша программа. Я думаю, что она должна: открывать, сохранять, печатать документ; копировать, вставлять, вырезать, удалять текст. Так же мы наградим наш редактор возможностью поиска заданного текста. Ну и напоследок, сделаем доступным возможность его форматирования: шрифт, размер, цвет.

И всё бы ничего, но наш редактор выглядел бы обычным, не было бы в нём никакой изюминки. Вот я подумал и нашёл то, чего нет в обычном блокноте и ворде. Это нумерация строк. Мы её постараемся осуществить при помощи нового компонента. Поискав в сети, лучше, чем SynEdit я не нашёл. Поэтому и Вам советую скачать компонент SynEdit в Интернете (официальный сайт: www.synedit.sourceforge.net). Я скачал версию 1.2 с какого-то российского сайта. И Вам советую набрать в поисковике соответствующую комбинацию слов, которая привела бы Вас к скачиванию архива. Кстати, как я уже и говорил, SynEdit поддерживает многочисленные версии Delphi: от 3 до 2005, так что качайте, думаю, всё будет в порядке. После скачивания, необходимо запустить файл SynEdit_D7.dpk из папки Packages, и проинсталлировать. Если все операции выполнены успешно, переходим уже к разработки самого текстового редактора. Кстати, давайте дадим ему имя. Пусть это будет Twedit (Text Wizard Edit - Волшебник редактирования текста).

Запустите Delphi и поместите следующие компоненты на форму:

 

Компонент Задайте ему свойства Описания выполненных операций MainMenu (Вкладка Standart) Создайте такую иерархию: Файл: Создать, Открыть, Закрыть, - , Сохранить, Сохранить Как..., - , Настройка печати, Печать, - , Выход. Правка: Вырезать, Копировать, Вставить, Удалить, Выделать всё, - , Найти, Заменить. Формат: Шрифт, Цвет текста, Цвет фона. Name:=MainMenu20001; Вы создаёте пункты меню для того, чтобы потом могли ими воспользоваться. Символ "-" (тире) означает, что под предыдущим пунктом будет горизонтальная линия. StatusBar (Вкладка Win32) Name:=StatusBar1; ParentBiDiMode:=false; SizeGrip:=false; Panels:=> 0 - TStatusPanel; (BiDiMode:=bdRightToLeftNoAlign, ParentBiDiMode:=false, Width:=220) 1 - TStatusPanel; (Width:=150) 2 - TStatusPanel; (Width:=95) 3 - TStatusPanel; (Width:=90) 4 - TStatusPanel; (Width:=100) В свойствах компонента StatusBar1 найдите параметр Panels и щёлкните два раза. Затем нажмите ADDNew 5 раз. PopupMenu (Вкладка Standart) Name:=PopupMenu1; Items-> Caption:="Вырезать"; Caption:="Копировать"; Caption:="Вставить"; Caption:="Удалить"; Caption:="-"; Caption:="Выделить всё"; Вы создаёте пункты меню для того, чтобы потом могли ими воспользоваться. Символ "-" (тире) означает, что под предыдущим пунктом будет горизонтальная линия. SynEdit (Вкладка SynEdit) Name:=SynEdit1; ActiveLineColor:=$00F5F1EC; Align:=alClient; Font->Size:=11; Gutter-> AutoSize:=true; Color:=$00DFD8D0; Cursor:=crHandPoint; DigitCount:=2; Font->Size:=9; Gradient:=true; GradientEndColor:=$00DFD8D0; LeadingZeros:=True; LeftOffset:=10; ShowLineNumbers:=true; Lines:="Здесь будет располагаться простой текст"; Options->eoHideShowScrollbars:=true; WantTabs:=true; PopupMenu:=PopupMenu1; В свойствах SynEdit мы устанавливаем шрифт, цвет шрифта, а так же формат нумерации строк и пр. По желанию, все эти параметры Вы можете поменять на свои.

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


Удачи!
Источник: web-brodilka.ru