El resultado es una imagen llena de garabatos y líneas sin ningún sentido.
Supongo que algo estoy haciendo mal, pero no veo nada en la documentación que me explique adecuadamente como usar estos componentes.
También sobre un picture y usando la instrucción Draw, escribo un texto y salvo la imagen, cosa que me hace correctamente, pero la resolución que me da es muy baja y se ve bastante borroso, ¿hay forma de solucionar esto?. Pongo ejemplo.
PUBLIC SUB Imagen_Texto()
DIM vValor AS Integer
DIM hPicture AS Picture
hPicture = NEW Picture(96, 24, 0)
hPicture.Fill(Color.White)
Draw.Begin(hPicture) 'inicio el draw con objeto de picture
Draw.FillStyle = Fill.Solid
Draw.FillColor = Color.Black 'indico color negro
Draw.BackColor = Color.White
Draw.Background = Color.White
Draw.Font.Name = "Lucida"
Draw.Font.Bold = TRUE
Draw.Font.Italic = FALSE
Draw.Font.Size = "10"
Draw.Font.StrikeOut = FALSE
Draw.Font.Underline = FALSE
Draw.Text("HOLA", 5, 5, 10, 10)
Draw.End
hPicture.Save("/home/fernando/pictureTxt.jpg")
END
DIM vValor AS Integer
DIM hPicture AS Picture
hPicture = NEW Picture(96, 24, 0)
hPicture.Fill(Color.White)
Draw.Begin(hPicture) 'inicio el draw con objeto de picture
Draw.FillStyle = Fill.Solid
Draw.FillColor = Color.Black 'indico color negro
Draw.BackColor = Color.White
Draw.Background = Color.White
Draw.Font.Name = "Lucida"
Draw.Font.Bold = TRUE
Draw.Font.Italic = FALSE
Draw.Font.Size = "10"
Draw.Font.StrikeOut = FALSE
Draw.Font.Underline = FALSE
Draw.Text("HOLA", 5, 5, 10, 10)
Draw.End
hPicture.Save("/home/fernando/pictureTxt.jpg")
END
Gracias de antemano.
Un saludo