B4A Library ColorSeekBar

This is a wrap for this Github project.

ColorSeekbar
Author: DonManfred (wrapper)
Version: 1.02

• ColorSeekBar
  Events:
  • ColorChanged (colorBarValue As Int, alphaValue As Int, color As Int)
  Fields:
  • ba As BA
  Methods:
  • AddToParent (Parent As ViewGroup, left As Int, top As Int, width As Int, height As Int)
  • BringToFront
  • DesignerCreateView (base As PanelWrapper, lw As LabelWrapper, props As Map)
  • Initialize (EventName As String)
  • Invalidate
  • Invalidate2 (arg0 As Rect)
  • Invalidate3 (arg0 As Int, arg1 As Int, arg2 As Int, arg3 As Int)
  • IsInitialized As Boolean
  • RemoveView
  • RequestFocus As Boolean
  • SendToBack
  • SetBackgroundImage (arg0 As Bitmap)
  • SetColorAnimated (arg0 As Int, arg1 As Int, arg2 As Int)
  • SetLayout (arg0 As Int, arg1 As Int, arg2 As Int, arg3 As Int)
  • SetLayoutAnimated (arg0 As Int, arg1 As Int, arg2 As Int, arg3 As Int, arg4 As Int)
  • SetVisibleAnimated (arg0 As Int, arg1 As Boolean)
  • dp2px (dpValue As Float) As Int
  • isShowAlphaBar As Boolean
  Properties:
  • AlphaBarValue As Int [write only]
  • AlphaValue As Int [read only]
  • Background As Drawable
  • BarHeight As Int
  • BarHeightPx As Int [write only]
  • BarMargin As Int
    set margin between bars
  • BarMarginPx As Int [write only]
    set margin between bars
  • Color As Int
  • ColorBarValue As Int [write only]
    Set the value of color bar, if out of bounds , it will be 0 or maxValue;
  • ColorPosition As Float [read only]
  • ColorWithAlpha As Int [read only]
  • Colors() As Int
  • Enabled As Boolean
  • Height As Int
  • Left As Int
  • MaxValue As Int
  • Parent As Object [read only]
  • ShowAlphaBar As Boolean [write only]
  • Tag As Object
  • ThumbHeight As Int
    set thumb's height by dpi
  • ThumbHeightPx As Int [write only]
    set thumb's height by pixels
  • Top As Int
  • Visible As Boolean
  • Width As Int

 

[Johan Schoeman]

Thanks for sharing @DonManfred!

 

[freedom2000]

Great

Thank you

 

[MarcoRome]

10+ Great Don

 

[ArminKH]

Thank u

 

[yiankos1]

Good job mate, but this does not work:

ColorSB.Enabled=False

In order to disable seekbar.
Thank you for your time.

 

[Johan Schoeman]

Good job mate, but this does not work:

ColorSB.Enabled=False

In order to disable seekbar.
Thank you for your time.

ColorSB.Enabled is a function of the CustomView and not a function of the library. It will not disable the seekbar.

 

[freedom2000]

HI,

I have tried this lib and it works fine.

But what I was looking for was a way to get the "pink color" of the seekbar (as in your animated Gif in the first post)

Well I just would like to change the color of a regular seekbar and I am stuck

Any help please (sorry to be a little off topic...)

 

[Johan Schoeman]

HI,

I have tried this lib and it works fine.

But what I was looking for was a way to get the "pink color" of the seekbar (as in your animated Gif in the first post)

Well I just would like to change the color of a regular seekbar and I am stuck

Any help please (sorry to be a little off topic...)

The pink is 0xFFFF4081. I guess the library will allow you to set it (either as a single color or via the array of colors that can be passed

 

[freedom2000]

I'll try again this evening !

But I am not sure that the "pink seekbar" in the first post had been achieved with this lib (look at the fuzzyness of the "thumb", they are not the same !)

 

[freedom2000]

Well I've just tried and I can't find a way to have a single color into this "colorseekbar".
Do I miss something ?

 

[Johan Schoeman]

Well I've just tried and I can't find a way to have a single color into this "colorseekbar".
Do I miss something ?

What about passing all the same color in the option that allows for passing the colors in an array? Will that not do it?

 

[freedom2000]

Unfortunately I can't see a way to pass the colors...

Where is it ?

 

[ilan]

Unfortunately I can't see a way to pass the colors...

Where is it ?

me either, the colors() array is read only.

is it possible to set the seekbar color to just 1 color or few custom colors?

 

[DonManfred]

is it possible to set the seekbar color to just 1 color or few custom colors?

See updated lib in post #1

    Dim colorlist As List
    colorlist.Initialize2(Array(Colors.Red, Colors.Green, Colors.Blue))
    csb.Colors = colorlist