VirtualTreeView mit VCL Styles - Wie dreieckige Expandbuttons darstellen?

[TiGü]

Bin ich auch großer Fan von und habe gleich deinen Ratschlag befolgt und alle Units aus seiner letzten Revision dem Projekt hinzugefügt.
Leider hat das keine Verbesserung gebracht.

Wenn man aber mal hinterherdebuggt, dann landet man in VirtualTress.TBaseVirtualTree.PrepareBitmaps.
Dort heißt es in Zeile 16030:

Delphi-Quellcode:

      // Weil die selbstgezeichneten Bitmaps sehen im Vcl Style scheiße aus
      if (not VclStyleEnabled) or (Theme = 0) then
      begin
        if not(tsUseExplorerTheme in FStates) then
        begin

Man beachte den Kommentar!

VCLStyleEnabled ist ein protected read-only Flag und ist bei aktivierten Skin / Style leider True.
Auch wird irgendwo noch tsUseExplorerTheme aus den FStates entfernt.