B4A Library Qart

Enjoy merging a picture with a text to make a beautiful QR code from this project https://github.com/scola/Qart

@DependsOn(values={"zxing-2.1"}) (included in library attachment )

Qart
Author: SMM
Version: 0.01

• Qart
  Events:
  • _done (result as Bitmap As )
  Methods:
  • Initialize (EventName As String)
  • Merge (txt As String, input As Bitmap, colorful As Boolean, color As Int)

Sample :

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim qart As Qart
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

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")
    qart.Initialize("qart")
    qart.Merge("B4A",LoadBitmap(File.DirAssets,"ba.png"),False,Colors.Yellow)
End Sub
Sub qart_done(b As Bitmap)
    Activity.SetBackgroundImage(b)
End Sub

 

[MarcoRome]

Good work .....