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.

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

[TiGü]

Das klappt ganz gut für TTreeView, jedoch sieht das bei dunklen Styles sehr bescheiden aus.
Leider funktioniert der Trick nicht für meine TVirtualStringTree.
Ich muss wohl damit leben. Vielleicht kommt das in den kommenden Versionen der VST?!

[cookie22]

Du kannst das Zeichnen der Buttons in procedure TBaseVirtualTree.PrepareBitmaps(NeedButtons, NeedLines: Boolean); unterbinden und das Zeichenen der XP-Buttons erzwingen. Dann mußt du die Ressourcen ändern und die XP-Buttons mit + und - duch Bitmaps deiner Wahl ersetzen. Das geht auf jeden Fall so mache ich das in einem Programm.

[TiGü]

Cookie, hast du dazu die VirtualTrees.pas direkt geändert?

Mit Interceptor-Klasse komme ich wegen private und non-virtual nicht an die procedure ran.

Zwar denkbar, aber dann immer wieder etwas mühsam wenn eine neue Version der VST rauskommt und die Änderung übertragen werden muss.

Hast du die Farbe der Dreiecke dynamisch an den Style angepasst (mit StyleServices.GetSystemColor) oder einfach feste Werte genommen?