B4A Library ShThumbUpButton (Wrapped)

Hi All;

This is a simple view:) wrapped from this project:


Library source (github):


preview.gif


Features​

  • Designer Support​

  • Simple to use​

  • Full Customize​


Usage​

Initialized in designer:
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

With Code:
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​

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


About Me​

A developer in Iran :);)

 

Attachments

  • ShThumbUpButton.zip
    15.5 KB · Views: 141
Last edited:
Top