AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update GD Picture

Browse Source
This commit is contained in:
Developer01
2024-09-23 17:13:05 +02:00
parent 72da437201
commit bcbb88a4a4
10 changed files with 51 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
GUIs.Test.TestGUI/frmDocView.vb
View File

@@ -11,17 +11,17 @@ Public Class frmDocView
If String.IsNullOrEmpty(TextBox1.Text) Then
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
TextBox1.Text = OpenFileDialog1.FileName
DocumentViewer1.LoadFile(TextBox1.Text)
MyDocumentViewer.LoadFile(TextBox1.Text)
End If
Else
DocumentViewer1.LoadFile(TextBox1.Text)
MyDocumentViewer.LoadFile(TextBox1.Text)
End If
End Sub
Private Sub frmDocView_Load(sender As Object, e As EventArgs) Handles Me.Load
LogConfig = New LogConfig(LogConfig.PathType.Temp)
DocumentViewer1.Init(LogConfig, GDPICTURE_KEY, New DigitalData.Controls.DocumentViewer.DocumentViewer.ToolbarSettings() With {
MyDocumentViewer.Init(LogConfig, GDPICTURE_KEY, New DigitalData.Controls.DocumentViewer.DocumentViewer.ToolbarSettings() With {
.ShowPrintButton = False,
.ShowRotateButton = False,
.ShowFlipButton = False,
@@ -30,16 +30,16 @@ Public Class frmDocView
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
DocumentViewer1.Done()
MyDocumentViewer.Done()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If DocumentViewer1.AddAnnotation("Some Text") Then
If MyDocumentViewer.AddAnnotation("Some Text") Then
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
DocumentViewer1.Save()
MyDocumentViewer.Save()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click