B4A Library StartPointSeekBar

Johan Schoeman · Aug 29, 2015

It wraps this Github project. Library files are in the /files folder of the attached B4A project. Copy them to your additional library folder. Java source code is in attached src.zip. A value_changed event is raised in B4A when you adjust/slide the seekbar. The actual/present value of the seekbar can then be obtained with a call to a library method (eg myval = spsb3.CurrentThumbValue). The range can be set from 0 to whatever value or from a negative minimum value to a positive maximum value.

...and when you touch the slider...

The library as it stands at present:

startpointseekbar
Author: Johan Schoeman
Version: 1

StartPointSeekBar
Fields:
- ba As BA
Methods:
- 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)
Properties:
- Background As Drawable
- Color As Int [write only]
- CurrentThumbValue As Double [read only]
- Enabled As Boolean
- Height As Int
- Left As Int
- MinValue As Double [write only]
- Tag As Object
- TheBackgroundColor As Int [write only]
- TheRangeColor As Int [write only]
- ThumbValue As Double [write only]
- Top As Int
- Visible As Boolean
- Width As Int
- maxValue As Double [write only]

RaymondHung · May 31, 2018

Johan Schoeman said:
You will have to edit them with something like GIMP. The code does not make provision for changing them programmatically.

It is to replace the old file with two new ones. It can be sent back to the original position, right?

RaymondHung · Jun 1, 2018

Hi Johan,

Do you know why forwarding your StartPointSeekBar.zip file with Gmail will be blocked due to security reasons?

DonManfred · Jun 1, 2018

RaymondHung said:
why forwarding your StartPointSeekBar.zip file with Gmail

Google does not allow attachments containing a JAR file.
Upload the file on Dropbox (or similar) and send out a Sharelink

RaymondHung · Jun 1, 2018

Thanks DonManfred

But in my application using StartPointSeekBar, APK file using Gmail will be blocked for security reasons,
no problem if not used. I want to know what is the reason?

DonManfred · Jun 1, 2018

APK cannot be send by gmail too.
Solution:

DonManfred said:
Upload the file on Dropbox (or similar) and send out a Sharelink

The reason is that Google expect APKs to be provided only by Playstore.

Anyway: This is NOT the right Thread to discuss it

RaymondHung · Jun 1, 2018

Thanks DonManfred

Johan Schoeman · Jun 1, 2018

RaymondHung said:
It is to replace the old file with two new ones. It can be sent back to the original position, right?

You need to make sure that you keep the names of your png files the same as what they are at present.

Mr Blue Sky · Sep 25, 2018

Hi Johan Schoeman
is it possible to have the decimal point with this library very interesting because the SeekBar displays units only

B4X:

Sub Globals
    Dim myval As Int
    Private StartPointSeekBar1 As StartPointSeekBar
    Private hpll As Label
    Private hplh As Label
    Private hpl As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("main")

    ' High Pressure alarm limit unit
    StartPointSeekBar1.TheBackgroundColor = Colors.DarkGray
    StartPointSeekBar1.TheRangeColor = 0xFF33B5E5
    StartPointSeekBar1.MinValue = 0                   
    StartPointSeekBar1.maxValue = 6.9
    StartPointSeekBar1.ThumbValue = 2.5
    '============================
    hpll.Text = 0
    hpll.TextColor = Colors.Red
    hpll.TextSize = 20
    hplh.Text = 6.9
    hplh.TextColor = Colors.Red
    hplh.TextSize = 20
    '============================
    hpl.Color = Colors.Transparent
    hpl.TextColor = Colors.White
    hpl.TextSize = 30
    hpl.Text = StartPointSeekBar1.CurrentThumbValue
End Sub

Sub StartPointSeekBar1_value_changed
    myval = StartPointSeekBar1.CurrentThumbValue
    hpl.Text = Round2(myval,2)
End Sub

klaus · Sep 25, 2018

Set the returned value type to Double instead of Int.
And use Numberformat to display the value.

B4X:

Dim myval As Double


Sub StartPointSeekBar1_value_changed
    myval = StartPointSeekBar1.CurrentThumbValue
    hpl.Text = Numberformat(myval, 1, 2)
End Sub

Mr Blue Sky · Sep 25, 2018

Decidedly what will I do without you and jordi must I stop working until hours not possible I have more eyes in front of the holes. many thank Klaus

HammerZeta · Jan 8, 2019

Hi Johan Schoeman

I want to thank you for StartPointSeekBar. I am using it in a program that I am doing.
I've also been looking at your big list of contributions to the forum, thank you very much for your collaboration.

a cordial greeting

B4A Library StartPointSeekBar

Attachments

RaymondHung

Member

RaymondHung

Member

DonManfred

Expert

RaymondHung

Member

DonManfred

Expert

RaymondHung

Member

Johan Schoeman

Expert

Mr Blue Sky

Active Member

klaus

Expert

Mr Blue Sky

Active Member

HammerZeta

Member

Similar Threads

B4A Library StartPointSeekBar

Attachments

Member

Member

Expert

Member

Expert

Member

Expert

Active Member

Expert

Active Member

Member

Similar Threads

Privacy & Transparency

Privacy & Transparency