[RESOLVED] ToolStrip Split Button - Custom highlight Color not drawing the Arrow

[Maverickz]

I am using a custom renderer to change the highlilght color dor a ToolStrip Split button (code below). It works and the highlighted color is indeed changed, the problem is when highlighted it does not draw the arrow. I have tried calling MyBase.MyBase.OnRenderArrow() and also MyBase.DrawArrow() but neither seems to draw the arrow. Maybe I am creating the graphics object incorrectly or something.

This works fine, and the arrow is drawn on a plain ToolStrip DropDownButton but just not the Split button for some reason.

Any other suggestions to get the arrow drawn from a custom renderer?
Why is the Arrow not getting drawn in the first place?

Private Class MyRenderer : Inherits ToolStripProfessionalRenderer
   Protected Overrides Sub OnRenderSplitButtonBackground(ByVal e As System.Windows.Forms.ToolStripItemRenderEventArgs)
     If e.Item.Selected Then
        Dim rc As New Rectangle(Point.Empty, e.Item.Size)
        'Set the highlight color
        e.Graphics.FillRectangle(Brushes.Gainsboro, rc)
        e.Graphics.DrawRectangle(Pens.Gainsboro, 1, 0, rc.Width - 2, rc.Height - 1)
    Else
       MyBase.OnRenderSplitButtonBackground(e)
    End If
  End Sub
    End Class

[jmcilhinney]

As you didn't show us what you did, it's hard to know exactly what you did wrong, which is exactly why you should ALWAYS shows us what you did. I would assume that you did not correctly create the ToolStripArrowRenderEventArgs object required by both OnRenderArrow and DrawArrow. Both methods worked for me when I created it like this:

Dim tsrea = New ToolStripArrowRenderEventArgs(e.Graphics,
                                              e.Item,
                                              DirectCast(e.Item, ToolStripSplitButton).DropDownButtonBounds,
                                              Color.Black,
                                              ArrowDirection.Down)

[Maverickz]

As you didn't show us what you did, it's hard to know exactly what you did wrong, which is exactly why you should ALWAYS shows us what you did. I would assume that you did not correctly create the ToolStripArrowRenderEventArgs object required by both OnRenderArrow and DrawArrow. Both methods worked for me when I created it like this:

Dim tsrea = New ToolStripArrowRenderEventArgs(e.Graphics,
                                              e.Item,
                                              DirectCast(e.Item, ToolStripSplitButton).DropDownButtonBounds,
                                              Color.Black,
                                              ArrowDirection.Down)

I actually got it working last night, but it was really late so I didn't post back here. In the end, I had everything the same as yours but I was manually calculating the rectangle (shown below). I have now changed to the DirectCast as in your example. Much cleaner. Thanks!!!

Dim pb As RectangleF = i.Image.GetBounds(GraphicsUnit.Pixel) 'pb is the rectangle for the image
                Dim bb As Rectangle = i.Bounds                                          'bb is the rectangle for the whole button
                Dim l As Integer = bb.X + pb.Width + 5                                'Left
                Dim t As Integer = pb.Y                                                     'Top
                Dim w As Integer = (bb.Width - pb.Width) - 5                       'Width
                Dim h = bb.Height                                                            'Height
                Dim r As Rectangle = New Rectangle(l, t, w, h)