Help needed with Documentview

Post

Posted
Rating:
#1 (In Topic #321)
bill-lancaster
Regular
bill-lancaster is in the usergroup ‘Regular’
 Can't see how to open/load a document with this control.
Have downloaded an example from the farm but can't extract it.(No suitable plugin found. Ark does not seem to support this file type).
Any help would be appreciated
Online now: No Back to the top

Post

Posted
Rating:
#2
bill-lancaster
Regular
bill-lancaster is in the usergroup ‘Regular’
 The reason I can't extract the download file is because it is empty.  Have downloaded several files from the farm and they are all empty files.
Online now: No Back to the top

Post

Posted
Rating:
#3
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
Hi Bill,

I don't think the files on the Farm are empty! I have Downloaded the documentView example and put it in a format I hope you can read. Let us know how you get on.

Attachment

EDIT (2019-10-15 01:30GMT)
(No suitable plugin found. Ark does not seem to support this file type)
I notice that Ark is discontinued as a distribution, why not try Kubuntu, that will have no trouble opening files on the Farm.

I have taken some of the code from the example program to make a simple example of my own.
Just start a new 'Graphical Application' add the component 'gb.pdf' and run this code.

Code (gambas)

  1. ' Gambas class file
  2.  
  3. hDoc As New PdfDocument ''Requires component 'gb.pdf'
  4. DocumentView1 As DocumentView
  5.  
  6. Public Sub Form_Open()
  7.  
  8. SetUp
  9. Start
  10.  
  12.  
  13. Public Sub Start()
  14.  
  15. Dialog.Filter = ["*.pdf", "PdfFiles"]
  16. If Not Dialog.OpenFile() Then Try hDoc.Open(Dialog.Path)
  17.  
  18. DocumentView1.Count = hDoc.Count  
  19.  
  21.  
  22. Public Sub DocumentView1_Draw(Page As Integer, Width As Integer, Height As Integer)
  23.  
  24. Paint.DrawImage(hDoc[Page + 1].Image, 0, 0, Paint.Width, Paint.Height)
  25.  
  27.  
  28. Public Sub DocumentView1_Zoom()
  29.  
  30. hDoc.Zoom = Last.Zoom
  31.  
  33.  
  34. Public Sub SetUp()
  35.  
  37.   .Height = 800
  38.   .Width = 1000
  39.   .Arrangement = Arrange.Vertical
  40.   .Padding = 5
  42.  
  43. With DocumentView1 = New DocumentView(Me) As "DocumentView1"
  44.   .Expand = True
  46.  
  48.  
  49. Public Sub Form_Resize()
  50.  
  51. DocumentView1.column = 1
  52. DocumentView1.Refresh
  54.  
  55.  
  57.  
Online now: No Back to the top

Post

Posted
Rating:
#4
bill-lancaster
Regular
bill-lancaster is in the usergroup ‘Regular’
 Thank you cogier, that file worked fine.
I'm using Kubuntu 18.04 and Ark is the only option that I'm ware of and presumably the error is caused by an empty zip file.
Thanks again
Online now: No Back to the top
1 guest and 0 members have just viewed this.