(22.11.2020 18:34)Berserker Wrote:  Поддержку цветного текста для режимов 32 бита делал RoseKavalier, но там он динамически патчит код HD. Хотелось бы более цивилизованно.

Сейчас Эра перехватывает следующие адреса:
Core.Hook(@Hook_HandleTags, Core.HOOKTYPE_BRIDGE, 7, Ptr($4B509B));
Core.Hook(@Hook_GetCharColor, Core.HOOKTYPE_BRIDGE, 8, Ptr($4B4F74));
Core.Hook(@Hook_BeginParseText, Core.HOOKTYPE_BRIDGE, 6, Ptr($4B5255));

В BeginParseText весь текст парсится на блоки (пробельные символы игнорируются). Запоминаются размеры блоков и цвета. Сами цвета вырезаются, остаются только фигурные скобки.
В Hook_GetCharColor возвращает цвет из текущего блока и текущей позиции.
В Hook_HandleTags увеличивается позиция для непробельных символов, смена блока при необходимости и обработка "{", "}"

В 32-бит режиме ХД полностью переписана функция N_font_DrawCharacter_4B4F00, внутри которой эра пытается изменить цвет символа.
Почему-то сразу не пришло в голову решение (оно уже есть):
Эре нужно создать глобальную переменную типа WORD (16 бит беззнаковое целое) - пусть CharColor. взять адрес этой переменной и выполнить с ним в качестве аргумента функцию патчера:
_P->VarInit("HotA.FontColor", (_dword_)&CharColor);
а дальше, каждый раз когда меняется цвет символа менять и CharColor.
Если так сделать, то цветной текст заработает с любой версией ХД.

Надеюсь понятно объяснил, и перевести описанное из с++ в паскаль/делфи не составит труда.