非主题TToolBar上的Delphi tbsSeparator TToolButton具有Flat样式，中间有一条垂直线-如何解决？

Question

我的问题与此有关：

Delphi主题工具栏是否可以在工具按钮之间居中放置分隔符？

我有一个Delphi 7应用程序，我有一个TToolButton与Style = tbsSeparator上TToolBar与Flat = True 。 使用上面提到的问题中接受的修复程序，如果主题为工具栏， tbsDivider预期绘制tbsSeparator和tbsDivider （即，如果我的应用程序具有主题清单（ XPMan ）并且在运行应用程序的系统上启用了Windows主题） 。

但是，如果应用程序没有清单或系统未启用主题， tbsSeparator在中间绘制一条垂直线的tbsSeparator ，该垂直线比tbsDivider ：

在屏幕截图中，左边的一个是tbsSeparator （中间不应有该行），右边的一个是tbsDivider （可以）。

如果我关闭“ Flat样式，则一切正常，但我希望在非主题工具栏上使用“ Flat样式。

所以，问题是如何有一个tbsSeparator没有中间的垂直线在非主题绘制TToolBar与Flat风格 ？

Answer 1

这是来自文档的报价：

BTNS_SEP样式在平面工具栏上的按钮之间创建一个小间隙或在按钮之间绘制蚀刻。 ...

它指出，在平面工具栏的分隔符上进行了蚀刻。 没有提到对主题的依赖。