Projektbereinigung: Entfernung alter Module und Ressourcen

Mehrere Module (`ChatAddUser`, `ChatControl`, `ChatNewConv`) und
deren zugehörige Dateien wurden vollständig aus dem Projekt
entfernt. Dies umfasst Designer-, Ressourcen- und Projektdateien
sowie Backup-Dateien.

Zusätzlich wurden nicht mehr benötigte Bilder, Lizenzdateien
(`licenses.licx`), Konfigurationsdateien (`app.config`,
`packages.config`) und generierte Dateien entfernt.

Die Abhängigkeiten in `App.config` wurden aktualisiert, und neue
Bibliotheken wie `System.Threading.Tasks.Extensions` wurden
hinzugefügt. Eine Methode in `Annotations.vb` wurde angepasst,
um Änderungen in der zugrunde liegenden API zu berücksichtigen.

Diese Änderungen sind Teil einer umfassenden Bereinigung und
Modernisierung des Projekts.

GUIs.Common/ObjectPropertyDialog/AttributeControls.vb

@@ -91,29 +91,33 @@ Public Class AttributeControls
     End Sub
 
     Public Async Function LoadControlValuesForAttributes(pObjectId As Long, LayoutRoot As LayoutControlGroup) As Task
-        For Each oItem As BaseLayoutItem In LayoutRoot.Items
+        Dim oSnapshot = LayoutRoot.Items.Cast(Of BaseLayoutItem)().ToList()
+
+        For Each oItem As BaseLayoutItem In oSnapshot
             If TypeOf oItem Is LayoutControlGroup Then
-                Await LoadControlValuesForAttributes(pObjectId, oItem)
+                Await LoadControlValuesForAttributes(pObjectId, DirectCast(oItem, LayoutControlGroup))
 
             ElseIf TypeOf oItem Is LayoutControlItem Then
                 Dim oControlItem As LayoutControlItem = oItem
 
                 If TypeOf oControlItem.Control Is BaseEdit Then
                     Dim oEdit = DirectCast(oControlItem.Control, BaseEdit)
+
+                    ' Handler nur einmalig registrieren
+                    RemoveHandler oEdit.EditValueChanged, Sub() RaiseEvent EditValueChanged(oItem, Nothing)
+                    AddHandler oEdit.EditValueChanged, Sub() RaiseEvent EditValueChanged(oItem, Nothing)
+
                     oEdit.EditValue = Nothing
 
                     Dim oValue = Await GetAttributeValue(oItem.Name, pObjectId)
                     oEdit.EditValue = oValue
 
-                    AddHandler oEdit.EditValueChanged, Sub() RaiseEvent EditValueChanged(oItem, Nothing)
                 ElseIf TypeOf oControlItem.Control Is GridControl Then
                     Dim oValueTable = Await GetAttributeValueAsTable(oItem.Name, pObjectId)
                     Dim oGrid = DirectCast(oControlItem.Control, GridControl)
 
                     oGrid.DataSource = Nothing
-
                     oGrid.DataSource = oValueTable
-
                 End If
             End If
         Next

GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb

@@ -76,6 +76,13 @@ Public Class ctrlObjectPropertyDialog
     End Function
 
     Public Async Function LoadObject(pObjectId As Long) As Task(Of Boolean)
+        If pObjectId = 0 Then
+            Return True
+        End If
+        ' Bereits laufenden Ladevorgang abbrechen
+        If IsLoading Then
+            Return False
+        End If
         ' Load Business Entities
         Dim oEntityIds = Await GetBusinessEntitiesForObjectId(pObjectId)
         Dim oActiveEntity = oEntityIds.FirstOrDefault()