Public Sub SetSeekBarHeight(Bar As B4XSeekBar, Height As Int, ChangeBaseHeightToo As Boolean, ChangeBaseWidthToo As Boolean)
Dim Ratio As Float = Bar.mBase.Width / Bar.mBase.Height
Bar.Size1 = Height * .9
Bar.Size2 = Height
Bar.Radius1 = Height * 1.1
If ChangeBaseHeightToo Then
Bar.mBase.Height = Height * 3
End If
If ChangeBaseWidthToo Then
Bar.mBase.Width = Bar.mBase.Height * Ratio
End If
Bar.Update
End Sub