B4A Library BlinkTextView

Hello all ,

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

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

 

[Daniel-White]

Hi can you please to give us a very simple example ?

 

[somed3v3loper]

Hi can you please to give us a very simple example ?

Try the following

Dim blink as BlinkTextViewWrapper
blink.initialize
blink.addtoparent(activity, 0,0,300dip, 50dip)
blink.text= "I am blinking"

 

[Daniel-White]

I modified your example to

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]

I modified your example to

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