Мой вопрос связан с этим:
У меня есть приложение Delphi 7, где у меня есть TToolButton с Style = tbsSeparator на TToolBar с Flat = True. Используя исправление, принятое в вопросе, упомянутом выше, tbsSeparator и tbsDivider рисуются, как и ожидалось, если панель инструментов тематическая (т.е. если у моего приложения есть манифест темы (XPMan) и темы Windows включены в системе, в которой работает приложение) .
Однако, если у приложения нет манифеста или если в системе не включены темы, tbsSeparator рисуется с вертикальной линией посередине, немного меньшей, чем у tbsDivider: 
На скриншоте тот, что слева, — это tbsSeparator (у него не должно быть линии посередине), тот, что справа — это tbsDivider (с этим все в порядке).
Если я отключу стиль Flat, все будет в порядке, но я хочу стиль Flat на нетематической панели инструментов.
Итак, вопрос в том, как нарисовать tbsSeparator без вертикальной линии посередине на нетематическом TToolBar в стиле Flat?
tbsSeparatorиtbsDividerна тематической панели инструментов, но не с ненужной линией в серединеtbsSeparatorна нетематической панели инструментов. Обратите внимание, что я хочу сохранить стиль Flat на нетематической панели инструментов. - person jedivader   schedule 16.04.2014