Ключевые слова из прописных букв

В Компонентном Паскале ключевые слова должны быть набраны большими буквам. Чтобы облегчить эту задачу, в пакете русификации предусмотрено специальное средство: нажатие клавиши F5 приводит к тому, что:

1. Все маленькие буквы (латинские и/или русские) влево от курсора до первого символа, не являющегося маленькой буквой (чаще всего это пробел), преобразуются в большие. Например: then превращается в THEN, а a1bc --> a1BC.
2. Если превращаемое слово является первым ключевым словом оператора IF, WHILE, PROCEDURE ... и т.п., то происходит подстановка всего "скелета" из ключевых слов для данного оператора.

Вот пример такой подстановки (слева — до, справа — после подстановки; положение курсора показано вертикальной черточкой):

При этом пустая строка между BEGIN и END содержит ровно столько (невидимых) символов табуляции, чтобы начало печатаемого в ней текста было углублено на один отступ вправо относительно слов PROCEDURE, BEGIN и END — на ту же глубину, что и ключевое слово VAR.
Обратите внимание, что курсор после подстановки стоит так, чтобы можно было немедленно печатать идентификатор-имя процедуры.

Для тех — и только тех, — кто чувствует себя уверенно с Компонентным Паскалем и Блэкбоксом: Текст процедуры, осуществляющей такие подстановки, содержится в модуле Info21sysEdit (файл Info21sys\Mod\Edit.odc). Имя процедуры — CapitalizeExpand (см. в теле процедуры оператор IF с большим количеством проверок типа ELSIF string$ = ... ). Имея исходный текст в качестве образца, процедуру нетрудно модифицировать так, чтобы добавить новые подстановки или подправить уже имеющиеся под свой вкус. После этого достаточно скомпилировать ее и перезагрузить модуль Info21sysEdit (о перезагрузке модулей см. здесь).