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