imvonewaydetailing.Initialize("emptybmp")
Activity.AddView(imvonewaydetailing, x, y, wc, hc)
So what can I do to correct that mistake sir?Ok, two issues that I can see.
You Initialize the ImageView that was added by the designer.
B4X:imvonewaydetailing.Initialize("emptybmp")
And you then re-add the Imageview to the activity rather than using the one created in the designer.
B4X:Activity.AddView(imvonewaydetailing, x, y, wc, hc)
Error occured when i remove that 2 lines...Delete these two lines. Or comment them out!
Sub simplydetail_Click
onewaydetailing.Initialize(File.DirAssets,"onewayslabdetailing.bmp")
'imvonewaydetailing.Initialize("emptybmp")
imvonewaydetailing.Bitmap = onewaydetailing
' Dim x, y, wc, hc As Float
'
' wc = onewaydetailing.width * 100dip /100
' hc = onewaydetailing.Height * 100dip /100
' x = (100%x - wc)/3
' y = (100%y - hc)/3.5
'Activity.AddView(imvonewaydetailing, x, y, wc, hc)
simplydetailingdetails.AddTextItem("1. H"& maindiameter.Text & " - " & mainspacing.Text,"1")
simplydetailingdetails.AddTextItem("2. H"& secondarydiameter.Text & " - " & secondaryspacing.Text,"2")
End Sub
Sub continuousdetail_Click
continuousdetailing.Initialize(File.DirAssets,"continuousdetailing.bmp")
'imvcontinuousdetailing.Initialize("")
'below changed to imvonewaydetailing
imvonewaydetailing.Bitmap = continuousdetailing
' Dim x, y, wc, hc As Float
'
' wc = continuousdetailing.width * 100dip /100
' hc = continuousdetailing.Height * 100dip /100
' x = (100%x - wc)/3
' y = (100%y - hc)/3.5
'Activity.AddView(imvcontinuousdetailing, x, y, wc, hc)
simplydetailingdetails.AddTextItem("1. H" & nearmiddleendspanbar.Text & " - " & nearmiddleendspanbarspacing.Text, "1")
simplydetailingdetails.AddTextItem("2. H" & firstinteriorsupportbar.Text & " - " & firstinteriorsupportbarspacing.Text, "2")
simplydetailingdetails.AddTextItem("3. H" & interiorsupportandspanbar.Text & " - " & interiorsupportandspanbarspacing.Text, "3")
simplydetailingdetails.AddTextItem("4. H" & interiorsupportandspanbar.Text & " - " & interiorsupportandspanbarspacing.Text, "4")
simplydetailingdetails.AddTextItem("5. H" & outersupportbar.Text & " - " & outersupportbarspacing.Text, "5")
simplydetailingdetails.AddTextItem("6. H" & secondarydiameter.Text & " - " & secondaryspacing.Text, "6")
simplydetailingdetails.AddTextItem("7. H" & secondarydiameter.Text & " - " & secondaryspacing.Text, "7")
simplydetailingdetails.AddTextItem("8. H" & secondarydiameter.Text & " - " & secondaryspacing.Text, "8")
simplydetailingdetails.AddTextItem("9. H" & secondarydiameter.Text & " - " & secondaryspacing.Text, "9")
simplydetailingdetails.AddTextItem("10. H" & secondarydiameter.Text & " - " & secondaryspacing.Text, "10")
End Sub
Yea it works like a charm! Thx mateThe following code works for me, notice the commented out lines that were not needed and code modified to reuse the same ImageView.
B4X:Sub simplydetail_Click onewaydetailing.Initialize(File.DirAssets,"onewayslabdetailing.bmp") 'imvonewaydetailing.Initialize("emptybmp") imvonewaydetailing.Bitmap = onewaydetailing ' Dim x, y, wc, hc As Float ' ' wc = onewaydetailing.width * 100dip /100 ' hc = onewaydetailing.Height * 100dip /100 ' x = (100%x - wc)/3 ' y = (100%y - hc)/3.5 'Activity.AddView(imvonewaydetailing, x, y, wc, hc) simplydetailingdetails.AddTextItem("1. H"& maindiameter.Text & " - " & mainspacing.Text,"1") simplydetailingdetails.AddTextItem("2. H"& secondarydiameter.Text & " - " & secondaryspacing.Text,"2") End Sub Sub continuousdetail_Click continuousdetailing.Initialize(File.DirAssets,"continuousdetailing.bmp") 'imvcontinuousdetailing.Initialize("") 'below changed to imvonewaydetailing imvonewaydetailing.Bitmap = continuousdetailing ' Dim x, y, wc, hc As Float ' ' wc = continuousdetailing.width * 100dip /100 ' hc = continuousdetailing.Height * 100dip /100 ' x = (100%x - wc)/3 ' y = (100%y - hc)/3.5 'Activity.AddView(imvcontinuousdetailing, x, y, wc, hc) simplydetailingdetails.AddTextItem("1. H" & nearmiddleendspanbar.Text & " - " & nearmiddleendspanbarspacing.Text, "1") simplydetailingdetails.AddTextItem("2. H" & firstinteriorsupportbar.Text & " - " & firstinteriorsupportbarspacing.Text, "2") simplydetailingdetails.AddTextItem("3. H" & interiorsupportandspanbar.Text & " - " & interiorsupportandspanbarspacing.Text, "3") simplydetailingdetails.AddTextItem("4. H" & interiorsupportandspanbar.Text & " - " & interiorsupportandspanbarspacing.Text, "4") simplydetailingdetails.AddTextItem("5. H" & outersupportbar.Text & " - " & outersupportbarspacing.Text, "5") simplydetailingdetails.AddTextItem("6. H" & secondarydiameter.Text & " - " & secondaryspacing.Text, "6") simplydetailingdetails.AddTextItem("7. H" & secondarydiameter.Text & " - " & secondaryspacing.Text, "7") simplydetailingdetails.AddTextItem("8. H" & secondarydiameter.Text & " - " & secondaryspacing.Text, "8") simplydetailingdetails.AddTextItem("9. H" & secondarydiameter.Text & " - " & secondaryspacing.Text, "9") simplydetailingdetails.AddTextItem("10. H" & secondarydiameter.Text & " - " & secondaryspacing.Text, "10") End Sub