Hi all
I've done a new widget for may how needs and push it in gb.form.
DocumentView is done to make easy to create viewer for different kind
of documents.
This is an example for a pdf.
' Gambas class file
Private hpdf As New PdfDocument
Public Sub Form_Open()
hpdf.Open("/home/fabien/Downloads/IntroProgBash.pdf")
DocumentView31.Count = hpdf.Count
End
Public Sub DocumentView31_Layout(Page As Integer)
Last.Layout.Height = hpdf[Page + 1].Height / 0.72
Last.Layout.Width = hpdf[Page + 1].Width / 0.72
End
Public Sub DocumentView31_Draw(Page As Integer, Width As Integer,
Height As Integer)
Draw.Image(hpdf[Page + 1].Image, 0, 0)
End
Public Sub DocumentView31_Zoom()
hpdf.Zoom = Last.Zoom / 0.72
End
As always ... there is bugs... and i want this simple widget to be
usefull for many. So tell me if you see bugs or for ask for some
features. Remember that this component must be as simple as possible.
As alway... forgive me for my bad english and for my spelling faults
Best regards,
--
Fabien Bodard
------------------------------------------------------------------------------
Comprehensive Server Monitoring with Site24x7.
Monitor 10 servers for $9/Month.
Get alerted through email, SMS, voice calls or mobile push notifications.
Take corrective actions from your mobile device.
http://pubads.g.doubleclick.net/gampad/clk?id=154624111&iu=/4140/ostg.clktrk
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
