Advertisement
jsbsan

dibujo dentro de una imagen

Jul 18th, 2013
1,054
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.63 KB | None | 0 0
  1. 'trozoimagen es un objeto image
  2.   paint.Begin(trozoimagen)
  3.   Paint.DrawImage(Image.Load("transparente550x201.png"), 0, 0)
  4.   Paint.Stroke
  5. ....
  6. ....
  7. 'dibujo de barras
  8. ....
  9.     Paint.MoveTo(l + posX, 1 + posY)
  10.     Paint.lineto(l + posX, bcHeight * 1.2 + posY)
  11.     Paint.Stroke
  12. ....
  13. 'dibujo de textos
  14. ....
  15.   Paint.Text(Left(bcode, 1), posX - barThickness * 6, posY + bcHeight * 1.02 + 25)
  16.   Paint.Text(Mid(bcode, 2, 6), posX + barThickness * 9 + 20, posY + bcHeight * 1.02 + 25)
  17.   Paint.Text(Right(bcode, 6), posX + barThickness * 58, posY + bcHeight * 1.02 + 25)
  18.   Paint.Stroke
  19. ....
  20.  trozoimagen.Save("/tmp/codigoBarras.png")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement