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

Занимаясь отладкой процедур, связанных с обработкой сообщений, постоянно приходится делать сопоставление между кодом сообщения и его строковым наименованием. Ну, к примеру, "прилетает" код 6 - это WM_ACTIVATE. Или сложнее: код 274 (0x0112) = WM_SYSCOMMAND.

Мне это порядком надоело - решил сделать 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" пока не достигнем нужного результата.