B4A Library ShThumbUpButton (Wrapped)

Hi All;

This is a simple view wrapped from this project:

GitHub - ldoublem/ThumbUp: A nice thumb up control

A nice thumb up control. Contribute to ldoublem/ThumbUp development by creating an account on GitHub.

github.com

Library source (github):

GitHub - Salar82/ShThumbUpButton-B4A: Wrapped B4A library from https://github.com/ldoublem/ThumbUp

Wrapped B4A library from https://github.com/ldoublem/ThumbUp - Salar82/ShThumbUpButton-B4A

github.com

Features​

• Designer Support​

• Simple to use​

• Full Customize​

Usage​

Sub Globals
    Private ShThumbUpButton1 As ShThumbUpButton
End Sub


Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
  
    ShThumbUpButton1.Sh_CracksColor = Colors.White
    ShThumbUpButton1.Sh_FillColor = 0xFFFF7700
    ShThumbUpButton1.Sh_EdgeColor = Colors.Magenta
    ShThumbUpButton1.Sh_UnLikeType = ShThumbUpButton1.Type_Broken
  
End Sub

Sub Globals
    Dim ShThumbUpButton1 As ShThumbUpButton
End Sub


Sub Activity_Create(FirstTime As Boolean)
    ShThumbUpView1.Initialize("ShThumbUpView1")
    Activity.AddView(ShThumbUpView1, 0dip, 50dip, 50dip, 50dip)
  
    ShThumbUpButton1.Sh_CracksColor = Colors.White
    ShThumbUpButton1.Sh_FillColor = 0xFFFF7700
    ShThumbUpButton1.Sh_EdgeColor = Colors.Magenta
    ShThumbUpButton1.Sh_UnLikeType = ShThumbUpButton1.Type_Broken
  
End Sub

Event​

Private Sub ShThumbUpView1_StateChange (Like As Boolean)
    'Log($"Like: ${Like}"$)  ' TODTO
End Sub

About Me​

A developer in Iran ​