fix off by one error in page index

This commit is contained in:
Jonathan Jenne 2023-12-11 10:10:32 +01:00
parent bc178caec1
commit fd4dd8b457

View File

@ -119,7 +119,7 @@ Namespace Jobs
Try
Dim oSegments = pAnnotation.lines.points
Dim oColor = ColorTranslator.FromHtml(pAnnotation.strokeColor)
Manager.SelectPage(pAnnotation.pageIndex)
Manager.SelectPage(pAnnotation.pageIndex + 1)
For Each oSegment As List(Of List(Of Single)) In oSegments
Dim oPoints = oSegment.