MouseUp-Event fires too early

[Dorwol]

Hello,

thank you for implementing the "Notifications.Mouse" Event. But if I'll check, if the user has select something to "cut", your event fires too early.

For Example:

Private Sub vwViewer_OnEvent(ByVal nType As Long ...)
Dim vState As Variant
vwViewer.GetProperty "Commands[""Cut""].State", vState
Debug.Print vState
End Sub

...if you select something that's normaly possible to cut (like a TextFieldBox), the vState will have "0" ;-(
Only if I select the TextBox once again, your vState will have "1" - because it is the result of the first MouseUp.

If this event is not possible for you to fix, can you spend a "SomethingSelected"-Event as alternative?

BTW: THANK YOU FOR GREAT SUPPORT!

[Vasyl - PDF-XChange]

We will add new feature in the next build:
new named notification(example, VB6):

Code: Select all

Call CoPDFXCview1.SetProperty("Notifications.Selection.Filter", -1) 'about all selection changes
Private Sub CoPDFXCview1_OnEvent(ByVal nType As Long, ByVal Name As String, ByVal DataIn As Variant, DataOut As Variant, ByVal Flags As Long)
    If nType = PXCVA_EventTypes.PXCVA_OnNamedNotify Then
        If Name = "Notifications.Selection" Then
            Dim dataOut As Variant
            Dim docID As Integer
            Call CoPDFXCview1.GetProperty("Notifications.Selection.Document", dataOut)
            docID = vDataOut
        End If
    End If
Exit Sub

In your case you may catch "Notifications.Mouse" with "Notifications.Mouse.msg"=WM_LBUTTONUP in current realization.

[Dorwol]

PERFECT!

[John - Tracker Supp]

[millerna]

I am experiencing what I think is a similar problem.

Code: Select all

     spMouse.GetProperty('msg', vDataOut, 0); msg := vDataOut;
      if msg = WM_LBUTTONUP then
      begin
        Result := '';
        try
          Script := 'var OutStr = 0; var AnnotsOnPage = this.getAnnots(0);'
                   +'if (AnnotsOnPage != null) OutStr = AnnotsOnPage.length; OutStr;';
          CoPDFXCview1.RunJavaScript(Script,Result,0,0);
        except ShowMessage('This JavaScript Failed' +#13#10+ Script); end;
        Memo1.Lines.add(Result);
      end;

If I have the rectangle tool selected, the first time the code above executes, result = 0, but there is actually one rectangle annotation visible on the page. If I draw a second rectangle, result = 1.
Please advise.

Thank you

[Ivan - Tracker Software]

When the mouse event WM_LBUTTONUP occured, the annotation had not yet been added to the page.