I made some changes, because your very good example, draw both fish and arrow:
At cwSlidder:
Code:
Public NoArrow As Boolean
In same class at W_Paint:
Code:
If Not NoArrow Then Cairo.Theme.DrawTo CC, W, thmTypeArrow, IIf(W.Focused, thmStateHovered, 0), xV - 6, 0, 13, 7, 0, thmDirectionDown
At cwSliderFish, we place the S.NoArrow=True, so now we didn't get the arrow behind the image of fish (or any other)
Code:
Private Sub Class_Initialize()
Set S = New cwSlider 'create a new (normal) cwSlider-instance
S.NoArrow = True
Set W = S.Widget 'now override our internal WidgetBase with it
End Sub
George