190607 c1

- Add Pilz.Drawing.Drawing3D.OpenGLFactory
- Fix small bugs in Pilz.UI.PaintingControl

Pilz.IO/ManagedPipes/ManagedPipeServer.vb

@@ -4,8 +4,8 @@ Imports Pilz.Threading
 
 Public Class ManagedPipeServer : Inherits ManagedPipe
 
-    'Pro Verbindung(sanfrage) wird ein Client-Objekt generiert, das den Datenaustausch dieser Verbindung abwickelt
-    Private _Clients As New List(Of ManagedPipeClient)
+    'Pro Verbindung (Anfrage) wird ein Client-Objekt generiert, das den Datenaustausch dieser Verbindung abwickelt
+    Public ReadOnly Property Clients As New List(Of ManagedPipeClient)
     Private ReadOnly pipeName As String = ""
     Private ReadOnly maxNumbersOfServerInstances As Integer
     Private numberOfStartedServerInstances As Integer = 0
@@ -70,22 +70,16 @@ Public Class ManagedPipeServer : Inherits ManagedPipe
         OnStatusMessage(e)
     End Sub
 
-#End Region '_Clients-Ereignisverarbeitung
+#End Region
 
     Public Overrides Function SendAsnyc(bytes() As Byte) As Task
         Return Task.Run(Sub() Send(bytes))
     End Function
 
     Public Overrides Sub Send(data As Byte())
-        Console.WriteLine("Sending Data ...")
-
-        'OnRetriveData(New DataEventargs(data)) ' anzeigen
-
-        For Each client As ManagedPipeClient In _Clients    ' an alle versenden
+        For Each client As ManagedPipeClient In _Clients 'an alle versenden
             client.Send(data)
         Next
-
-        Console.WriteLine("Data send!")
     End Sub
 
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)