Hi Pritpal!

I managed to isolate the line where the User double-clicked. All that
is needed to isolate the filename and line error when available ...
Here is the snippet of code that changed:

METHOD IdeDocks:outputDoubleClicked( lSelected )
   LOCAL qCursor
   LOCAL cCRLF := Chr(13) + Chr(10)
   LOCAL nStart := 1
   LOCAL nEnd   := 0
   LOCAL cText
   LOCAL nPos

   IF lSelected
      ::nPass++
      IF ::nPass == 1
         qCursor := QTextCursor():configure(
::oOutputResult:oWidget:textCursor() )
         HB_TRACE( HB_TR_ALWAYS, "METHOD
IdeDocks:outputDoubleClicked()", lSelected, qCursor:blockNumber() )

         nPos  := qCursor:selectionStart()
         cText := ::oOutputResult:oWidget:toPlainText()

         FOR nPos := nPos TO 0 STEP -1
             IF Subst( cText, nPos, 1 ) $ cCRLF
                nStart := nPos+1
                Exit
             Endif
         Next

         FOR nPos := nPos+1 TO Len( cText )
             IF Subst( cText, nPos, 1 ) $ cCRLF
                nEnd := nPos
                Exit
             Endif
         Next

         IF nEnd == 0
            RETURN Self
         Endif

         cText := Subst( cText, nStart, nEnd - nStart  )

         msgbox( cText )

      ENDIF
      IF ::nPass >= 2
         ::nPass := 0
      ENDIF
   ENDIF
   RETURN Self

Brgds,
Vailton Renato
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to