Codice relativo ad un oggetto

[Franco_da_vc]

Sto esaminando il codice relativo a PdfWriter, per la verità sarebbe il codice relativo al vecchio listato che includeva i componenti ora deprecati, in PrintPdf ho trovato le seguenti linee:

Codice: [Seleziona]

Private hPdf As PdfDocument

Codice: [Seleziona]

Dim Pdf As Object

 Randomize 

 pdf = Object.New(name_Report, [formato[0], formato[1], formato[2]])
 pdf.Open()
 pdf.AliasNbPages()
 pdf.Data(data1, data2, data3)
 pdf.Output(MyReport, False)

Chiaramente in questa Dim si va a definire Pdf come oggetto, quello che non riesco a capire è dove è scritto il codice relativo all'oggetto visto che poco più avanti ho trovato queste altre linee:

Codice: [Seleziona]

Public Sub btzoomin_Click()
  If Not hPdf Then Return
  hPdf.Zoom *= Sqr(1.2)
  RefreshPage
End

Public Sub btzoomout_Click()
  If Not hPdf Then Return
  hPdf.Zoom /= Sqr(1.2)
  RefreshPage
End

Public Sub btzoomin2_Click()
  If Not hPdf Then Return
  hPdf.Zoom = 1
  RefreshPage
End

Vi ringrazio!

[Gianluigi]

Scusa ma non ho capito cosa chiedi.
Ma a te il programma riscritto da Golia, che trovi qui:
https://www.gambas-it.org/smf/index.php?topic=1056.msg52912#msg52912
Non funziona?

[Franco_da_vc]

Certo che funziona e va bene! ma non ha le funzioni su cui sto ragionando!

[Gianluigi]

Certo che funziona e va bene! ma non ha le funzioni su cui sto ragionando!

Cioè vorresti aggiungere lo zoom all'anteprima?

[Franco_da_vc]

Si, perché nella vecchia versione era contemplato e quindi trovo giusto inserirla anche nel mio fork.

[Gianluigi]

Si, perché nella vecchia versione era contemplato e quindi trovo giusto inserirla anche nel mio fork.

Qui c'è una pagina della nostra wiki:
https://www.gambas-it.org/wiki/index.php/Codice_essenziale_per_mostrare_un_file_PDF_con_le_risorse_del_Componente_gb.poppler
Troverai anche un mio codice, presente anche nella Farm con il nome DocumentViewPdfZoomDialog