B4A Library ProgressWheel v0.22

ProgressWheel
Version: 0.2

• pgWheel
  Events:
  • onClick (value As Object)
  Methods:
  • AddToParent (Parent As ViewGroup, left As Int, top As Int, width As Int, height As Int)
  • DesignerCreateView (base As PanelWrapper, lw As LabelWrapper, props As Map)
  • Initialize (EventName As String)
  • bringToFront
  • buildDrawingCache
  • buildDrawingCache2 (autoscale As Boolean)
  • clearAnimation
  • computeScroll
  • incrementProgress
    Increment the progress by 1 (of 360)
  • isSpinning As Boolean
  • spin
    Puts the view on spin mode
  • stopSpinning
    Turn off spin mode
  Properties:
  • BarColor As Int
  • BarLength As Int
  • BarWidth As Int
  • CircleColor As Int
  • CircleRadius As Int
  • Clickable As Boolean [write only]
  • ContourColor As Int
  • ContourSize As Float
  • DelayMillis As Int
  • Enabled As Boolean [write only]
  • FadingEdgeLength As Int [write only]
  • Focusable As Boolean [write only]
  • FocusableInTouchMode As Boolean [write only]
  • Id As Int [write only]
  • Left As Int
  • MinimumHeight As Int [write only]
  • MinimumWidth As Int [write only]
  • PaddingBottom As Int
  • PaddingLeft As Int
  • PaddingRight As Int
  • PaddingTop As Int
  • Progress As Int [write only]
    Set the progress to a specific value
  • RimColor As Int
  • RimShader As Shader [write only]
  • RimWidth As Int
  • SpinSpeed As Int
  • Tag As Object [write only]
  • Text As String [write only]
  • TextColor As Int
  • TextSize As Int
  • Top As Int

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim pg1, pg2 As pgWheel
End Sub
Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("main")
    pg1.Initialize("pgw")
    pg1.AddToParent(Activity,10dip,10dip,40dip,40dip)
    pg1.CircleRadius = 80
    pg1.RimWidth = 10
    pg1.SpinSpeed = 4
    pg1.spin

    pg2.Initialize("pgw")
    pg2.AddToParent(Activity,60dip,10dip,125dip,125dip)
    pg2.CircleRadius = 70
    pg2.RimWidth = 15
    pg2.SpinSpeed = 4
    pg2.BarColor = Colors.Red
    pg2.ContourSize = 1
    pg2.RimColor = Colors.Blue
    pg2.CircleColor = Colors.Green
    pg2.Text = "Hallo World"
    pg2.spin
End Sub

 

[Douglas Farias]

Works on old android versions? what minimal?

 

[DonManfred]

Works on old android versions?

Probably yes

what minimal?

i dont know. Just try it

 

[DonManfred]

Updated ProgressWheel to v0.20

- Added support for Designer.

 

[Peter Simpson]

I'll have to use this library one day cheers...

 

[Michael Höpner]

Hi DonManfred
my question: How can i make the wheel to diappear?
There is no "sendtoback" or how can i >distroy< the wheel?
When it will be able Please answer

 

[DonManfred]

my question: How can i make the wheel to diappear?

in v0.22 you can set the visibility.
Lib is uploaded to Post #1

example:

Sub btnhide_Click
    'Log(pg2.Visible)
    If pg2.Visible Then
        pg2.Visible = False
    Else
        pg2.Visible = True
    End If
End Sub

 

[Michael Höpner]

Hello DonManfred
Thank you for your promt reply.

 

[bluedude]

Pretty!

Could you make the inner circle like a clickable button that has a pressed effect? I want to use this as a round button that starts to spin when clicked and stops when the process is finished.

Cheers.

 

[DonManfred]

There is no inner or outer object. It is ONE object. I can make the hole button clickable though.

 

[bluedude]

Clickable would be cool but it would need to have pressed states etc. I just solved it by adding a normal button with big rounded corners (half size of width and height).

Can you add height and width properties to the object so that I can resize my normal button precisely inside the progress wheel?

The end result is pretty good. Did not test transparancy yet on a photo background.

The middle white button is clickable and has borders etc. I will use the combined solution for scanning nearby objects (iBeacons etc.) When the button is clicked it will start spinning until all results are found.

 

[Alberto Michelis]

Hi,
I need it for Subs long jobs
I initialize like:

ww.Initialize("ww")
ww.AddToParent(Activity,50%y-25dip,50%x-25dip,50dip,50dip)
ww.CircleRadius = 80
ww.RimWidth = 10
ww.SpinSpeed = 4
ww.spin
ww.Visible=False

But when I want to use
ww.visible=true
in a sub I get a java error Null pointer exception

whats wrong?

Another problem is, when I am , by ex, refreshing a customlistview it stops spinnig and then it is of no use ata all.

Thanks

 

[Taha]

What is computeScroll?
onClick (value As Object) - what value is generated?

 

[sultan87]

What is computeScroll?
onClick (value As Object) - what value is generated?

hello,
how to put the text on several lines ?
best regards