Generare un file immagine da una DrawingArea: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
(Nuova pagina: Per generare un file immagine da una DrawingArea, si può attuare la seguente procedura: * disegno e/o scrivo nella DrawingArea; * [[Printer#Stampare_in_un_file_.pdf_o_.ps|creo il fil...) |
Nessun oggetto della modifica |
||
| Riga 5: | Riga 5: | ||
* utilizzando il file PDF, [[Codice_essenziale_per_mostrare_un_file_PDF|converto la pagina PDF in una Image]] (è necessario attivare il componente gb.pdf); | * utilizzando il file PDF, [[Codice_essenziale_per_mostrare_un_file_PDF|converto la pagina PDF in una Image]] (è necessario attivare il componente gb.pdf); | ||
* quindi salvo detta Image con il suo metodo .Save in un file immagine. | * quindi salvo detta Image con il suo metodo .Save in un file immagine. | ||
Mostriamo di seguito un esempio: | Mostriamo di seguito un esempio: | ||
Versione delle 10:00, 5 feb 2013
Per generare un file immagine da una DrawingArea, si può attuare la seguente procedura:
- disegno e/o scrivo nella DrawingArea;
- creo il file PDF mediante la proprietà .OutputFile della Classe Printer;
- utilizzando il file PDF, converto la pagina PDF in una Image (è necessario attivare il componente gb.pdf);
- quindi salvo detta Image con il suo metodo .Save in un file immagine.
Mostriamo di seguito un esempio:
Public Sub DrawingArea1_Draw()
With Paint
.Brush = Paint.Color(Color.Red)
.MoveTo(200, 200)
.RelLineTo(0, 100)
.Stroke
.DrawText("Testo con DrawText", 10, 10, 20, 20)
.End
End With
End
Public Sub Button1_Click()
With Printer1
.Configure
.Orientation = 0
.Paper = 2
.Resolution = Desktop.Resolution
' Stampa/crea un file .pdf:
.OutputFile = "/tmp/mio_file.pdf"
.Print
End With
End
Public Sub Printer1_Draw()
DrawingArea1_Draw()
End
Public Sub Button2_Click()
Dim pdf As New PdfDocument
Dim i As New Image
With pdf
.Open("/tmp/mio_file.pdf")
' Se il file pdf è stato caricato correttamente...
If .Ready = True Then
' ...allora convertiamo la prima pagina ("indice" delle pagine = 1) in una "Image":
i = pdf[1].Image '.Picture
' Infine salviamo l'Image in un file immagine:
i.Save("/tmp/mio_file.xxx")
Else
Message.Error("<FONT color=darkred>Errore nel caricamento del file PDF !")
Endif
End With
End