*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="test.scx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment 
 	*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />

	*<PropValue>
		DataSource = .NULL.
		Height = 0
		Left = 0
		Name = "Dataenvironment"
		Top = 0
		Width = 0
	*</PropValue>

ENDDEFINE

DEFINE CLASS form1 AS form 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="frx" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdBrowseFrx" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pdf" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdSaveasPDF" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="encrypt" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="preview" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="userpwd" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="chkPrint" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="chkCopy" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />

	*<PropValue>
		AlwaysOnTop = .F.
		AutoCenter = .T.
		Caption = "Test PDF Listener class"
		DoCreate = .T.
		Height = 348
		Name = "Form1"
		Width = 385
	*</PropValue>

	ADD OBJECT 'chkCopy' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		Caption = "User can copy text/images from document", ;
		Enabled = .F., ;
		FontName = "Tahoma", ;
		FontSize = 8, ;
		Height = 15, ;
		Left = 112, ;
		Name = "chkCopy", ;
		TabIndex = 14, ;
		Top = 220, ;
		Value = .T., ;
		Width = 221
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'chkPrint' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		Caption = "User can print document", ;
		Enabled = .F., ;
		FontName = "Tahoma", ;
		FontSize = 8, ;
		Height = 15, ;
		Left = 112, ;
		Name = "chkPrint", ;
		TabIndex = 13, ;
		Top = 196, ;
		Value = .T., ;
		Width = 135
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'cmdBrowseFrx' AS commandbutton WITH ;
		Caption = "...", ;
		FontName = "Tahoma", ;
		Height = 23, ;
		Left = 304, ;
		Name = "cmdBrowseFrx", ;
		StatusBarText = "Browse For Report", ;
		TabIndex = 3, ;
		ToolTipText = "Browse For Report", ;
		Top = 16, ;
		Width = 28
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'cmdSaveasPDF' AS commandbutton WITH ;
		Caption = "...", ;
		FontName = "Tahoma", ;
		Height = 23, ;
		Left = 304, ;
		Name = "cmdSaveasPDF", ;
		StatusBarText = "Save as", ;
		TabIndex = 6, ;
		ToolTipText = "Save as", ;
		Top = 44, ;
		Width = 28
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		Caption = "\<Run report", ;
		FontName = "Tahoma", ;
		FontSize = 8, ;
		Height = 27, ;
		Left = 72, ;
		Name = "Command3", ;
		StatusBarText = "Runs the Report", ;
		TabIndex = 15, ;
		ToolTipText = "Runs the Report", ;
		Top = 280, ;
		Width = 84
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command4' AS commandbutton WITH ;
		Cancel = .T., ;
		Caption = "\<Cancel", ;
		FontName = "Tahoma", ;
		FontSize = 8, ;
		Height = 27, ;
		Left = 192, ;
		Name = "Command4", ;
		StatusBarText = "Closes the Window", ;
		TabIndex = 16, ;
		ToolTipText = "Closes the Window", ;
		Top = 280, ;
		Width = 84
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'encrypt' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		Caption = "Encrypt PDF.", ;
		FontName = "Tahoma", ;
		FontSize = 8, ;
		Height = 15, ;
		Left = 120, ;
		Name = "encrypt", ;
		StatusBarText = "If Checked PDF Will Be Encrypted", ;
		TabIndex = 8, ;
		ToolTipText = "If Checked PDF Will Be Encrypted", ;
		Top = 96, ;
		Value = .F., ;
		Width = 81
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'frx' AS textbox WITH ;
		FontName = "Tahoma", ;
		FontSize = 8, ;
		Height = 23, ;
		Left = 76, ;
		Name = "frx", ;
		StatusBarText = "Report File Name", ;
		TabIndex = 2, ;
		ToolTipText = "Report File Name", ;
		Top = 16, ;
		Width = 213
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		Caption = "FRX", ;
		FontName = "Tahoma", ;
		FontSize = 8, ;
		Height = 15, ;
		Left = 25, ;
		Name = "Label1", ;
		StatusBarText = "Report File Name", ;
		TabIndex = 1, ;
		ToolTipText = "Report File Name", ;
		Top = 19, ;
		Width = 21
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		Caption = "PDF File ", ;
		FontName = "Tahoma", ;
		FontSize = 8, ;
		Height = 15, ;
		Left = 24, ;
		Name = "Label2", ;
		StatusBarText = "Name of the PDF File to Create", ;
		TabIndex = 4, ;
		ToolTipText = "Name of the PDF File to Create", ;
		Top = 48, ;
		Width = 43
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Password to open:", ;
		FontName = "Tahoma", ;
		FontSize = 8, ;
		Height = 15, ;
		Left = 48, ;
		Name = "Label4", ;
		StatusBarText = "PDF Document User Password", ;
		TabIndex = 11, ;
		ToolTipText = "PDF Document User Password", ;
		Top = 164, ;
		Width = 92
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Permissions/encryption", ;
		FontName = "Tahoma", ;
		FontSize = 8, ;
		Height = 15, ;
		Left = 36, ;
		Name = "Label5", ;
		StatusBarText = "Name of the PDF File to Create", ;
		TabIndex = 17, ;
		ToolTipText = "Name of the PDF File to Create", ;
		Top = 124, ;
		Width = 112
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'pdf' AS textbox WITH ;
		FontName = "Tahoma", ;
		FontSize = 8, ;
		Height = 23, ;
		Left = 76, ;
		Name = "pdf", ;
		StatusBarText = "Name of the PDF File to Create", ;
		TabIndex = 5, ;
		ToolTipText = "Name of the PDF File to Create", ;
		Top = 44, ;
		Value = output.pdf, ;
		Width = 213
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'preview' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		Caption = "Preview in Adobe Reader", ;
		FontName = "Tahoma", ;
		FontSize = 8, ;
		Height = 15, ;
		Left = 120, ;
		Name = "preview", ;
		StatusBarText = "If Checked PDF  Reader Will Be Opened", ;
		TabIndex = 7, ;
		ToolTipText = "If Checked PDF  Reader Will Be Opened", ;
		Top = 76, ;
		Value = .T., ;
		Width = 139
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		Height = 136, ;
		Left = 28, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Style = 3, ;
		Top = 132, ;
		Width = 328
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'userpwd' AS textbox WITH ;
		Enabled = .F., ;
		FontName = "Tahoma", ;
		FontSize = 8, ;
		Height = 23, ;
		Left = 152, ;
		Name = "userpwd", ;
		StatusBarText = "PDF Document User Password", ;
		TabIndex = 12, ;
		ToolTipText = "PDF Document User Password", ;
		Top = 160, ;
		Width = 104
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE cmdBrowseFrx.Click
		Thisform.frx.Value = GetFile("frx")
		
	ENDPROC

	PROCEDURE cmdSaveasPDF.Click
		Thisform.pdf.Value = Putfile("Save generated PDF as:","","pdf")
	ENDPROC

	PROCEDURE Command3.Click
		local oL as pdflistener of pdflistener.prg
		
		*set path to correctly initialize PDF Listener, as it is based on UpdateListener
		set path to REPORTOUTPUT 
		
		if Empty(thisform.frX.Value) or Empty(thisform.pdf.Value)
			wait window 'Nothing to do!' nowait 
			return
		endif
		
		oL = Newobject('pdflistener','pdflistener.prg')
		
		oL.enable_copy = thisform.chkCopy.Value 
		oL.enable_print = thisform.chkPrint.Value
		
		oL.user_passwd = Trim(thisform.userpwd.Value) 
		
		if thisform.preview.Value 
			report form (thisform.frx.Value) preview object oL
		else
			report form (thisform.frx.Value) object oL
		endif 
		
		
		
	ENDPROC

	PROCEDURE Command4.Click
		Thisform.Release
	ENDPROC

	PROCEDURE encrypt.Valid
		store this.Value to ;
			thisform.chkCopy.Enabled  ;
			,thisform.chkPrint.Enabled  ;
			,thisform.userpwd.Enabled  
		
	ENDPROC

ENDDEFINE