B4A Library PaperShredder

A wrapper for this project https://github.com/ldoublem/PaperShredder

a PaperShredder view for android

PaperShredderView
Author: SMM
Version: 0.01

• PaperShredderView
  Fields:
  • SHREDEDTYPE_PIECE As Int
  • SHREDEDTYPE_SLIP As Int
  • ba As BA
  Methods:
  • BringToFront
  • 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)
  • startAnim (speed As Int)
  • stopAnim
  Properties:
  • Background As Drawable
  • BgColor As Int [write only]
  • Color As Int [write only]
  • Enabled As Boolean
  • Height As Int
  • Left As Int
  • PaperColor As Int [write only]
  • PaperEnterColor As Int [write only]
  • Parent As Object [read only]
  • SherderProgress As Boolean [write only]
  • ShrededType As Int [write only]
    You can use fields SHREDEDTYPE_SLIP or SHREDEDTYPE_PIECE
  • Tag As Object
  • TextColor As Int [write only]
  • TextShadow As Boolean [write only]
  • Title As String [write only]
  • Top As Int
  • Visible As Boolean
  • Width As Int

Sample

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim demo As PaperShredderView
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")
    demo.Initialize("")
    Activity.AddView(demo,0,0,100%x,80%y)
   
    demo.BgColor=Colors.White
    demo.PaperColor=Colors.Yellow
    demo.TextColor=Colors.Red
    demo.PaperEnterColor=Colors.LightGray
    demo.Title="Not deleting"
    demo.SherderProgress=False
    demo.ShrededType=demo.SHREDEDTYPE_PIECE
    demo.startAnim(3000)
   
End Sub