\' Gambas class file
Public Sub _new()
End
Public Sub Form_Open()
PictureBox1.Picture = Picture.Load(Application.path & "/ejemplo.svg")
LabelSalida.text = User.home & "/ejemploRelleno.svg"
End
Public Sub ButtonRellenar_Click()
dibujar()
End
Public Sub dibujar()
Dim hSvgImage As SvgImage
Try Kill User.home & "/ejemploRelleno.svg"
hSvgImage = SvgImage.Load(Application.path & "/ejemplo.svg")
Paint.Begin(hSvgImage)
Paint.DrawRichText("<h1> <font color=\\"red\\"> " & TextBoxTitulo.text & "</font></h1>", 150, 50, 200, 200)
Paint.DrawRichText("<h2><u>" & TextBoxSubtitulo.text & "</u></h2>", 150, 130, 200, 200)
Paint.LineWidth = 1
Paint.Rectangle(290, 140, 50, 50)
Paint.FillRect(310, 150, 25, 25, Color.Orange)
Paint.moveto(290, 140)
Paint.LineTo(310, 150)
Paint.MoveTo(290, 190)
Paint.LineTo(310, 175)
Paint.Stroke()
Paint.End
hSvgImage.Save(User.home & "/ejemploRelleno.svg")
Wait 0.1
PictureBox1.Picture = Picture.Load(User.home & "/ejemploRelleno.svg")
End
Public Sub ButtonLimpiar_Click()
\'cargo el archivo plantilla sin modificacion
PictureBox1.Picture = Picture.Load(Application.path & "/ejemplo.svg")
End