Scrollbar im XP-Style klappt nicht ganz

[SirThornberry]

Hallo,

wenn ich zum Beispiel den Lunastyle unter XP aktiviert habe und eine Scrollbox verwende hat diese die Scrollbars im XP-Style. Jetzt wollte ich für mein eigenes Control auch diese Scrollbars.

Bisher habe ich es so versucht:

Delphi-Quellcode:

FlatSB.InitializeFlatSB(MyControl.Handle);
FlatSB.FlatSB_ShowScrollBar(MyControl.Handle, SB_VERT, True);

Allerdings sind die Scrollbars dann nur Flach aber nicht im XP-Style.
Im Anhang befindet sich ein Bild wie es ist und wie ich es gern hätte.

[Flocke]

Das mit den Luna-Bildlaufleisten sollte eigentlich automatisch funktionieren wenn der visuelle Stil aktiv ist. Ich denke mal das "InitializeFlatSB" verhindert dies sogar.

[SirThornberry]

wenn ich das
FlatSB.InitializeFlatSB(MyControl.Handle); weg lasse wird die Scrollbar ganz normal dargestellt (als wäre kein style aktiviert) und wenn ich eine normales "ShowScrollbar" verwendet ist dies auch der Fall.