TVirtualStringTree — как рисовать столбцы заголовков без использования OwnerDraw?

Я хотел бы рисовать в столбцах заголовков TVirtualStringTree, но у меня проблема. Мне нужно, чтобы столбцы дерева использовали его «отрисовку по умолчанию» и добавляли к нему свою собственную графику.

Если я использую hoOwnerDraw с Header.Options и использую OnHeaderDraw, мне нужно полностью рисовать столбцы самостоятельно (что нехорошо).

Есть OnAdvancedHeaderDraw, на который я надеюсь (см. пример):

Используется, когда для заголовка включено рисование владельцем, а для столбца установлен режим рисования владельцем. Но только если OnHeaderDrawQueryElements возвращает хотя бы один элемент, который должен быть отрисован приложением.

Если я использую OnAdvancedHeaderDraw (я также должен использовать OnHeaderDrawQueryElements), я получаю то, что хочу, но мне нужно заменить по крайней мере один элемент в OnHeaderDrawQueryElements (т.е. hpeBackground/hpeDropMark/ hpeHeaderGlyph/hpeSortGlyph/hpeText) и сам нарисую в событии OnAdvancedHeaderDraw.

Когда, например, я возвращаю элемент hpeSortGlyph, возвращение ShowSortGlyph := True в var PaintInfo: THeaderPaintInfo из OnAdvancedHeaderDraw не имеет никакого значения, а глиф сортировки не закрашивается, что означает, что я должен закрасить его сам. Поскольку DefaultDrawSortGlyph нет, мне нужно заново изобретать, так сказать, и копировать большие части кода из исходного кода VT только для того, чтобы нарисовать глиф сортировки :/

Мне нужны/используются все элементы в столбцах, я просто хочу добавить свою собственную графику поверх графики столбца по умолчанию (стрелка раскрывающегося списка), не заменяя ни один из них. Как избежать такого поведения? Можно ли рисовать поверх существующего столбца без исправления источника?

Надеюсь, мой вопрос понятен.