reload thumbnails after switching receivers

This commit is contained in:
Jonathan Jenne
2023-12-04 11:40:43 +01:00
parent 03100e1a2a
commit d603fcfec6
2 changed files with 31 additions and 21 deletions

View File

@@ -62,11 +62,9 @@ Partial Public Class frmFieldEditor
For Each oReceiver In Receivers
LoadAnnotations(oReceiver.Id)
Next
'LoadAnnotations(SelectedReceiver.Id)
GDViewer.DisplayFirstPage()
ThumbnailEx2.LoadFromGdViewer(GDViewer)
ThumbnailEx2.Refresh()
End If
End Sub
@@ -76,6 +74,9 @@ Partial Public Class frmFieldEditor
If DocumentViewer1.PdfViewer IsNot Nothing Then
GDViewer = DocumentViewer1.PdfViewer
AddHandler GDViewer.BeforeAnnotationAddedByUser, AddressOf Viewer_BeforeAnnotationAddedByUser
AddHandler GDViewer.AnnotationAddedByUser, AddressOf Viewer_AnnotationAddedByUser
Manager = GDViewer.GetAnnotationManager()
Manager.InitFromGdViewer(GDViewer)
Else
@@ -95,8 +96,6 @@ Partial Public Class frmFieldEditor
Return oItem
End Function
Private Sub ReceiverItem_Click(sender As Object, e As ItemClickEventArgs)
Me.SuspendLayout()
@@ -122,6 +121,8 @@ Partial Public Class frmFieldEditor
DisplayPage(oCurrentPage)
GDViewer.SetVScrollBarPosition(oCurrentPosition)
GDViewer.Redraw()
ThumbnailEx2.ReloadThumbnails()
TestViewerActionSuccessful("ReceiverItem_Click/Redraw")
Else
MsgBox(Resources.Envelope.Elements_could_not_be_saved, MsgBoxStyle.Critical, Text)
@@ -144,22 +145,16 @@ Partial Public Class frmFieldEditor
GDViewer.LockViewer = False
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem1.ItemClick
If GDViewer IsNot Nothing Then
AddHandler GDViewer.BeforeAnnotationAddedByUser, AddressOf Viewer_BeforeAnnotationAddedByUser
AddHandler GDViewer.AnnotationAddedByUser, AddressOf Viewer_AnnotationAddedByUser
GDViewer.AddStickyNoteAnnotationInteractive(SIGNATURE_LABEL, Color.Black, "Arial", FontStyle.Regular, 10, 1, 0)
End If
End Sub
Private Sub Viewer_BeforeAnnotationAddedByUser(pAnnotationIdx As Integer)
Dim oAnnotation As Annotation = GDViewer.GetAnnotationFromIdx(pAnnotationIdx)
ApplyAnnotationStyleForNewAnnotation(oAnnotation, SelectedReceiver.Color)
End Sub
Private Sub btnSave_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnSave.ItemClick