B4A Library BlinkTextView

Hello all ,

This is a very simple (not for me though ) wrapper for this project BlinkTextView
to achieve the following effect .



demo.gif

Copy all jars inside attached zip to libraries folder .



BlinkTextViewWrapper
Author:
SMM
Version: 0.01
  • SMMBlinkTextView
    Events:
    • click
    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)
    • SetTextColorAnimated (arg0 As Int, arg1 As Int)
    • SetTextSizeAnimated (arg0 As Int, arg1 As Float)
    • SetVisibleAnimated (arg0 As Int, arg1 As Boolean)
    • isOcdModeEnabled As Boolean
    Properties:
    • Background As Drawable
    • Color As Int [write only]
    • Enabled As Boolean
    • Gravity As Int
    • Height As Int
    • Left As Int
    • OcdModeEnabled As Boolean [write only]
    • Tag As Object
    • Text As String
    • TextColor As Int
    • TextSize As Float
    • Top As Int
    • Typeface As Typeface
    • Visible As Boolean
    • Width As Int
 

Attachments

  • BlinkTextViewWrapper.zip
    462 KB · Views: 277

Daniel-White

Active Member
Licensed User
Longtime User
I modified your example to

B4X:
Sub Globals
    Dim blink As SMMBlinkTextView
End Sub


Sub Activity_Create(FirstTime As Boolean)

blink.initialize(Me)
blink.addtoparent(Activity, 0,0,300dip, 50dip)
blink.text= "I am blinking"

End Sub

And it is working. Thanks you
 

somed3v3loper

Well-Known Member
Licensed User
Longtime User
I modified your example to

B4X:
Sub Globals
    Dim blink As SMMBlinkTextView
End Sub


Sub Activity_Create(FirstTime As Boolean)

blink.initialize(Me)
blink.addtoparent(Activity, 0,0,300dip, 50dip)
blink.text= "I am blinking"

End Sub

And it is working. Thanks you
Sorry I am replying from mobile and I think I forgot wrapper short name :)
 
Top