VirtualTreeView mit VCL Styles - Wie dreieckige Expandbuttons darstellen?

[TiGü]

Hallo zusammen,

ich nutze die VirtualTreeView in Version 5.3.0 zusammen mit VCL Styles im RAD Studio XE3.

In der "ungeskinnten" Windows-Version erhalte ich für TVirtualStringTree.TreeOptions.PaintOptions mit toUseExplorerTheme = true die schönen Aufklapp-Dreiecke aus Bildanhang 1.

Wenn ich jetzt irgendeinen beliebigen Style / Skin / Theme anwende, werden die Aufklappelemente immer als kleines Plus-Button dargestellt.

Gibt es eine Lösung, dennoch die etwas moderner aussehenden Dreiecke hinzubekommen?
Oder überschreibt der Style auf Teufel komm raus das Zeichnen dieser Elemente und es gibt kein Entrinnen?

[Der schöne Günther]

RRUZ kümmert sich geradezu rührend um die VCL-Styles, siehe hier:
http://theroadtodelphi.wordpress.com/vcl-style-utils/

Die VCL-Styles decken standardmäßig bsp. die Kontextmenüs nicht ab, das hat er nachgerüstet. Vielleicht ist das bei den Controls auf die der TVirtualTreeView im Endeffekt aufbaut, ja auch der Fall. Einen Versuch ist es bestimmt wert.

[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.

[Stevie]

Unterstützen die VCL Styles denn die Expandbuttons überhaupt (sowohl mit als auch ohne RRUZ' Anpassungen)?
Wenn ich nämlich den VCL TTreeView gestyled anschaue, dann hab ich auch die ollen +/- Knöppe und nicht die Dreiecke aus dem nativen Windows Aussehen.

[TiGü]

Ah, vielen Dank!
Expandbuttons war das Wort was mir fehlte.
Knotenaufklappelemente ist doch ein Zungenbrecher.

Gute Frage Stevie,
dachte die VirtualStringTree malt jedes Pixel selbst.

Aber selbst das Verändern des betreffenden Quelltextes und anschließender Neuinstallation der TreeView brachte nichts.

Ich finde auch in den Bitmap Style Designer nichts, was da passen würde.

Hm, sollte es ein unlösbares Problem sein?

[Stevie]

Ich hab Rodrigo mal gefragt, und er sagte mir, dass es eine Winapi Einschränkung ist, dass man die Expandbuttons nicht selber malen kann.
Mit SetWindowTheme(TreeView1.Handle, 'explorer', nil); kann man aber das Theming auf das Control anwenden, wenn Styles an sind, so dass die Dreiecke gezeichnet werden.