diff --git a/ConfigCreator/MonoRepoUtils.vbproj b/ConfigCreator/MonoRepoUtils.vbproj index ea310336..17a87333 100644 --- a/ConfigCreator/MonoRepoUtils.vbproj +++ b/ConfigCreator/MonoRepoUtils.vbproj @@ -161,5 +161,11 @@ + + + {7deec36e-ea5f-4711-ad1e-fd8894f4ad77} + DDZUGFeRDService + + \ No newline at end of file diff --git a/Controls.ChatControl/ChatControl.vbproj b/Controls.ChatControl/ChatControl.vbproj index a8980dc9..baade32c 100644 --- a/Controls.ChatControl/ChatControl.vbproj +++ b/Controls.ChatControl/ChatControl.vbproj @@ -177,5 +177,11 @@ + + + {f0a807cc-be14-4b5b-9200-27c16156bd8a} + ChatAddUser + + \ No newline at end of file diff --git a/Controls.DocumentViewer/Classes/Search.vb b/Controls.DocumentViewer/Classes/Search.vb index 882c48c1..68e73c10 100644 --- a/Controls.DocumentViewer/Classes/Search.vb +++ b/Controls.DocumentViewer/Classes/Search.vb @@ -35,15 +35,23 @@ Public Class Search ' Reset previous highlights, then search for the new query _Viewer.RemoveAllRegions() - _Viewer.SearchText(_CurrentQuery, 0, CaseSensitive, WholeWords) + DoSearchText() + + ' Select the next occurrence + NextHighlight() End Sub Public Sub NextHighlight() ' This also applies when the page has *NO* occurrences, so 0 = 0 If _CurrentOccurrenceCount = _CurrentSelectedOccurrence Then ' If there are no occurrences on the current page, got to the *next page* - While _CurrentOccurrenceCount = _CurrentSelectedOccurrence And _CurrentPage < _Viewer.PageCount - _Viewer.DisplayNextPage() + While _CurrentOccurrenceCount = _CurrentSelectedOccurrence And _CurrentPage <= _Viewer.PageCount + If _CurrentPage = _Viewer.PageCount Then + _Viewer.DisplayFirstPage() + Else + _Viewer.DisplayNextPage() + End If + End While ' Safeguard against selecting a non-existing occurrence on the last page @@ -61,8 +69,13 @@ Public Class Search Public Sub PrevHighlight() If _CurrentOccurrenceCount = 0 Or _CurrentSelectedOccurrence = 1 Then - While (_CurrentOccurrenceCount = 0 Or _CurrentSelectedOccurrence = 1) And _CurrentPage > 1 - _Viewer.DisplayPreviousPage() + While (_CurrentOccurrenceCount = 0 Or _CurrentSelectedOccurrence = 1) And _CurrentPage >= 1 + If _CurrentPage = 1 Then + _Viewer.DisplayLastPage() + Else + _Viewer.DisplayPreviousPage() + End If + End While If _CurrentOccurrenceCount > 0 Then @@ -73,26 +86,6 @@ Public Class Search ' Otherwise just select the previous occurrence SelectHighlight(_CurrentSelectedOccurrence - 1) End If - - '' If no occurrence found on the current page, - '' skip to the *previous* page to look there - 'If _CurrentOccurrenceCount = 0 Then - ' While _CurrentOccurrenceCount = 0 And _CurrentPage > 1 - ' _Viewer.DisplayPreviousPage() - ' End While - - 'ElseIf _CurrentSelectedOccurrence = 1 Then - ' ' Need to switch to the previous *page* - ' ' and highlight the last occurrence there - ' If _CurrentPage > 1 Then - ' _Viewer.DisplayPreviousPage() - - ' SelectHighlight(_CurrentOccurrenceCount) - ' End If - 'Else - ' ' Otherwise just select the previous occurrence - ' SelectHighlight(_CurrentSelectedOccurrence - 1) - 'End If End Sub Private Sub SelectHighlight(pOccurrence As Integer) @@ -112,11 +105,15 @@ Public Class Search _CurrentPage = _Viewer.CurrentPage If _CurrentQuery.Length > 0 Then - _Viewer.SearchText(_CurrentQuery, 0, CaseSensitive, WholeWords) - _CurrentOccurrenceCount = _Viewer.GetTextOccurrenceCount(_CurrentPage, _CurrentQuery, CaseSensitive, WholeWords) - _CurrentSelectedOccurrence = 0 + DoSearchText() End If End If End Sub + Private Sub DoSearchText() + _Viewer.SearchText(_CurrentQuery, 0, CaseSensitive, WholeWords) + _CurrentOccurrenceCount = _Viewer.GetTextOccurrenceCount(_CurrentPage, _CurrentQuery, CaseSensitive, WholeWords) + _CurrentSelectedOccurrence = 0 + End Sub + End Class diff --git a/Controls.DocumentViewer/DocumentViewer.Designer.vb b/Controls.DocumentViewer/DocumentViewer.Designer.vb index 9fd05382..4415a3da 100644 --- a/Controls.DocumentViewer/DocumentViewer.Designer.vb +++ b/Controls.DocumentViewer/DocumentViewer.Designer.vb @@ -63,7 +63,7 @@ Partial Class DocumentViewer Me.RepositoryItemSearchControl1 = New DevExpress.XtraEditors.Repository.RepositoryItemSearchControl() Me.SpreadsheetControl1 = New DevExpress.XtraSpreadsheet.SpreadsheetControl() Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument() - Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl() + Me.lbFileNotLoaded = New DevExpress.XtraEditors.LabelControl() CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemTextEdit3, System.ComponentModel.ISupportInitialize).BeginInit() @@ -139,7 +139,7 @@ Partial Class DocumentViewer Me.GdViewer.ScrollLargeChange = CType(50, Short) Me.GdViewer.ScrollSmallChange = CType(1, Short) Me.GdViewer.SilentMode = True - Me.GdViewer.Size = New System.Drawing.Size(1079, 557) + Me.GdViewer.Size = New System.Drawing.Size(1012, 557) Me.GdViewer.TabIndex = 0 Me.GdViewer.ViewRotation = System.Drawing.RotateFlipType.RotateNoneFlipNone Me.GdViewer.Zoom = 1.0R @@ -364,7 +364,7 @@ Partial Class DocumentViewer Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) Me.barDockControlTop.Manager = Me.BarManager1 - Me.barDockControlTop.Size = New System.Drawing.Size(1079, 33) + Me.barDockControlTop.Size = New System.Drawing.Size(1012, 33) ' 'barDockControlBottom ' @@ -372,7 +372,7 @@ Partial Class DocumentViewer Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom Me.barDockControlBottom.Location = New System.Drawing.Point(0, 590) Me.barDockControlBottom.Manager = Me.BarManager1 - Me.barDockControlBottom.Size = New System.Drawing.Size(1079, 0) + Me.barDockControlBottom.Size = New System.Drawing.Size(1012, 0) ' 'barDockControlLeft ' @@ -386,7 +386,7 @@ Partial Class DocumentViewer ' Me.barDockControlRight.CausesValidation = False Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right - Me.barDockControlRight.Location = New System.Drawing.Point(1079, 33) + Me.barDockControlRight.Location = New System.Drawing.Point(1012, 33) Me.barDockControlRight.Manager = Me.BarManager1 Me.barDockControlRight.Size = New System.Drawing.Size(0, 557) ' @@ -441,25 +441,30 @@ Partial Class DocumentViewer Me.SpreadsheetControl1.Text = "SpreadsheetControl1" Me.SpreadsheetControl1.Visible = False ' - 'LabelControl1 + 'lbFileNotLoaded ' - Me.LabelControl1.Appearance.Options.UseTextOptions = True - Me.LabelControl1.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center - Me.LabelControl1.Appearance.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Center - Me.LabelControl1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None - Me.LabelControl1.Location = New System.Drawing.Point(340, 222) - Me.LabelControl1.Name = "LabelControl1" - Me.LabelControl1.Size = New System.Drawing.Size(409, 72) - Me.LabelControl1.TabIndex = 14 - Me.LabelControl1.Tag = "Die Datei konnte nicht gefunden werden: {0}" - Me.LabelControl1.Text = "Die Datei konnte nicht gefunden werden: {0}" - Me.LabelControl1.Visible = False + Me.lbFileNotLoaded.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbFileNotLoaded.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbFileNotLoaded.Appearance.Options.UseFont = True + Me.lbFileNotLoaded.Appearance.Options.UseTextOptions = True + Me.lbFileNotLoaded.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbFileNotLoaded.Appearance.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Center + Me.lbFileNotLoaded.AutoEllipsis = True + Me.lbFileNotLoaded.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbFileNotLoaded.Location = New System.Drawing.Point(3, 74) + Me.lbFileNotLoaded.Name = "lbFileNotLoaded" + Me.lbFileNotLoaded.Size = New System.Drawing.Size(1006, 72) + Me.lbFileNotLoaded.TabIndex = 14 + Me.lbFileNotLoaded.Tag = "" + Me.lbFileNotLoaded.Text = "Die Datei konnte nicht geladen werden" + Me.lbFileNotLoaded.Visible = False ' 'DocumentViewer ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.LabelControl1) + Me.Controls.Add(Me.lbFileNotLoaded) Me.Controls.Add(Me.RichEditControl1) Me.Controls.Add(Me.SpreadsheetControl1) Me.Controls.Add(Me.GdViewer) @@ -468,7 +473,7 @@ Partial Class DocumentViewer Me.Controls.Add(Me.barDockControlBottom) Me.Controls.Add(Me.barDockControlTop) Me.Name = "DocumentViewer" - Me.Size = New System.Drawing.Size(1079, 590) + Me.Size = New System.Drawing.Size(1012, 590) CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemTextEdit3, System.ComponentModel.ISupportInitialize).EndInit() @@ -518,7 +523,7 @@ Partial Class DocumentViewer Friend WithEvents btnPrevHighlight As DevExpress.XtraBars.BarButtonItem Friend WithEvents btnNextHighlight As DevExpress.XtraBars.BarButtonItem Friend WithEvents RepositoryItemSearchControl1 As DevExpress.XtraEditors.Repository.RepositoryItemSearchControl - Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl + Friend WithEvents lbFileNotLoaded As DevExpress.XtraEditors.LabelControl Friend WithEvents btnSearch As DevExpress.XtraBars.BarButtonItem Friend WithEvents btnSearch2 As DevExpress.XtraBars.BarButtonItem End Class diff --git a/Controls.DocumentViewer/DocumentViewer.vb b/Controls.DocumentViewer/DocumentViewer.vb index 8312e861..fed21387 100644 --- a/Controls.DocumentViewer/DocumentViewer.vb +++ b/Controls.DocumentViewer/DocumentViewer.vb @@ -470,6 +470,8 @@ Public Class DocumentViewer Dim oFileInfo = New FileInfo(FilePath) Dim oExtension As String = oFileInfo.Extension.ToUpper + lbFileNotLoaded.Visible = False + RichEditControl1.Visible = False RichEditControl1.Dock = DockStyle.None @@ -504,7 +506,11 @@ Public Class DocumentViewer GdViewer.ForceTemporaryMode = True GdViewer.AnnotationDropShadow = True - GdViewer.DisplayFromFile(FilePath) + If GdViewer.DisplayFromFile(FilePath) <> GdPictureStatus.OK Then + Dim oFileName = IO.Path.GetFileName(FilePath) + lbFileNotLoaded.Text = String.Format("Datei konnte nicht geladen werden:{0}{1}", vbCrLf, oFileName) + lbFileNotLoaded.Visible = True + End If End Select @@ -686,7 +692,10 @@ Public Class DocumentViewer End Sub Private Sub btnSearch2_ItemClick(sender As Object, e As XtraBars.ItemClickEventArgs) Handles btnSearch2.ItemClick - _Search.SearchAll(txtSearch.EditValue.ToString) + If Not String.IsNullOrEmpty(txtSearch.EditValue) Then + _Search.SearchAll(txtSearch.EditValue?.ToString) + + End If End Sub Private Sub btnPrevHighlight_ItemClick(sender As Object, e As XtraBars.ItemClickEventArgs) Handles btnPrevHighlight.ItemClick diff --git a/GUIs.GlobalIndexer/packages.config b/GUIs.GlobalIndexer/packages.config index 37cb9210..ce98cd21 100644 --- a/GUIs.GlobalIndexer/packages.config +++ b/GUIs.GlobalIndexer/packages.config @@ -1,4 +1,4 @@  - + \ No newline at end of file diff --git a/GUIs.Test.TestGUI/TestGUI.vbproj b/GUIs.Test.TestGUI/TestGUI.vbproj index c56b33f1..75e31f7b 100644 --- a/GUIs.Test.TestGUI/TestGUI.vbproj +++ b/GUIs.Test.TestGUI/TestGUI.vbproj @@ -330,10 +330,38 @@ + + {f0a807cc-be14-4b5b-9200-27c16156bd8a} + ChatAddUser + + + {1f278760-4f6b-42e8-b82d-01d4c8618340} + ChatControl + + + {86d27ffa-480f-481d-8d23-26deae92fe6c} + ChatNewConv + + + {0958cddf-4a16-41f6-8837-8335f71d599c} + DocumentViewer + + + {3dcd6d1a-c830-4241-b7e4-27430e7ea483} + LookupControl + + + {d20a6bf2-c7c6-4a7a-b34d-fa27d775a049} + Common + {a8c3f298-76ab-4359-ab3c-986e313b4336} EDMIService + + {7deec36e-ea5f-4711-ad1e-fd8894f4ad77} + DDZUGFeRDService + diff --git a/GUIs.Test.TestGUI/frmDocView.vb b/GUIs.Test.TestGUI/frmDocView.vb index 8c723ff1..b047fd16 100644 --- a/GUIs.Test.TestGUI/frmDocView.vb +++ b/GUIs.Test.TestGUI/frmDocView.vb @@ -4,9 +4,15 @@ Public Class frmDocView Private LogConfig As LogConfig Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - If OpenFileDialog1.ShowDialog() = DialogResult.OK Then - DocumentViewer1.LoadFile(OpenFileDialog1.FileName) + If String.IsNullOrEmpty(TextBox1.Text) Then + If OpenFileDialog1.ShowDialog() = DialogResult.OK Then + TextBox1.Text = OpenFileDialog1.FileName + DocumentViewer1.LoadFile(TextBox1.Text) + End If + Else + DocumentViewer1.LoadFile(TextBox1.Text) End If + End Sub Private Sub frmDocView_Load(sender As Object, e As EventArgs) Handles Me.Load diff --git a/GUIs.Test.TestGUI/frmObjectProperties.vb b/GUIs.Test.TestGUI/frmObjectProperties.vb index 9ac74311..8dda75a1 100644 --- a/GUIs.Test.TestGUI/frmObjectProperties.vb +++ b/GUIs.Test.TestGUI/frmObjectProperties.vb @@ -1,5 +1,4 @@ Imports DigitalData.GUIs.Common -Imports DigitalData.GUIs.Common.Base Imports DigitalData.Modules.Database Imports DigitalData.Modules.Logging