fix(pdfburner): correct page indexing for annotation rendering

- Removed unnecessary +1 offset in Manager.SelectPage calls for image and ink annotations
- Ensured correct page index is used when adding annotations and form field values
- Improved annotation rendering accuracy when burning to PDF
This commit is contained in:
2025-10-28 10:48:15 +01:00
parent 7041a4694a
commit 0ce7ae9494

View File

@@ -161,7 +161,7 @@ Namespace Jobs.FinalizeDocument
End Sub
Private Sub AddImageAnnotation(x As Double, y As Double, width As Double, height As Double, page As Integer, base64 As String)
Manager.SelectPage(page + 1)
Manager.SelectPage(page)
Manager.AddEmbeddedImageAnnotFromBase64(base64, x, y, width, height)
End Sub
@@ -187,7 +187,7 @@ Namespace Jobs.FinalizeDocument
Dim oSegments = ink.lines.points
Dim oColor = ColorTranslator.FromHtml(ink.strokeColor)
Manager.SelectPage(page + 1)
Manager.SelectPage(page)
For Each oSegment As List(Of List(Of Single)) In oSegments
Dim oPoints = oSegment.
@@ -219,7 +219,7 @@ Namespace Jobs.FinalizeDocument
{"city", 3}
}
Manager.SelectPage(page + 1)
Manager.SelectPage(page)
Dim posY = y + _pdfBurnerParams.YOffset * yOffset(name)
' Add the text annotation
Dim ant = Manager.AddTextAnnot(x, posY, width, height, value)