B4A Library CircleLoadingView

This is a wrapper for this github-project.

CircleLoadingView
Author: DonManfred (wrapper)
Version: 1

• CircleLoadingView
  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)
  Properties:
  • AnimationDuration As Float
  • Background As Drawable
  • CircleRadius As Int
  • CircleStrokeSize As Int
  • Color As Int [write only]
  • Enabled As Boolean
  • Height As Int
  • ImageBitmap As Bitmap [write only]
  • Left As Int
  • Percent As Int [write only]
  • Tag As Object
  • Top As Int
  • Visible As Boolean
  • Width 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.
    Private clv As CircleLoadingView
    Private t As Timer
    Private p As Int
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("Layout1")
    Dim bmp As Bitmap
    bmp.Initialize(File.DirAssets,"overlay.png")
    clv.ImageBitmap = bmp
    p = 0
    clv.Percent = p
    clv.AnimationDuration = 500
    clv.CircleRadius = 75dip
    clv.CircleStrokeSize = 10dip
   
   
    t.Initialize("Timer",50)
    t.Enabled = True
End Sub
Sub Timer_Tick
    If p <100 Then
        p = p +1
        clv.Percent = p
    Else
        t.Enabled = False
    End If
   
End Sub

If you want to donate for my work building the wrapper you can do it here:

 

[rkxo]

hi, how i can get bitmap image from button for insert circleLoadingview?

thankx

 

[DonManfred]

hi, how i can get bitmap image from button for insert circleLoadingview?

I dont understand the question.

 

[rkxo]

yes, i want insert one circleLoadingview in a bitmap of a button in runtime, and update values. The button its a play of audio and circleLoadingview the progress of audio file

ex:
Dim progress as circleLoadingView=pnl1.GetView(2) ' get circleloadingview
Dim Play As Button = pnl1.GetView(0) ' get button

How i get bitmap of this button?

dim Image as bitmap = Play.GETIMAGEBACKGROUND?
progress.ImageBitmap=Image

 

[DonManfred]

There is no method to GET the background in the underlying library.