testgui: fix not null calls

GUIs.Common/DocumentResultList/frmDocumentResultList.vb

@@ -13,7 +13,6 @@ Imports DevExpress.XtraPrinting
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.EDMI.API
 Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
-Imports DigitalData.Modules.Language
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.ZooFlow
 Imports DigitalData.Modules.ZooFlow.Constants
@@ -117,7 +116,7 @@ Public Class frmDocumentResultList
         Logger = pLogConfig.GetLogger()
         FormHelper = New FormHelper(pLogConfig, Me)
 
-        UserLanguage = Utils.NotNull(Environment.User.Language, State.UserState.LANG_EN_US)
+        UserLanguage = ObjectEx.NotNull(Environment.User.Language, State.UserState.LANG_EN_US)
         LanguageEx.LogApplicationLanguage(Logger)
         LanguageEx.SetApplicationLanguage(Logger, UserLanguage)
 
@@ -787,7 +786,7 @@ Public Class frmDocumentResultList
         If oActiveGrid IsNot Nothing Then
             Dim oGridBand = _ActiveGridBand
 
-            XtraSaveFileDialog.FileName = Utils.ConvertTextToSlug(oGridBand.Caption) & ".xlsx"
+            XtraSaveFileDialog.FileName = StringEx.ConvertTextToSlug(oGridBand.Caption) & ".xlsx"
             XtraSaveFileDialog.DefaultExt = ".xlsx"
 
             If XtraSaveFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
@@ -931,7 +930,7 @@ Public Class frmDocumentResultList
 
     Private Sub MenuItem_CopyFilepath_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemFilepathCopy.ItemClick
         If _CurrentDocument IsNot Nothing Then
-            Dim oPath = Utils.NotNull(_CurrentDocument.FullPath, "")
+            Dim oPath = ObjectEx.NotNull(_CurrentDocument.FullPath, "")
             If oPath <> String.Empty Then
                 Clipboard.SetText(oPath)
             End If

GUIs.Test.TestGUI/TestGUI.vbproj

@@ -330,18 +330,6 @@
     <WCFMetadata Include="Connected Services\" />
   </ItemGroup>
   <ItemGroup>
-    <ProjectReference Include="..\Controls.ChatAddUser\ChatAddUser.vbproj">
-      <Project>{f0a807cc-be14-4b5b-9200-27c16156bd8a}</Project>
-      <Name>ChatAddUser</Name>
-    </ProjectReference>
-    <ProjectReference Include="..\Controls.ChatControl\ChatControl.vbproj">
-      <Project>{1f278760-4f6b-42e8-b82d-01d4c8618340}</Project>
-      <Name>ChatControl</Name>
-    </ProjectReference>
-    <ProjectReference Include="..\Controls.ChatNewConv\ChatNewConv.vbproj">
-      <Project>{86d27ffa-480f-481d-8d23-26deae92fe6c}</Project>
-      <Name>ChatNewConv</Name>
-    </ProjectReference>
     <ProjectReference Include="..\Controls.DocumentViewer\DocumentViewer.vbproj">
       <Project>{0958cddf-4a16-41f6-8837-8335f71d599c}</Project>
       <Name>DocumentViewer</Name>

GUIs.Test.TestGUI/frmWindream.Designer.vb

@@ -0,0 +1,30 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmWindream
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        components = New System.ComponentModel.Container
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.Text = "frmWindream"
+    End Sub
+End Class

GUIs.Test.TestGUI/frmWindream.vb

@@ -0,0 +1,9 @@
+Public Class frmWindream
+    Public Sub New()
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+
+End Class