Wish setHeight/setWidth for B4XSeekbar

[b4x-de]

Please consider making setHeight and setWidth public on a B4XSeekbar. Currently when resizing a panel with a search bar, the radius1 is stretched and the lines do not have the full height/width. My wish is to set Height and Width and then call Base_Resize.

Suggestion:

Public Sub setHeight(pintHeight As Int)
    mBase.Height = pintHeight
    CallSubDelayed3(Me, "Base_Resize", mBase.Width, mBase.Height)
End Sub

Public Sub getHeight() As Int
    Return mBase.Height
End Sub

Public Sub setWidth(pintWidth As Int)
    mBase.Width = pintWidth
    CallSubDelayed3(Me, "Base_Resize", mBase.Width, mBase.Height)
End Sub

Public Sub getWidth() As Int
    Return mBase.Width
End Sub