Code: Select all
Private Sub PXV_Control_OnEvent(ByVal nEventID As Long, ByVal pEvent As PDFXEditCtl.IEvent, ByVal pFrom As 0)
End Sub
Moderators: TrackerSupp-Daniel, Tracker Support, Paul - Tracker Supp, Vasyl-Tracker Dev Team, Chris - Tracker Supp, Sean - Tracker, Ivan - Tracker Software, Tracker Supp-Stefan
Code: Select all
Private Sub PXV_Control_OnEvent(ByVal nEventID As Long, ByVal pEvent As PDFXEditCtl.IEvent, ByVal pFrom As 0)
End Sub
Code: Select all
Private Sub Editor_OnEvent(ByVal nEventID As Long, ByVal pEvent As PDFXEditCtl.IEvent, ByVal pFrom As Object)
'Editor_OnEvent nEventID, pEvent '
On Error Resume Next
txtEvents.Text = pEvent.ID & " " & AxPXV_Control1.Inst.ID2Str(pEvent.ID) & " Param1=" & pEvent.Param1 & " Param2=" & pEvent.Param2 & vbCrLf & txtEvents.Text
If pEvent.ID = AxPXV_Control1.Inst.Str2ID("e.document.toolActivated") Then
txtEvents.Text = "toolActivated " & AxPXV_Control1.doc.ActiveTool.ID & AxPXV_Control1.doc.ActiveTool.Name & vbCrLf & txtEvents.Text
ElseIf pEvent.ID = AxPXV_Control1.Inst.Str2ID("e.commentStylesChanged") Then
txtEvents.Text = "Changed " & AxPXV_Control1.Inst.ID2Str(pEvent.Param1) & vbCrLf & txtEvents.Text
ElseIf pEvent.ID = AxPXV_Control1.Inst.Str2ID("e.beginPropDialog") Then
txtEvents.Text = "Begin prop dialog" & AxPXV_Control1.Inst.ID2Str(pEvent.Param1) & vbCrLf & txtEvents.Text
Dim ps As IUIX_PropSheets
Set ps = pFrom
If Not ps Is Nothing Then
If StrComp(ps.ID, "DlgAppPrefs", vbTextCompare) = 0 Then
txtEvents.Text = "DlgAppPrefs shown" & vbCrLf & txtEvents.Text
ps.RemovePage "DlgAppPrefs.CustomUI"
End If
End If
End If
End Sub
Code: Select all
Private Sub PDFEditor_OnEvent(ByVal nEventID As Long, ByVal pEvent As PDFXEditCtl.IEvent, ByVal pFrom As 0)
On Error Resume Next
Call MyPDFEditorOnEvent(nEventID, pEvent, pFrom)
End Sub
Code: Select all
Private Sub MyPDFEditorOnEvent(ByVal nEventID As Long, ByVal pEvent As PDFXEditCtl.IEvent, ByVal pFrom As Object)
'Your code to do whatever here '
End Sub
Code: Select all
Private Sub PDFEditor_OnEvent(ByVal nEventID As Long, ByVal pEvent As PDFXEditCtl.IEvent, ByVal pFrom As 0)
'Copy these 2 lines of text in everytime you recreate the event
On Error Resume Next
Call PDFEditorOnEvent(nEventID, pEvent, pFrom)
End Sub
'And the sub I created to handle everything
Private Sub PDFEditorOnEvent(ByVal nEventID As Long, ByVal pEvent As PDFXEditCtl.IEvent, ByVal pFrom As Variant)
On Error Resume Next
End Sub
Many thanks for these consistently open words. We appreciate that and will return to your website some months later. Maybe there will be some positive news.John - Tracker Supp wrote: ↑Thu Aug 15, 2019 3:07 pm On a slightly more positive note - we may have found a method to allow us to continue to provide our SDK's going forward and may well review this decision in the coming months.
Being blunt - it was not simply an economic decision, but one based on serious issues we are having with developer's in the far east using our SDK's in a manner completely outside of the terms and conditions of the SDK Licensing - without any ability to pursue legal recourse to block such use as country's like china operate outside of accepted western norm's and accepted practices and make it all but impossible for companies outside of China to seek satisfaction and redress when the laws are abused by its citizens.