Используем макросы в IDE-редакторе Delphi

Мне это порядком надоело — решил сделать Helper для TMessage (попутно и для TMsg). Ну и в планах попробовать сделать Debugger Visualizer.

Однако о самом хелпере я постараюсь написать в следующий раз. В этой заметке хочу описать, как можно использовать кнопочки Record Macro и Playback Macro, которые находятся в левом нижнем углу строки состояния редактора кода.

(Кстати, мне впервые в жизни пришло в голову попробовать их использовать.)

Итак, я хочу получить код вида:

  case Msg of
    WM_NULL: Result := 'WM_NULL';
    WM_CREATE: Result := 'WM_CREATE';
    ...
    WM_APP: Result := 'WM_APP';
  end;

Идём в модуль Messages и копируем оттуда код:

  {$EXTERNALSYM WM_NULL}
  WM_NULL             = $0000;
  {$EXTERNALSYM WM_CREATE}
  WM_CREATE           = $0001;
  ...
  {$EXTERNALSYM WM_APP}
  WM_APP = $8000;

Вставляем в новый модуль и начинаем макрос. По шагам:

1. Нажимаю Ctrl+F (Панель поиска), указываю пробел, снимаю все флажки. Enter — чтобы запомнилось.
   
2. Устанавливаю курсор на первой строке, нажимаю «Record Macro»:.
3. Ctrl+Y — удаляем строку
4. Ctrl+Вправо — курсор к началу идентификатора
5. F3 — поиск до пробела
6. Влево — курсор к концу идентификатора
7. Ctrl+Shift+Влево — выделили идентификатор
8. Ctrl+C — скопировали выделенное в буфер обмена
9. Повторяем 5. и 6. — курсор к концу идентификатора
10. Shift+End — выделение до конца строки
11. Delete — удаляем выделенное
12. Набираем на клавиатуре
    : Result := ‘
13. Ctrl+V — вставили скопированное
14. Набираем на клавиатуре
    ‘;
15. Home — переход к началу строки
16. Вниз — переход к следующей строке
17. Нажимаю «Stop Recording Macro»:.

Макрос готов, теперь просто жамкаем в «Playback Macro»
пока не достигнем нужного результата.