Android Question Result of the views is not equal

[Theera]

I have studied the code. the first view was added by the designer and the last view was added by coding.
the result of the views is not the same.

My target : I would like to make it smaller by coding

 

[PaulMeuris]

Can you put the library files core-3.2.1.jar and core-3.2.1.xml in a zip-file and post that zip-file here?
This way your project can be tested.

 

[Theera]

Can you put the library files core-3.2.1.jar and core-3.2.1.xml in a zip-file and post that zip-file here?
This way your project can be tested.

There is only core-3.2.1.jar file as https://ufile.io/5hg7xwpj

 

[PaulMeuris]

The gravity was set in the designer to "fill" so you have to do the same in the code.

    ImageView2.Initialize("ImageView2")
    ImageView2.Gravity = Gravity.FILL
    ImageView2.Bitmap = aqrc.render

 

[Theera]

The gravity was set in the designer to "fill" so you have to do the same in the code.

    ImageView2.Initialize("ImageView2")
    ImageView2.Gravity = Gravity.FILL
    ImageView2.Bitmap = aqrc.render

View attachment 140283

Could I create and resize awesomeqrcode by coding without view designed template?

 

[DonManfred]

Could I create and resize awesomeqrcode by coding without view designed template?

[B4X] I need 100 <custom view here>s. How to add programmatically?

Custom views are designed to be added with the designer. It is however very simple to create a layout file with the custom view and load it multiple times. Tip: remove the call to AutoScaleAll from the designer script. Complete example: Sub Globals Private B4XSwitch1 As B4XSwitch End...

www.b4x.com

 

[PaulMeuris]

Could I create and resize awesomeqrcode by coding without view designed template?

You could use a CustomListView (XUI Views library) as the only view that is in the layout (generate member from the designer).
The rest of the code you can write in subroutines as follows:

Sub Activity_Resume
    For i = 0 To 4
        Dim contentstr As String = "000201" & i
        Dim backgrbmp As Bitmap = bm
        Dim logobmp As Bitmap = bm1
        Dim qrcode As AwesomeQRCode_1 = create_qrcode(contentstr,backgrbmp,logobmp)
        Dim pnl As Panel = set_clv_item(qrcode,150dip,150dip)
        clv.Add(pnl,contentstr)
    Next
    Activity.RemoveAllViews
    Activity.AddView(clv.AsView,0dip,0dip,clv.AsView.Width,clv.AsView.Height)
End Sub

Sub set_clv_item(qrc As AwesomeQRCode_1,ivwidth As Int, ivheight As Int) As Panel
    Dim pnl As Panel
    pnl.Initialize("")
    pnl.SetLayout(0dip,0dip,ivwidth,ivheight)
    Dim iv As ImageView
    iv.Initialize("")
    iv.SetLayout(0dip,0dip,ivwidth,ivheight)
    iv.Gravity = Gravity.FILL
    iv.Bitmap = qrc.render
    pnl.AddView(iv,0dip,0dip,ivwidth,ivheight)
    Return pnl
End Sub

Sub create_qrcode(contentstring As String,backgroundbitmap As Bitmap,logobitmap As Bitmap) As AwesomeQRCode_1
    Dim aqrc As AwesomeQRCode_1
    aqrc.Initialize("")
    aqrc.autoColor(True)
    aqrc.contents(contentstring)
    aqrc.background(backgroundbitmap)
    aqrc.dotScale(0.8)
    aqrc.logoScale(0.35)
    aqrc.logoMargin(20)
    aqrc.logoRadius(10)
    aqrc.logo(logobitmap)  'ไม่ใส่ logo  ต้องการรูป Backgroud เท่านั้น
    aqrc.binarizeThreshold(128)
    aqrc.binarize(False)
    aqrc.colorDark(Colors.Black)
    aqrc.colorLight(Colors.White)
    aqrc.margin(30)
    aqrc.roundedDots(True)
    aqrc.whiteMargin(True)
    Return aqrc
End Sub


Private Sub clv_ItemClick (Index As Int, Value As Object)
    Log(Value)        ' content from qr-code
End Sub