Hi I have a few scrollviews to drill down on products, but when I am trying to design the final display details, I get a strange result?
Initially the price displays ok, but after selecting another product and the label price changes, I get a funny figure appear, as if it is blending the two?
I've attached a before and after image if anyone has any ideas?
Malky
Initially the price displays ok, but after selecting another product and the label price changes, I get a funny figure appear, as if it is blending the two?
I've attached a before and after image if anyone has any ideas?
Malky
B4X:
Sub DisplayDetails(PropId As Int)
Log("Displaying details")
Dim Cursor1 As Cursor
Cursor1 = SQL1.ExecQuery("SELECT properties.id, properties." & language & "_desc as lang, properties.image, properties.price, properties.map, properties.web, properties.email, properties.contact FROM properties WHERE properties.id = " & PropId)
Log("SELECT properties.id, properties." & language & "_desc as lang, properties.image, properties.price, properties.map, properties.web, properties.email, properties.contact FROM properties WHERE properties.id = " & PropId)
Log("sqlRowCount= " & Cursor1.RowCount)
Cursor1.Position = 0
Dim ImageView1 As ImageView
Dim Bitmap1 As Bitmap
Bitmap1.InitializeSample(SD_PATH, Cursor1.GetString("image"),310dip,240dip)
'Dim LabelPrice, lblPrice, LabelContact, LblContact As Label
Dim btnBack As Button
btnBack.Initialize("btnBack")
btnBack.Text = DictionList(11)
btnBack.Textsize=25
pnlDetails.AddView(btnBack,0dip,0dip,pnlDetails.Width,50dip)
ImageView1.Initialize("")
pnlDetails.AddView(ImageView1,0dip,51dip,pnlDetails.Width,240dip)
ImageView1.Bitmap=Bitmap1
ImageView1.Gravity = Gravity.CENTER
LabelPrice.Initialize("")
LabelPrice.TextSize=25
LabelPrice.Color = Colors.Black
LabelPrice.TextColor = Colors.White
LabelPrice.Text = DictionList(24)
pnlDetails.AddView(LabelPrice,2,300dip,100dip,30dip)
lblPrice.Initialize("")
lblPrice.TextSize=25
lblPrice.Color=Colors.Transparent
lblPrice.Text = Cursor1.GetString("price")
Log("Price = " & lblPrice.Text)
pnlDetails.AddView(lblPrice,105dip,300dip,200dip,30dip)
Cursor1.Close
Log("PropDetails Finished!")
pnlDetails.Visible = True
End Sub