Differenze tra le versioni di "Creare un file PDF da un file immagine con le risorse del Componente gb.cairo"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "In questa pagina vediamo come creare un file PDF partendo da un file immagine usando le risorse del Componente ''gb.cairo''. Per l'esempio che segue sarà necessario attivare...") |
|||
| Riga 1: | Riga 1: | ||
| − | In questa pagina vediamo come creare un file PDF partendo da un file immagine usando le risorse del Componente ''gb.cairo''. | + | In questa pagina vediamo come creare un file PDF partendo da un file immagine e usando le risorse del Componente ''gb.cairo''. |
Per l'esempio che segue sarà necessario attivare i Componenti ''gb.cairo'', ''gb.image'' e ''gb.image.io'', e si userà un file immagine jpg: | Per l'esempio che segue sarà necessario attivare i Componenti ''gb.cairo'', ''gb.image'' e ''gb.image.io'', e si userà un file immagine jpg: | ||
Versione delle 16:34, 5 apr 2020
In questa pagina vediamo come creare un file PDF partendo da un file immagine e usando le risorse del Componente gb.cairo.
Per l'esempio che segue sarà necessario attivare i Componenti gb.cairo, gb.image e gb.image.io, e si userà un file immagine jpg:
Public Sub Main()
Dim pdf As CairoPdfSurface
Dim im As Image
' Specifica in "millimetri" la superficie grafica da creare per disegnarvi sopra:
pdf = New CairoPdfSurface("/percorso/del/file.pdf", 210.0, 297.0)
' Inizia il disegno sulla superficie impostata:
Cairo.Begin(pdf)
' Viene caricata l'immagine JPG:
im = Image.Load("/percorso/del/file/immagine.jpg")
' Non imposta alcuna modifica scalare all'immagine jpg:
Cairo.Scale(1, 1)
' Imposta il margine superiore sinistro dell'immagine rispetto alla futura pagina PDF:
Cairo.Source = Cairo.ImagePattern(im, 0, 0)
' Fissa l'immagine jpg sulla superficie PDF:
Cairo.Paint
' Termina il disegno:
Cairo.End
End
